Pourquoi ca marche pas ??

Question

Voila j ai deux textbox et un timer

Dans mon timer j' ai : 

If Textbox1.text > Textbox2.text then
label1.caption = "gagné"
else
If Textbox1.text < Textbox2.text then
label1.caption = "perdu"
End If
End If

mais si la valeur dans textbox à deux chiffres ex: 13 et dans l autre 8 il me dit perdu ??

J ai mis mes textbox en DataFormat : nombre

Fripouil

crenaud76 · Answer

Oui mais tu fait ton test sur des valeur chaine et pour les chaine, et bien "8" est > à "13", car le caractère "8" a un code ascii > à celui du caractère "1".
Pour que ca marche, il faut que tu lui dise de comparer des nombre. Donc tu doit convertir des chaine en nombre. Comme cela :

If CLng(Textbox1.Text) > CLng(Textbox2.Text) ...

CLng() est une fonction qui transforme, dans la mesure ou c'est possible, une expression quelconque en entier long (32 bits)
Il faudra que tu t'assures que l'on ne puisse pas taper des lettre dans tes textbox sinon gare aux erreurs de type incompatible !!!

Christophe R.

cs_rene38 · Answer

Bonjour
TextBox1.Text est du texte et "8" > "100000" !
Prends la valeur des Textboxes :

If Val(Textbox1.text) > Val(Textbox2.text) then
label1.caption = "gagné"
else
If Val(Textbox1.text) < Val(Textbox2.text) then
label1.caption = "perdu"
End If
End If

 et si Val(Textbox1.text) = Val(Textbox2.text) ?

cs_Fripouil · Answer

Merci beaucoup

De ton aide et de tes explications claires ca marche nickel

A+ tard

Fripouil

cs_Fripouil · Answer

Merci à toi aussi rene38

Fripouil