[R] Problème de boucle

[Fatal]

Bonjour amis programmeurs!

J'aurais besoin de votre aide afin de finir mon programme que j'ai entamé, c'est un programme simple car je ne suis encore qu'un débutant! Je l'ai quasiment finit mais je ne sais pas comment faire une chose, voila mon code tout d'abords:

► Afficher le texte

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
Global $Form1 = GUICreate("Jeu de Michaël", 787, 489, 497, 347)
GUISetFont(8, 400, 0, "Copperplate Gothic Bold")
Global $Label1 = GUICtrlCreateLabel("Le jeu du Plus ou du Moins", 124, 16, 539, 43)
GUICtrlSetFont(-1, 22, 800, 0, "Ravie")
Global $Input1 = GUICtrlCreateInput("", 320, 80, 113, 21)
Global $Label2 = GUICtrlCreateLabel("Chiffre le plus petit:", 104, 88, 155, 19)
GUICtrlSetFont(-1, 10, 400, 0, "Copperplate Gothic Bold")
Global $Label3 = GUICtrlCreateLabel("Chiffre le plus grand:", 104, 128, 167, 19)
GUICtrlSetFont(-1, 10, 400, 0, "Copperplate Gothic Bold")
Global $Input2 = GUICtrlCreateInput("", 320, 120, 113, 21)
Global $Label4 = GUICtrlCreateLabel("Nombre de coup(s) Maximum:", 104, 168, 207, 19)
GUICtrlSetFont(-1, 10, 400, 0, "Copperplate Gothic Bold")
Global $Input3 = GUICtrlCreateInput("", 320, 160, 113, 21)
Global $Button1 = GUICtrlCreateButton("Valider", 500, 112, 113, 41, $WS_GROUP)
Global $Label5 = GUICtrlCreateLabel("", 68, 248, 236, 124)
GUICtrlSetFont(-1, 12, 400, 0, "Copperplate Gothic Bold")
GUICtrlSetFont(-1, 10, 400, 0, "Copperplate Gothic Bold")
Global $Progress1 = GUICtrlCreateProgress(48, 416, 705, 57)
Global $Button2 = GUICtrlCreateButton("Valider", 500, 112, 113, 41, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###


While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button1

            $chiffrePremier = GUICtrlRead($Input1)
            $chiffreDeuxieme = GUICtrlRead($Input2)
            $maximum = GUICtrlRead($Input3)

            Global $chiffreH = Random($chiffrePremier, $chiffreDeuxieme, 1)

            GUICtrlSetData($Progress1, 25)
            Sleep(500)

            GUICtrlSetData($Label5, "C'est bon, essayé de trouver le nombre mystère maintenant!")

            Global $i = 1
            Global $max = 0

            GUICtrlDelete($Input1)
            GUICtrlDelete($Input2)
            GUICtrlDelete($Input3)
            GUICtrlDelete($Button1)
            Global $Label7 = GUICtrlCreateLabel($chiffrePremier, 320, 80, 400, 21)
            GUICtrlSetFont(-1, 16, 400, 0, "Copperplate Gothic Bold")
            Global $Label8 = GUICtrlCreateLabel($chiffreDeuxieme, 320, 120, 400, 21)
            GUICtrlSetFont(-1, 16, 400, 0, "Copperplate Gothic Bold")
            Global $Label9 = GUICtrlCreateLabel($maximum, 320, 160, 400, 21)
            GUICtrlSetFont(-1, 16, 400, 0, "Copperplate Gothic Bold")
            Global $Label6 = GUICtrlCreateLabel("Nombre Mystère:", 392, 248, 129, 19)
            Global $Input4 = GUICtrlCreateInput("", 544, 248, 113, 21)


        Case $Button2



            $reponse = GUICtrlRead($Input4)

            $reponse = Number($reponse)


            If ($reponse > $chiffreH) Then
                GUICtrlSetData($Progress1, 60)
                Sleep(500)
                GUICtrlSetData($Label5, "Pas mal... mais c'est un peu moins !" & @CRLF & "Nombre tenté : " & $reponse)
            ElseIf ($reponse < $chiffreH) Then
                GUICtrlSetData($Progress1, 60)
                Sleep(500)
                GUICtrlSetData($Label5, "Pas mal... mais c'est un peu plus !" & @CRLF & "Nombre tenté : " & $reponse)
            ElseIf ($reponse = $chiffreH) Then
                Sleep(500)
                GUICtrlSetData($Progress1, 100)
                GUICtrlSetData($Label5, "Vous avez réussi ! Extraordinaire ! Bravo ! Bip Bip Bip Fin du programme.")
                GUICtrlDelete($Button2)
                GUICtrlDelete($Input4)
                Global $Label10 = GUICtrlCreateLabel($reponse, 544, 245, 113, 21)
                GUICtrlSetFont(-1, 16, 400, 0, "Copperplate Gothic Bold")
                Global $Button3 = GUICtrlCreateButton("Réessayer", 500, 112, 113, 41, $WS_GROUP)
                
        Case $Button3
                
                GUi

            EndIf

            $i = $i + 1
            $max = $max + 1

            If $maximum = $max - 1 Then

                Sleep(500)

                GUICtrlSetData($Label5, " Quel dommage vous avez fait " & $i - 1 & " coup(s) alors que vous aviez prévu " & $maximum & " coup(s), mais essayez quand même de trouver le nombre mystère!!!")

            EndIf



    EndSwitch
WEnd

Alors à la fin je voudrais que si le joueur appuie sur le "$Button3" le programme recommence mais je ne sais pas comment placé ma boucle! Est-ce qu'une fonction pourrait permettre sa? Voila, si je n'est pas été clair signalé le.

(Toutes idées pour amélioré le code est la bienvenue puisque je suis débutant, il doit y avoir pas mal de choses fausses )

Merci d'avance pour votre aide!!

Cordialement Fatal

[jbnh]

Salut,

Je pense le mieux c'est de reboot le script avec shellexecute @scriptdir et @scriptname.

[Fatal]

Salut,

Je pense le mieux c'est de reboot le script avec shellexecute @scriptdir et @scriptname.

Merci de ta réponse mais comment ces macro s'utilise elle?

Code : Tout sélectionner

Case $Button3

                ShellExecute @Scriptname("gui.au3")

Quelque chose comme sa?

Désolé de posé des question conne...

EDIT: c'est bon j'ai réussis, merci beaucoup de ton aide Je mets le [R]