AutoIt Français

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