If et Visual Basic

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
A voir également:

7 réponses

Réponse 1 / 7
ntsc28
 
Fais plutôt si A*B*C non nul alors D=1
0
Réponse 2 / 7
fred
 
voila esssaie ceci ca pourra t'aider

If isNULL(txtPr.Text ) And isNULL(txtPn.Text) And isNULL(txtPUn ) Then
txtResult.Text = '123 '

@+
0
Réponse 3 / 7
AsKy Messages postés 1001 Date d'inscription   Statut Contributeur Dernière intervention   65
 
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.
0
fred
 
dis a, b, c et d sont ils des numériques ou des string ?
si numérique alors un test du genre a*b*c <> 0 n'est pas mal
de meme que if a <> 0 and b <> 0 and c <> 0 then d=1 devrait marcher
si non si string alors... beuh !!!!!!!!!!!!!!!!

@+
0
AsKy Messages postés 1001 Date d'inscription   Statut Contributeur Dernière intervention   65 > fred
 
salut,

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.
0
Réponse 4 / 7
Toxx
 
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...
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 7
Toxx
 
je rectifie :
If pr * pn * pun <> 0 Then
0
Réponse 6 / 7
Toxx
 
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
0
Réponse 7 / 7
AsKy Messages postés 1001 Date d'inscription   Statut Contributeur Dernière intervention   65
 
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.
0
Toxx
 
un grand merci a toi et tous ceux qui se sont donnés la peine de m'aider
@ tous !!
peut etre a plus tard je devrai pas tarder a REbloquer ^^
0

Discussions similaires

Site de confiance ou non ?
mlle_so -
Jaffeli -

25 réponses
Microsoft Visual C++ ? C'est quoi ?
QuentinAGT -
SamySabb -

3 réponses