If et Visual Basic Fermé

Question

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

ntsc28 · Answer

Fais plutôt si A*B*C non nul alors D=1

fred · Answer

voila esssaie ceci ca pourra t'aiderIf isNULL(txtPr.Text ) And isNULL(txtPn.Text) And isNULL(txtPUn ) Then txtResult.Text = '123 '@+

AsKy · Answer

salut,

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.

Toxx · Answer

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...

Toxx · Answer

je rectifie :If pr * pn * pun <> 0 Then

Toxx · Answer

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

AsKy · Answer

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:

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.

If et Visual Basic

7 réponses

Discussions similaires

Newsletters