Loop problem

[sanhen]

Once i press button start function...

Press the button again to stop function ...

I would like to ask how to achieve?

expandcollapse popup

#include <GUIConstants.au3>
#include <ButtonConstants.au3>
Opt("GUIOnEventMode", 1)

$Stop = 0
    
$hGUI=GUICreate ("test", 300,120,-1,-1)
GUISetOnEvent($GUI_EVENT_CLOSE, "GuiMsg")

$button1 = GUICtrlCreateCheckbox("test", 100, 20, 80, 25,$BS_PUSHLIKE)
GUICtrlSetOnEvent($button1, "ControlMsg")

GUISetState()

While 1
    
Sleep(1000)

Wend



Func GuiMsg()
    Switch @GUI_CTRLID 
        Case $GUI_EVENT_CLOSE
            Exit                    
        Case $GUI_EVENT_MINIMIZE
            guisetstate(@SW_MINIMIZE)
    EndSwitch
EndFunc


Func ControlMsg()
    
    If BitAND(GuiCtrlRead(@GUI_CtrlId), $GUI_CHECKED) Then
        GUICtrlSetData(@GUI_CtrlId,"11111")
        $Stop = 0
        _test()
    Else
        GUICtrlSetData(@GUI_CtrlId,"22222")
        $Stop = 1
    EndIf
    
EndFunc



Func _test()
    
    $i =0
        Do
            $i+=1
            GUICtrlSetData($button1,$i)
            Sleep(500)
        Until $Stop = 1 or $i=1000000
        
EndFunc

[Melba23]

@sanhen,

I believe that you cannot recall a function if it is already running. So if you call your _test() function from within the ControlMsg() function, you cannot "re"call the ControlMsg() function until it has executed. Therefore you need to place the call to _test() outside ControlMsg() to enable it to return. The following shows what I mean:

expandcollapse popup

#include <GUIConstants.au3>
#include <ButtonConstants.au3>
Opt("GUIOnEventMode", 1)

$Stop = 0
    
$hGUI=GUICreate ("test", 300,120,-1,-1)
GUISetOnEvent($GUI_EVENT_CLOSE, "GuiMsg")

$button1 = GUICtrlCreateCheckbox("test", 100, 20, 80, 25,$BS_PUSHLIKE)
GUICtrlSetOnEvent($button1, "ControlMsg")

$label1 = GUICtrlCreateLabel("", 100, 70, 80, 25)

GUISetState()

While 1
    
    Sleep(100)

    If $Stop = 0 Then _test()

Wend



Func GuiMsg()
    Switch @GUI_CTRLID 
        Case $GUI_EVENT_CLOSE
            Exit                
        Case $GUI_EVENT_MINIMIZE
            guisetstate(@SW_MINIMIZE)
    EndSwitch
EndFunc


Func ControlMsg()
   
    If BitAND(GuiCtrlRead($button1), $GUI_CHECKED) = $GUI_CHECKED Then
        $Stop = 0
    Else
        $Stop = 1
    EndIf
    
EndFunc



Func _test()
    
    $i =0
        Do
            $i+=1
            GUICtrlSetData($button1, $i)
            Sleep(500)
        Until $Stop = 1 or $i=1000000
        
EndFunc

Hope this helps,

M23

[rasim]

@sanhen

This discussed many times:

Easy method (not reliable, need a thick loop)

expandcollapse popup

#include <GUIConstants.au3>
#include <ButtonConstants.au3>

Opt("GUIOnEventMode", 1)

$hGUI = GUICreate("test", 300, 120, -1, -1)
GUISetOnEvent($GUI_EVENT_CLOSE, "GuiMsg")

$button1 = GUICtrlCreateCheckbox("test", 100, 20, 80, 25, $BS_PUSHLIKE)
GUICtrlSetOnEvent($button1, "ControlMsg")

GUISetState()

While 1
    Sleep(1000)
WEnd

Func GuiMsg()
    Switch @GUI_CtrlId
        Case $GUI_EVENT_CLOSE
            Exit
        Case $GUI_EVENT_MINIMIZE
            GUISetState(@SW_MINIMIZE)
    EndSwitch
EndFunc   ;==>GuiMsg

Func ControlMsg()
    If BitAND(GUICtrlRead(@GUI_CtrlId), $GUI_CHECKED) Then
        GUICtrlSetData(@GUI_CtrlId, "11111")
        _test()
    Else
        GUICtrlSetData(@GUI_CtrlId, "22222")
    EndIf
