stop infinite loop

lioncool · 04/10/2016, 00:13

Opt("GUIOnEventMode", 1)
Global $RunState = False

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 231, 67, 1144, 503)
$Start = GUICtrlCreateButton("Start", 16, 16, 91, 25)
GUICtrlSetOnEvent(-1, "Start")
$Stop = GUICtrlCreateButton("Stop", 112, 16, 99, 25)
GUICtrlSetOnEvent(-1, "Stop")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
Sleep (1000)
WEnd

Func Start ()
$RunState = True
If $RunState then
while 1
ToolTip('working',0,0)
Sleep (1000)
WEnd
EndIf

EndFunc

Func Stop ()

$RunState = False
ToolTip('stop',0,0)

EndFunc

alpines · 04/10/2016, 00:25

Check for a variable $bRunning instead of repeating the loop over and over again. If you run Stop() set the variable to false and the loop will automatically exit.

lioncool · 04/10/2016, 00:39

i added $RunState = False still not work

elmarcia · 04/10/2016, 02:47

U only need one loop, don't use onevent methods because if u have an inside loop will fail.
Use guigetmsg() instead

Spoiler

HaMaDa.. · 04/13/2016, 00:19

This should help you.

Code:

#RequireAdmin #include <ButtonConstants.au3> #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> #Region ### START Koda GUI section ### Form= $Form1 = GUICreate("Form1", 231, 67, 1144, 503) $Start = GUICtrlCreateButton("Start", 16, 16, 91, 25) $Stop = GUICtrlCreateButton("Stop", 112, 16, 99, 25) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Case $Start Start() Case $Stop Stop() EndSwitch WEnd Func Start() ToolTip("Working",0,0) EndFunc Func Stop() ToolTip("",0,0) Endfunc

mlukac89 · 04/14/2016, 00:06

Quote:

Originally Posted by HaMaDa..

This should help you.

Code:

#RequireAdmin #include <ButtonConstants.au3> #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> #Region ### START Koda GUI section ### Form= $Form1 = GUICreate("Form1", 231, 67, 1144, 503) $Start = GUICtrlCreateButton("Start", 16, 16, 91, 25) $Stop = GUICtrlCreateButton("Stop", 112, 16, 99, 25) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Case $Start Start() Case $Stop Stop() EndSwitch WEnd Func Start() ToolTip("Working",0,0) EndFunc Func Stop() ToolTip("",0,0) Endfunc

Here is working code u forgot to add Exit under $GUI_EVENT_CLOSE

Code:

#RequireAdmin
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>


#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 231, 67, 1144, 503)
$Start = GUICtrlCreateButton("Start", 16, 16, 91, 25)
$Stop = GUICtrlCreateButton("Stop", 112, 16, 99, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###


While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Start
          Start()
        Case $Stop
          Stop()
    EndSwitch
WEnd


Func Start()
   ToolTip("Working",0,0)
EndFunc


Func Stop()
   ToolTip("Stoped",0,0)
Endfunc

HaMaDa.. · 04/15/2016, 01:51

Quote:

Originally Posted by mlukac89

Here is working code u forgot to add Exit under $GUI_EVENT_CLOSE

Code:

#RequireAdmin
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>


#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 231, 67, 1144, 503)
$Start = GUICtrlCreateButton("Start", 16, 16, 91, 25)
$Stop = GUICtrlCreateButton("Stop", 112, 16, 99, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###


While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Start
          Start()
        Case $Stop
          Stop()
    EndSwitch
WEnd


Func Start()
   ToolTip("Working",0,0)
EndFunc


Func Stop()
   ToolTip("Stoped",0,0)
Endfunc

Yea sorry, forgot it.

lioncool · 04/15/2016, 02:27

got it guys thx

Lawliet · 04/15/2016, 17:11

#closed