cs_charles78
Messages postés3Date d'inscriptiondimanche 29 octobre 2006StatutMembreDernière intervention26 décembre 2006
-
31 oct. 2006 à 16:51
dthuler
Messages postés121Date d'inscriptiondimanche 9 mars 2003StatutMembreDernière intervention29 avril 2009
-
1 nov. 2006 à 15:37
bonjour
je suis debutant ( personne n est parfait) mais voila avec vbscrip je viens de tester un
exemple
Dim X
Dim Y
Dim Reponse
Msgbox("j ai choisi une nombre de 1 à 100 que vous devez deviner." )
chr(13)
msgbox ("quand vous taper un nombre je vous dis s'il es plus grand " )
Chr(13)
Msgbox ("ou plus petit que le nombre secret")
chr(13)
Msgbox ("vous avez 10 essais pour trouver ce nombre")
X=int((99*Rnd)+1)
For I=1 To 10
Y=cint(inputbox ("entrez Un Nombre Entier Entre 1 Et 100"))
If Y=x Then
Mgsbox("bravo Vous Avez Trouvé")
Exit For
Elself y>xthen
Msgbox ("trop Grand")
Else
Msgbox ("trop Petit")end If
NextI=11
Msgbox("vous N Avez Pas Réussi")
nextendif
Reponse=("voulez Vous Recommencer Une Partie ?")
Vbyesno+vbquestion+vbdefaulbuttton2
Nouvelle Partie
et je n arrive pas a teminer je tonmbe sur un bog pourrier vous mexpliquez comme je peut finir ave do loop
dthuler
Messages postés121Date d'inscriptiondimanche 9 mars 2003StatutMembreDernière intervention29 avril 2009 1 nov. 2006 à 15:37
Salut,
Dans ce code, tu as 2 next pour une seule boucle for, ça ne fonctionnera pas...
Regarde encore (analyse cheaque mot-clé) et essaie de comprendre pourquoi ça ne tourne pas ;-)
Bon courage,
David