1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32
| Dim Nom,intnumber,NombreDeCoups,Titre
Titre = "DEVINER LE NOMBRE CHOISI PAR L'ORDINATEUR"
randomize
intnumber = Int(Rnd * 101)
Msgbox intnumber & " Ceci est le jeu plus ou moins, vous devez devinez le nombre choisie au hasard entre 1 et 100."&vbcr&_
"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"&vbcr&_
"jusqu'à que vous avez trouvé son nombre et vous dit en combien dessais cela vous à prit pour trouver le nombre.",VbInformation,Titre
Nom=Inputbox("Quelle est votre nom?",Titre)
If Nom = "" Then Wscript.Quit
NombreDeCoups = 1
On Error Resume Next
While Reponse <> intnumber
Reponse = CInt(InputBox("Entrez un nombre entre 1 et 100",Titre))
If Err <> 0 Then MsgBox "Vous n'avez pas entré un nombre !",16,"Vous n'avez pas entré un nombre !"
Err.Clear
Select Case True
Case Reponse > 100
Msgbox "Le Nombre Choisi est > 100",64,Titre
Case Reponse < intnumber
MsgBox "C'est plus (+)!!!",64,"C'est plus (+)!!!"
NombreDeCoups = NombreDeCoups + 1
Case Reponse = intnumber
MsgBox "Très Bien joué ! " & Dblquote(Nom) & ", le nombre choisi par l'ordinateur était " & intnumber & " ." & vbCr & "Vous avez trouvé ce nombre en " & NombreDeCoups & " coups.",64,Titre
Case (Reponse > intnumber) and (Reponse < 101)
MsgBox "C'est moins (-)!!!",64,"C'est moins (-)!!!"
NombreDeCoups = NombreDeCoups + 1
End Select
Wend
Function Dblquote(str)
Dblquote = chr(34) & str & chr(34)
End Function |
Partager