EndFunc   ;==>ControlMsg

Func _test()
    Local $iOld_EventMode = Opt("GUIOnEventMode", 0)
    Local $i = 0
    
    While 1
        If (GUIGetMsg() = $button1) Or ($i = 1000000) Then ExitLoop
        $i += 1
        GUICtrlSetData($button1, $i)
        Sleep(300)
    WEnd
    
    GUICtrlSetData($button1, "22222")
    Opt("GUIOnEventMode", $iOld_EventMode)
EndFunc   ;==>_testoÝ÷ Øojwvg­kzXnWºÚ"µÍÚ[ÛYH ÑÕRPÛÛÝ[Ë]LÉÝÂÚ[ÛYH  Ð]ÛÛÛÝ[Ë]LÉÝÂÚ[ÛYH   ÕÚ[ÝÜÐÛÛÝ[Ë]LÉÝÂÜ
    ][ÝÑÕRSÛ][[ÙI][ÝËJBÛØ[ ÌÍÔÝÜÌÍÚÕRHHÕRPÜX]J  ][ÝÝÝ    ][ÝËÌLLKLJBÕRTÙ]Û][
    ÌÍÑÕRWÑUSÐÓÔÑK ][ÝÑÝZSÙÉ][ÝÊBÌÍØ]ÛHHÕRPÝÜX]PÚXÚØÞ
    ][ÝÝÝ    ][ÝËLK    ÌÍÐ×ÔTÒRÑJBÕRPÝÙ]Û][
    ÌÍØ]ÛK  ][ÝÐÛÛÛÙÉ][ÝÊBÕRTYÚÝÙÊ    ÌÍÕÓWÐÓÓSPS  ][Ý×ÕÓWÐÓÓSPS    ][ÝÊBÕRTÙ]Ý]J
BÚ[HBTÛY
L
BÑ[[ÈÕÓWÐÓÓSPS
    ÌÍÚÛ    ÌÍÓÙË  ÌÍÝÔ[K  ÌÍÛ[JBSØØ[ ÌÍÛÛÛÛH]S
    ÌÍÝÔ[KBSØØ[   ÌÍÛÝYHH]ÚY
    ÌÍÝÔ[KMBBTÝÚ]Ú   ÌÍÛÛÛÛBPØÙH ÌÍØ]ÛBBBTÝÚ]Ú    ÌÍÛÝYBBBBPØÙH ÌÍÐÐÓPÒÑQBBBBRY]S
ÕRPÝXY
    ÌÍÛÛÛÛ
K   ÌÍÑÕRWÐÒPÒÑQ
H[BBBBBIÌÍÔÝÜHBBBBQ[ÙBBBBBBIÌÍÔÝÜHBBBBBQ[YBBQ[ÝÚ]ÚQ[ÝÚ]ÚBT]    ÌÍÑÕRWÔSQTÑÂ[[ÈÏOIÝ×ÕÓWÐÓÓSPS[ÈÝZSÙÊ
BTÝÚ]ÚÕRWÐÝYBPØÙH   ÌÍÑÕRWÑUSÐÓÔÑBBBQ^]BPØÙH ÌÍÑÕRWÑUSÓRSSRVBBBQÕRTÙ]Ý]JÕ×ÓRSSRVJBQ[ÝÚ]Ú[[ÈÏOIÝÑÝZSÙÂ[ÈÛÛÛÙÊ
BRY]S
ÕRPÝXY
ÕRWÐÝY
K   ÌÍÑÕRWÐÒPÒÑQ
H[BQÕRPÝÙ]]JÕRWÐÝY    ][ÝÌLLLLI][ÝÊBBWÝÝ

BQ[ÙBBQÕRPÝÙ]]JÕRWÐÝY    ][ÝÌ][ÝÊBQ[Y[[ÈÏOIÝÐÛÛÛÙÂ[ÈÝÝ

BSØØ[ ÌÍÚHHBUÚ[HBBRY
    ÌÍÔÝÜHJHÜ
    ÌÍÚHHL
H[^]ÛÜBIÌÍÚH
ÏHBBQÕRPÝÙ]]J   ÌÍØ]ÛK  ÌÍÚJBBTÛY
Ì
BUÑ[BNÉÌÍÔÝÜH[[ÈÏOIÝ×ÝÝ

[sanhen]

Thank you all very much help.