VBS :ENTRAINEUR DE CERVAUX APRÉS LES VACANCES.
Renfield
Messages postés
17287
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
-
24 août 2006 à 09:16
CYM13 Messages postés 18 Date d'inscription mercredi 24 mai 2006 Statut Membre Dernière intervention 16 octobre 2006 - 25 août 2006 à 07:40
CYM13 Messages postés 18 Date d'inscription mercredi 24 mai 2006 Statut Membre Dernière intervention 16 octobre 2006 - 25 août 2006 à 07:40
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/39235-vbs-entraineur-de-cervaux-apres-les-vacances
https://codes-sources.commentcamarche.net/source/39235-vbs-entraineur-de-cervaux-apres-les-vacances
25 août 2006 à 07:40
24 août 2006 à 14:47
24 août 2006 à 12:54
24 août 2006 à 12:34
Titre = "mm instrument"
Do
Difficulte = inputBox("Rentrez votre niveau de difficulté: 1 2 3 4 5 6 7 ",Titre)
Loop While Question(Difficulte)
Function Question(Difficulte)
Max = 10 ^ (Difficulte * 2) - 1
x=Int((Max *Rnd)+1)
MsgBox"Retient les chiffres suivants" & x,,Titre
WScript.Sleep 42000
z=Int(inputbox("Quels étaient les chiffres?",Titre))
If z=x Then
MsgBox"Gagné!",,Titre
Question = True
Else
MsgBox"Perdu!",,Titre
Question = False
End If
End Function
24 août 2006 à 11:46
24 août 2006 à 09:54
balaise, Warny, non indenté, j'ai même pas pris le temps de le lire plus avant, ni de déceler le coté répétitif de la chose ^^
24 août 2006 à 09:32
Ca diviserait ton code par 7
24 août 2006 à 09:16
faudrait indenter ton code, ce qui le rendreait plus lisible...