InunoTaishou

Using a stop button to interrupt a function

5 posts in this topic

I've been racking my brain around this one all morning. Trying to make a script stop if a button is pressed. I don't want to use a hotkey because I'm trying to keep this completely GUI based.

 

Thought about some AdLibRegister but I don't think it would work properly.

Tried doing a GUIGetMsg in the start loop with a flag but it doesn't read the GUIGetMsg. Thought it was because it was in the onevent function so I moved it to a loop function, but no go.

Func main()
   $hGui = GUICreate("Test", 105, 40)
   GUISetOnEvent($GUI_EVENT_CLOSE, "_exit")

   $btnStart = GUICtrlCreateButton("Start", 10, 10, 40, 20)
   GUICtrlSetOnEvent(-1, "start")

   $btnStop = GUICtrlCreateButton("Stop", 55, 10, 40, 20)
   GUICtrlSetOnEvent(-1, "stop")

   GUISetState(@SW_SHOW)

   While 1
      Sleep(250)
   WEnd
EndFunc

Func start()
   Msgbox("", "", "Started")
   $startFlag = True
   loop()
   Return
EndFunc

Func loop()
   while $startFlag
      if GUIGetMsg() = $btnStop then stop()
      Sleep(250)
   WEnd
EndFunc

Func stop()
   MsgBox("","","Stopped")
   $startFlag = False
   Return
EndFunc

Is there any way to make it stop doing the function that was called using a button?

Share this post


Link to post
Share on other sites



1 person likes this

If I posted any code, assume that code was written using the latest release version unless stated otherwise. Also, if it doesn't work on XP I can't help with that because I don't have access to XP, and I'm not going to.
Give a programmer the correct code and he can do his work for a day. Teach a programmer to debug and he can do his work for a lifetime - by Chirag Gude
How to ask questions the smart way!

I hereby grant any person the right to use any code I post, that I am the original author of, on the autoitscript.com forums, unless I've specifically stated otherwise in the code or the thread post. If you do use my code all I ask, as a courtesy, is to make note of where you got it from.

Back up and restore Windows user files _Array.au3 - Modified array functions that include support for 2D arrays.  -  ColorChooser - An add-on for SciTE that pops up a color dialog so you can select and paste a color code into a script.  -  Customizable Splashscreen GUI w/Progress Bar - Create a custom "splash screen" GUI with a progress bar and custom label.  -  _FileGetProperty - Retrieve the properties of a file  -  SciTE Toolbar - A toolbar demo for use with the SciTE editor  -  GUIRegisterMsg demo - Demo script to show how to use the Windows messages to interact with controls and your GUI.  -   Latin Square password generator

Share this post


Link to post
Share on other sites

InunoTaishou,

The Interrupting a running function tutorial in the Wiki should give you the answer. :)

M23

1 person likes this

Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind._______My UDFs:

Spoiler

ArrayMultiColSort ---- Sort arrays on multiple columns
ChooseFileFolder ---- Single and multiple selections from specified path treeview listing
Date_Time_Convert -- Easily convert date/time formats, including the language used
ExtMsgBox --------- A highly customisable replacement for MsgBox
GUIExtender -------- Extend and retract multiple sections within a GUI
GUIFrame ---------- Subdivide GUIs into many adjustable frames
GUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView items
GUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeView
Marquee ----------- Scrolling tickertape GUIs
NoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxes
Notify ------------- Small notifications on the edge of the display
Scrollbars ----------Automatically sized scrollbars with a single command
StringSize ---------- Automatically size controls to fit text
Toast -------------- Small GUIs which pop out of the notification area

 

Share this post


Link to post
Share on other sites

Another method, that is handy if you want to have your program minimized etc, is a floating STOP button (separate EXE), that can write to a Registry or INI file entry, that your program regularly checks.


AutoIt.4.Life Clubrooms - Life is like a Donut (secret key)

Make sure brain is in gear before opening mouth!
Remember, what is not said, can be just as important as what is said.

Spoiler

What is the Secret Key? Life is like a Donut

If I put effort into communication, I expect you to read properly & fully, or just not comment.
Ignoring those who try to divert conversation with irrelevancies.
If I'm intent on insulting you or being rude, I will be obvious, not ambiguous about it.
I'm only big and bad, to those who have an over-active imagination.

I may have the Artistic Liesense ;) to disagree with you. TheSaint's Toolbox (be advised many downloads are not working due to ISP screwup with my storage)

userbar.png

Share this post


Link to post
Share on other sites

InunoTaishou,

The Interrupting a running function tutorial in the Wiki should give you the answer. :)

M23

 

I read that thing 2-3 times last night and this morning, couldn't figure it out... Posted this topic, played some Dying Light, came back to the topic and saw that. Read it again and finally figured it out.

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

AutoitSetOption("GuiOnEventMode", 1)

Global $hGui, $btnStart, $btnStop, $startFlag

main()

Func main()
   $hGui = GUICreate("Test", 105, 40)
   GUISetOnEvent($GUI_EVENT_CLOSE, "_exit")

   $btnStart = GUICtrlCreateButton("Start", 10, 10, 40, 20)
   GUICtrlSetOnEvent(-1, "start")

   $btnStop = GUICtrlCreateButton("Stop", 55, 10, 40, 20)
   GUICtrlSetOnEvent(-1, "stop")

   $dmyInterrupt = GUICtrlCreateDummy()
   GUICtrlSetOnEvent($dmyInterrupt, "interrupt")
   GUIRegisterMsg($WM_COMMAND, "interrupt")

   GUISetState(@SW_SHOW)

   While 1
      Sleep(250)
   WEnd
EndFunc

Func start()
   $startFlag = True

   ToolTip("start()", 0, 0)

   while $startFlag
      Sleep(250)
   WEnd

   Return
EndFunc

Func stop()
   ToolTip("stop()", 0, 0)
   sleep(500)
   ToolTip("")

   $startFlag = False

   Return
EndFunc

 Func interrupt($hWnd, $Msg, $wParam, $lParam)
     If BitAND($wParam, 0x0000FFFF) =  $btnStop Then $startFlag = False
     Return $GUI_RUNDEFMSG
 EndFunc

Func _exit()
   Exit
EndFunc

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now