If et Visual Basic
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
7 réponses
-
Fais plutôt si A*B*C non nul alors D=1
-
voila esssaie ceci ca pourra t'aider
If isNULL(txtPr.Text ) And isNULL(txtPn.Text) And isNULL(txtPUn ) Then
txtResult.Text = '123 '
@+ -
Contributeursalut,
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.-
-
Contributeur@fredsalut,
si a, b et c ne sont pas des strings tu n'as qu'a remplacer a<>0 par val(a) <> 0 etc...
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... -
je rectifie :
If pr * pn * pun <> 0 Then -
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
-
Contributeurpr = 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: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.
