How do I exit a function with another click from a button?

[eltorro]

In a very simple form

expandcollapse popup

#include <GUIConstants.au3>

$Form1 = GUICreate("AForm1", 145, 147, 193, 115)
$DoLoop = GUICtrlCreateButton("Do Loop", 30, 20, 75, 25, 0)
$Cancel = GUICtrlCreateButton("Cancel", 30, 60, 75, 25, 0)
$Progress1 = GUICtrlCreateProgress(35, 105, 70, 17)
GUISetState(@SW_SHOW)

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

Func DoLoop()
    $bCancel = False
    Local $p =0
    While (1+1=2)
        ConsoleWrite(".")
        if GUIGetMsg() = $Cancel Then
            If MsgBox(266292,"Cancel","Cancel, Are you sure?") = 6 Then
                GuiCtrlSetData($Progress1,0)                
                ExitLoop
            EndIf
        EndIf
        GuiCtrlSetData($Progress1,$p)
        if $p <100 Then
            $p +=1
        Else
            $p =0
        EndIf
        sleep(10)
    WEnd
EndFunc

Event mode cannot be used because there is no event checking when the loop is running.

[eltorro]

It just occured to me how to use this with event mode.

expandcollapse popup

#include <GUIConstants.au3>
Opt("GUIOnEventMode",1)
$Form1 = GUICreate("AForm1", 145, 147, 193, 115)
GUISetOnEvent(-3,"ExitFunc")
$DoLoop = GUICtrlCreateButton("Do Loop", 30, 20, 75, 25, 0)
GUICtrlSetOnEvent($DoLoop,"DoLoop")
$Cancel = GUICtrlCreateButton("Cancel", 30, 60, 75, 25, 0)
$Progress1 = GUICtrlCreateProgress(35, 105, 70, 17)
GUISetState(@SW_SHOW)

While 1
    sleep(100)
WEnd

Func DoLoop()
    $bCancel = False
    Local $p =0
    Local $oldOpt = Opt("GUIOnEventMode", 0)
    While (1+1=2)
        if GUIGetMsg() = $Cancel Then
            If MsgBox(266292,"Cancel","Cancel, Are you sure?") = 6 Then
                GuiCtrlSetData($Progress1,0)                
                ExitLoop
            EndIf
        EndIf
        GuiCtrlSetData($Progress1,$p)
        if $p <100 Then
            $p +=1
        Else
            $p =0
        EndIf
        sleep(10)
    WEnd
    Opt("GUIOnEventMode",$oldOpt)
EndFunc

Func ExitFunc()
    Exit
EndFunc

Switch to message mode for the loop and then back to event mode when done.

Edited May 10, 2007 by eltorro

[PsaltyDS]

Yes, let's rehash the code I wrote previously because that worked so well.

Okay, you know what, here's my current code.

OK, you've got what looks like a good OnEventMode GUI script there. Since the GuiGetMsg() part is commented out, it should run.

Now what is not working at this point?

Looks to me like you must be very close at this point.

[knight666]

It just occured to me how to use this with event mode.

expandcollapse popup

#include <GUIConstants.au3>
Opt("GUIOnEventMode",1)
$Form1 = GUICreate("AForm1", 145, 147, 193, 115)
GUISetOnEvent(-3,"ExitFunc")
$DoLoop = GUICtrlCreateButton("Do Loop", 30, 20, 75, 25, 0)
GUICtrlSetOnEvent($DoLoop,"DoLoop")
$Cancel = GUICtrlCreateButton("Cancel", 30, 60, 75, 25, 0)
$Progress1 = GUICtrlCreateProgress(35, 105, 70, 17)
GUISetState(@SW_SHOW)

While 1
    sleep(100)
WEnd

