J'ai amélioré le + ou - afin qu'il compte le nombre de coups jouait mais aussi qu'il vous propose de réessayait
Vous pouvez apercevoir que je n'est pas limiter les commentaire
► Afficher le texte
Code : Tout sélectionner
Const $title = 'Plus ou Moins'
;si dessous on initialize quelque variable :
Global $quest = 0 ;cette variable sera le nombre entrée par l'utilisateur
Global $ver = 0 ;cette variable est une 1ere variable de verification
Global $ver2 = 0 ;cette variable est une 2eme variable de verification
Global $END = 0 ;cette variable sert pour while si cette variable se change en 1 while ne vous laissera pas entré dans la boucle
Global $com = 0 ;cette variable compte le nombre de coups
;demande de participation -------------------------------------------------------------------------------------------------------------------------------
Global $ver = MsgBox(4, $title, 'description : ' & @CRLF & @CRLF & _
"Bonjour et bienvenu dans le jeu du + ou -. Le but est simple l'ordinateur va choisir un nombre compris entre 1 et 100 puis ensuite il " & _
"va vous proposez de lui proposez un nombre puis il vous dira si il est plus ou moins que le nombre choisit par l'ordinateur" & @CRLF & _
@CRLF & 'Souhaitez vous participé ?')
If $ver = 7 Then ;on quitte le programme si la variable ver(verification) et a 7
_Exit()
EndIf
;fin de demande de participation ------------------------------------------------------------------------------------------------------------------------
;********************************************************************************************************************************************************
;On demarre while si dessous afin de revenir lorsque
While $END = 0
If $ver = 6 Then ;on ne quitte pas le programme si la variable ver(verification) et a 6
$NMB = random(1,100,1) ;on initialize le nombre aléatoire
Do ;on se met dans une boucle "Faire - jusqu'à" (Do - Until)
Global $quest = InputBox($title, 'Veuillez indiquer un nombre :') ;on demande a l'utilisateur d'indiquer un nombre
$com = $com + 1 ;on lance le compteur (à chaque fois que l'on passeras par ici cela nous fera un coups en +
If $quest > $NMB Then ;si le nombre indiquer par l'utilisateur est plus grand que le nombre aléatoire alors on lui indique que c'est Moins
MsgBox(0, $title, 'Moins !', 15)
ElseIf $quest < $NMB Then ;si le nombre indiquer par l'utilisateur est plus petit que le nombre aléatoire alors on lui indique que c'est Plus
MsgBox(0, $title, 'Plus !', 15)
EndIf
Until $quest = $NMB ;fin de do si le nombre entrez par l'utilisateur est égale
EndIf
If $quest = $NMB Then
_GG() ;on lance la fonction voir les fonctions
EndIf
WEnd ;on marque la fin de while
Exit
;Fonctions si dessous : ----------------------------------------------------------------------------------------------------------------------------------
Func _Exit()
MsgBox(0, $title, 'Aurevoir !') ;message d'aurevoir !
Exit
EndFunc
Func _GG() ;fonction si l'on a gagner
$ver2 = MsgBox(5, $title, 'Gagner !!!' & @CRLF & 'En ' & $com & ' coups !' & @CRLF & 'Voulez-vous rejoué ?') ;on demande si on veut rejouer ?
If $ver2 = 2 Then
$END = 1 ;on change la variable en 1 se qui fera que l'on ne pourra pas rentrer dans la boucle while donc on se retrouvera apres le "Wend"
Else ;Sinon
$END = 0 ;on laisse la variable a 0
EndIf
EndFunc