If et Visual Basic
Toxx
-
Toxx -
Toxx -
bonjour
je me lance dans un petit projet en Basic 6.0 et je souhaiterai une petite information qui me servira tout au long de ma programation :
Quelle est la syntaxe exacte pour :
"Si A non nul et B non nul et C non nul, je fait D=1
voila ce que j'ai écrit:
If txtPr.Text <> Null And txtPn.Text <> Null And txtPUn <> Null Then
txtResult.Text = 123
merci d'avance pur l'aide que vous pourriez m'apporter
je me lance dans un petit projet en Basic 6.0 et je souhaiterai une petite information qui me servira tout au long de ma programation :
Quelle est la syntaxe exacte pour :
"Si A non nul et B non nul et C non nul, je fait D=1
voila ce que j'ai écrit:
If txtPr.Text <> Null And txtPn.Text <> Null And txtPUn <> Null Then
txtResult.Text = 123
merci d'avance pur l'aide que vous pourriez m'apporter
A voir également:
- If et Visual Basic
- Visual basic - Télécharger - Langages
- Visual basic editor - Télécharger - Langages
- Visual petanque - Télécharger - Sport
- Microsoft 365 basic - Accueil - Microsoft Office
- Visual c++ 2019 - Guide
7 réponses
voila esssaie ceci ca pourra t'aider
If isNULL(txtPr.Text ) And isNULL(txtPn.Text) And isNULL(txtPUn ) Then
txtResult.Text = '123 '
@+
If isNULL(txtPr.Text ) And isNULL(txtPn.Text) And isNULL(txtPUn ) Then
txtResult.Text = '123 '
@+
salut,
je penserais plutot a ca:
c'est le code 'littéral', mais la solution de ntsc28 marche aussi bien sur.
je penserais plutot a ca:
if a <> 0 and b <> 0 and c <> 0 then d=1
c'est le code 'littéral', mais la solution de ntsc28 marche aussi bien sur.
asky |L'intelligence artificielle se définit comme
|le contraire de la bêtise naturelle.
je m'enfonce de plus en plus ...
voila mon code ...
----------------------------------------------------------------------------
'----------------------------------------------'
' Déclaration des variables "que l'on possede" '
'----------------------------------------------'
Dim puo As Integer
Dim pr As Integer
Dim pn As Integer
Dim pun As Integer
'----------------------------------------------'
' Déclaration des variables "que l'on cherche" '
'----------------------------------------------'
Dim rn As Integer
'----------------------------------------------'
' Déclaration des variables "que l'on obtient" '
'----------------------------------------------'
Dim resultat As Integer
'----------------------------------------------'
' Fin des déclarations '
'----------------------------------------------'
Private Sub cmdRUo_Click()
pr = txtPr.Text
pn = txtPn.Text
pun = txtPUn.Text
resultat = txtResult.Text
If pr * pn * pun = 0 Then
resultat = txtPUo.Text
End If
End Sub
----------------------------------------------------------------------------
fo pas ke je menerve ^^
pour info c un prog sur les suites numériques mais bon la c pas encore le probleme...
voila mon code ...
----------------------------------------------------------------------------
'----------------------------------------------'
' Déclaration des variables "que l'on possede" '
'----------------------------------------------'
Dim puo As Integer
Dim pr As Integer
Dim pn As Integer
Dim pun As Integer
'----------------------------------------------'
' Déclaration des variables "que l'on cherche" '
'----------------------------------------------'
Dim rn As Integer
'----------------------------------------------'
' Déclaration des variables "que l'on obtient" '
'----------------------------------------------'
Dim resultat As Integer
'----------------------------------------------'
' Fin des déclarations '
'----------------------------------------------'
Private Sub cmdRUo_Click()
pr = txtPr.Text
pn = txtPn.Text
pun = txtPUn.Text
resultat = txtResult.Text
If pr * pn * pun = 0 Then
resultat = txtPUo.Text
End If
End Sub
----------------------------------------------------------------------------
fo pas ke je menerve ^^
pour info c un prog sur les suites numériques mais bon la c pas encore le probleme...
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
je vient de tester avec Val() et en plus de ne pas marcher sa me di "depassement de capacité au dessu d'un seuil de 3 chiffres je suppose
pr = txtPr.Text
pn = txtPn.Text
pun = txtPUn.Text
resultat = txtResult.Text
donc tes variables sont de type string puisqu'elles contiennent les textes contenus dans txtpn etc...
ca donne donc ca:
pn = txtPn.Text
pun = txtPUn.Text
resultat = txtResult.Text
donc tes variables sont de type string puisqu'elles contiennent les textes contenus dans txtpn etc...
ca donne donc ca:
If val(pr) * val(pn) * val(pun) = 0 Then resultat = txtPUo.Text End If
asky |L'intelligence artificielle se définit comme
|le contraire de la bêtise naturelle.
