[R] lancer/arreter une boucle avec boutons

[Oxygene31]

Salut à tous la questions à peut être été posé mais je n'ai pas trouvé ma réponse avec la fonction recherche.

Ma question est toute bête je veux lancer une boucle type while avec un bouton et l'arrêter avec un autre.

Voici mon script

Code : Tout sélectionner

#include <GUIConstants.au3>

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 201, 49, 193, 115)
$B1 = GUICtrlCreateButton("Button1", 8, 8, 81, 25)
$B2 = GUICtrlCreateButton("Button1", 104, 8, 81, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
Global $i
    
    Func start()
        $i=1
    EndFunc
    
    Func quit (()
        $i=0
    EndFunc
    
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $B1
            start()
            while 1
                If $i Then
                    send("a")
                EndIf
            WEnd
            Case $B2        
                quit()
    EndSwitch
WEnd
 

Merci de votre aide

[Yogui]

Mettre un while infini dans un while infini c'est pas très joli (je ne sais pas comment exprimer que ça ne se fait pas )

► Afficher le texte

Code : Tout sélectionner

#include <GUIConstants.au3>

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 201, 49, 193, 115)
$B1 = GUICtrlCreateButton("Button1", 8, 8, 81, 25)
$B2 = GUICtrlCreateButton("Button1", 104, 8, 81, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

Global $i


While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $B1
            $i = 0
        Case $B2
            $i = 1
    EndSwitch
    If $i = 0 Then
        Send('a')
        Sleep(50)
    EndIf
WEnd

J'ai ajouté une commande Sleep(50) pour éviter de bouffer tout le temps processeur

[Oxygene31]

Merci beaucoup ça marche super !!!!

[Yogui]

De rien par contre un petit [R] sur le titre de ce topic me ferai plaisir
(en passant la balise pour les demandes c'est [..] pas [...] mais bon )