Func DoLoop()
    $bCancel = False
    Local $p =0
    Local $oldOpt = Opt("GUIOnEventMode", 0)
    While (1+1=2)
        if GUIGetMsg() = $Cancel Then
            If MsgBox(266292,"Cancel","Cancel, Are you sure?") = 6 Then
                GuiCtrlSetData($Progress1,0)                
                ExitLoop
            EndIf
        EndIf
        GuiCtrlSetData($Progress1,$p)
        if $p <100 Then
            $p +=1
        Else
            $p =0
        EndIf
        sleep(10)
    WEnd
    Opt("GUIOnEventMode",$oldOpt)
EndFunc

Func ExitFunc()
    Exit
EndFunc

Switch to message mode for the loop and then back to event mode when done.

Hey, thanks for your example!

That worked!

Well, sort of.

Turns out I was doing everything right, it just takes a HEFTY long time to go through the entire while loops, plus I had multiple while loops within that while loop.

I've placed the Cancel code at the beginning and the end of every loop, but it's still a bit slow.

But hey, it works!

[TheSaint]

Hi knight666

#include <GUIConstants.au3>

GUICreate("Template", 256, 256)

;here's some gui stuff going on, but that's not really important, is it?

While 1+1=2
$msg = GUIGetMsg()
 If $msg = $GUI_EVENT_CLOSE Then ExitLoop
 If $msg = $btnCancel Then ExitLoop
 If $msg = $btnStart2 Then Go()
Wend

GUISetState(@SW_SHOW)

Func Go()
 While 1+1=2
  ;all you really need to know is that it's MASSIVE and that this doesn't work
  If GUIGetMsg() = $btnCancel Then ExitLoop
 WEnd

Func CLOSEClicked()
  Exit
EndFunc

All you need to do is replace the line -

If GUIGetMsg() = $btnCancel Then ExitLoop

with the following two lines

GUIGetMsg()
 If Msg() = # Then ExitLoop

The # represents the button ID number for $btnCancel - which is basically the order number of controls, i.e. if you code 4 contols before the button control, then it will probably be 5 as your ID number. Use the AutoIt Window Info Tool to confirm this or some testing dialogs.

It's as simple as that ... I use it all the time to stop a routine midstream. If you have long sections of code just repeat those two lines at pertinent locations.

P.S. If you ever add an extra control in before your $btnCancel button, then you will need to increment the button ID number accordingly at that time.

Edited May 10, 2007 by TheSaint

[eltorro]

Yes, each loop would have to have the lookup.

I'm glad you got it qoing.

I changed this example a little.

I put the Cancel message lookup in a function that way there is a single point to modify if necessary.

expandcollapse popup

#include <GUIConstants.au3>
Opt("GUIOnEventMode",1)
$Form1 = GUICreate("AForm1", 145, 147, 193, 115)
GUISetOnEvent(-3,"ExitFunc")
$DoLoop = GUICtrlCreateButton("Do Loop", 30, 20, 75, 25, 0)
GUICtrlSetOnEvent($DoLoop,"DoLoop")
$Cancel = GUICtrlCreateButton("Cancel", 30, 60, 75, 25, 0)
$Progress1 = GUICtrlCreateProgress(35, 105, 70, 17)
GUISetState(@SW_SHOW)

While 1
    sleep(100)
WEnd

Func DoLoop()
    $bCancel = False
    Local $p =0
    Local $oldOpt = Opt("GUIOnEventMode", 0)
    While (1+1=2)
        if _CheckMsg() Then
            If MsgBox(266292,"Cancel","Cancel, Are you sure?") = 6 Then
                GuiCtrlSetData($Progress1,0)                
                ExitLoop
            EndIf
        EndIf
        GuiCtrlSetData($Progress1,$p)
        if $p <100 Then
            $p +=1
        Else
            $p =0
        EndIf
        sleep(10)
    WEnd
    Opt("GUIOnEventMode",$oldOpt)
EndFunc

Func ExitFunc()
    Exit
EndFunc

Func _CheckMsg()
    Local $Msg = GUIGetMsg()
    Switch $Msg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Cancel
            Return 1
        Case Else
            Return 0
    EndSwitch
EndFunc