Correction !
Vous n'y arrivez pas ? Recommencez encore une fois !

Vous n'y arrivez toujours pas ? Prenez un bout de papier et marquez l'algorithme du programme avec vos mots à vous. Et recommencez.

Vous n'y arrivez encore pas ? Je vois déjà vos yeux bouffis à minuit en train d'essayer de coder ce jeu.

Essayez demain, la tête froide, et tout sera plus clair (généralement, inutile de vous énerver devant un programme : ça ne fait pas avancer le schmilblick ; allez prendre l'air !).
J'espère que vous avez au moins réfléchi à ce petit programme, que vous avez essayé de coder quelque chose, ou que vous y êtes arrivé.
Parce que, quoi qu'il en soit, il est temps de passer à la correction !
Vous voulez voir le script ?
Secret (cliquez pour afficher)Vous êtes vraiment certain ?
Secret (cliquez pour afficher)
Code : Autre1
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
33
34
35
36
| ;/////////////////////////////////////////////////////////
; Script écrit pour le siteduzero.com
; LE JEU DU PLUS OU MOINS
;/////////////////////////////////////////////////////////
Const $chiffreH = Random(0, 100, 1)
$msg = MsgBox(4, "Tutoriel Zero", "Bonjour ! Bienvenue au jeu du Plus ou du Moins."& @CRLF &"Le but du jeu est le suivant :" & @CRLF & _
"Je tire un nombre au hasard que vous devrez deviner, puis je vous donne les indications 'plus' ou 'moins' pour vous aider. Vous êtes prêt ?")
;Ici Le Flag 4 Affiche OUI ou NON. Il va falloir traiter la réponse. Vous savez à quoi correspond @CRLF et @ _
If $msg = 7 Then _fermer() ; Si L'utilisateur répond Non, on quitte le programme.
;On peut maintenant passer à la boucle. On a choisit un Do... Until car on veut demander au moins une fois le nombre à l'utilisateur.
Do
$reponse = InputBox("Tutoriel Autoit siteduzero.com", "Rentrez un nombre de 0 à 100")
;$reponse contient la valeur retournée par l'utilisateur. Vous voyez qu'on n'a pas eu besoin de la déclarer précédemment.
If @error Then _fermer() ; Si l'utilisateur appuie sur Cancel on quitte le programme.
;On va maintenant prévoir une erreur utilisateur, en effet celui ci a pu entrer une chaine de caractères, on va donc utiliser la fonction Nombre()
$reponse = Number($reponse) ; Si $reponse était une chaine de caractères, il devient 0. Plus d'aide dans la doc (F1).
If ($reponse > $chiffreH) Then
MsgBox(0, "Tutoriel Autoit siteduzero.com", "Pas mal... mais c'est un peu moins !" & @CRLF & "Nombre tenté : "&$reponse)
ElseIf ($reponse < $chiffreH) Then
MsgBox(0, "Tutoriel Autoit siteduzero.com", "Pas mal... mais c'est un peu plus !" & @CRLF & "Nombre tenté : "&$reponse)
EndIf
Until ($reponse = $chiffreH)
MsgBox(1, " WoOoW!", " Vous avez réussi ! Extraordinaire ! Bravo ! Bip Bip Bip Fin du programme.")
Func _fermer()
MsgBox(0,"Tutoriel Zero","Quel Dommage de vouloir quitter ! La communauté Autoitscript vous souhaite une bonne journée.")
Exit
EndFunc |
Je pense que le code se passe de tout commentaire, mais sachez que j'ai essayé d'introduire les notions vues précédemment même si elles ne sont pas obligatoires.
De plus, si vous avez fait autre chose et que ça marche, c'est encore mieux !