Bonjour j'ai fait un petit jeu en vbs sur bloc-notes. Il commence bien mais une fois que l'utilisateur rentre la données numérique le programme saute le select case et va directement a la fin
ceci est ma première discussions si vous avez des commentaires CONSTRUCTIF je serais ravi de les lires
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21 Dim Nom inthighnumber = 100 intlownumber = 1 randomize intnumber = int((inthighnumber - intlownumber + 1) * rnd + intlownumber) msgbox(intnumber & "Ceci est le jeu plus ou moins, vous devez devinez le nombre choisie au hasard entre 1 et 100.Si vous avez donné la bonne réponse vous avez gagné,si vous n'avez pas la bonne réponse, il vous répond si votre réponse est plus grand ou plus petit que son nombre jusqu'à que vous avez trouvé son nombre et vous dit en combien dessais cela vous à prit pour trouver le nombre.") Nom=Inputbox("Quelle est votre nom?") Reponse=inputbox("Entrez un nombre entre 1 et 100") select case Reponse case Reponse=111 msgbox("exit") case Reponse < intnumber Compteur=compteur+1 msgbox("Votre nombre est plus petit que le mien") case Reponse > intnumber Compteur=compteur+1 msgbox("Votre nombre est plus grand que le mien") case Reponse = intnumber msgbox("bravo") End select msgbox("Bravo, vous avez réussie en " & compteur & " tours")
Partager