A ta première ligne Msgbox pourquoi n'écris-tu point : If x < 20 then chn ="Vous êtes maigre"A la seconde ----------------------------------------- If x<20 and x < 25 then chn"Vous êtes normal"A la troisième -----------------------------------------If x>25 and x< 30 then chn"Vous êtes un peu gros"
A la quatriéme-----------------------------------------If x> 30 then chn "Vous êtes trop gros"
A la cinquième-----------------------------------------Msgbox chn$
c'est plus simple
cs_dafu
Messages postés50Date d'inscriptionlundi 9 octobre 2006StatutMembreDernière intervention26 octobre 2008 27 nov. 2006 à 18:28
re coucou
j fais un prog sur l'IMC
voici le code
Dim a As Double = TextBox1.Text 'taille
Dim b As Double = TextBox2.Text 'poigt
'poigt / par taille au carré
Dim x As Double = (TextBox2.Text / ((TextBox1.Text / 100) * (TextBox1.Text / 100)))
MsgBox("votre I.M.C est de " & b / ((a / 100) * (a / 100)))
MsgBox(x < 20)'ici si msgbox = true j'aimerais qu'il ecrive "vous etes maigre"
MsgBox(20 < x)'ici true vous etes normal
MsgBox(25 < x)'ici true vous etes un peu gros
MsgBox(30 < x)'ici true "vous etes normal
drikce06
Messages postés2236Date d'inscriptionlundi 29 mai 2006StatutMembreDernière intervention29 mai 200810 7 déc. 2006 à 16:47
Salut If c'est une condition!
If Condition Then
> Si Condition Alors
[code]
End If
Fin If
Si la condition est fausse tu vas directement au end if, sinon le code est executé!
C'est qu'une explication à la va-vite que je viens de faire, regarde les tutos du site pour avoir plus d'info ou les tutos de www.developpez.com. Les conditions sont la base de la programmation et tu ne peux pas t'en passer tout comme les boucles du style For i = 1 to 20 ...Next, Do ... Loop, While .... Wend! Essaye de te documenter au maximum la dessus et ça ira beaucoup mieux tu veras!
Drikce 06
Si la réponse vous convient: Réponse acceptée. Si la réponse vous convient pas: