| creation jeux VBS |
Créer un jeu en VBS
1)Pour commencer, ouvrez le bloc-note.
2)Tapez le code suivant (faite un copier-coller).
msgbox "Bonjour, es-tu pret à relever le défi du nombre mystère ?"_
+ chr(13) _
+ chr(13) _
+ "Léo a choisi un nombre entre 1 et 1000, et tu dois le trouver !"_
+ chr(13) _
+ "Quand tu tapes un nombre, je te dis s'il est plus grand ou plus petit que le nombre de Léo."_
+ chr(13) _
+ "Mais tu n'as que 10 essais pour le trouver." _
+ chr(13) _
+ chr(13) _
+ "Bonne chance, mais tu ne peux pas gagner face à lui !", , "Le nombre mystère"
Randomize
secret = Int((1000 * Rnd) + 1)
tentative = 0
do
tentative = tentative + 1
if (tentative > 10) then
msgbox "Ah! Trop de tentatives,tu as perdu !"
Wscript.quit
else
end if
nombre = cint(inputbox ("Donne un nombre entre 1 et 1000"))
if (nombre = secret) then
msgbox "GAGNÉ !" _
+ chr(13) _
+ "Bravo, tu as trouvé en " & tentative & " coups !"
Wscript.quit
else
if (nombre > secret) then
msgbox "Trop grand !"
else
msgbox "Trop petit !"
end if
end if
loop
3)Une fois fini, allez dans fichier, faite enregistrer-sous et nommer le comme vous voulez mais ajoutez .VBS
Ce tutoriel est maintenant fini, à bientôt.
|