Jump to content

Recommended Posts

Posted

I have this code:

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
 
GUICreate("Test GUI",400,200)
GUISetState(@SW_SHOW)
$StartBtn = GUICtrlCreateButton("START",100,170,100,20)
$StopBtn = GUICtrlCreateButton("STOP",220,170,100,20)
 
While 1
  $msg = GUIGetMsg()
  Select
  Case $msg = $GUI_EVENT_CLOSE
   ExitLoop
  Case $msg = $StartBtn
  
  Case $msg = $StopBtn
 
  EndSelect
WEnd
GUIDelete()
 
 
Func Script()
    While 1
    ....
    ...
    WEnd
EndFunc

What I'd like to do is to start and stop the function Script() when I press the interface buttons.

The problem is that the function has it's own endless cycle that checkes something on the screen every few sec and puts data into a file.

How to call this function so it won't pause the main script?

  • Moderators
Posted

tempo,

I suggest reading the Interrupting a running function tutorial in the Wiki. Please ask if you have any questions once you have read it. :graduated:

M23

Public_Domain.png.2d871819fcb9957cf44f4514551a2935.png Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind

Open spoiler to see 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

 

Posted (edited)

While $Toggle is True the loop will continue, when False it will exit While...WEnd in Script Function.

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
Opt("GUIOnEventMode", 1)
GUICreate("Test GUI", 400, 200)
GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")
GUISetState(@SW_SHOW)
$StartStop = GUICtrlCreateButton("START", 100, 170, 100, 20)
GUICtrlSetOnEvent(-1, "Toggle")
$Toggle = False
While 1
Sleep(10)
WEnd
Func Script()
While $Toggle
  Sleep(10)
WEnd
EndFunc   ;==>Script
Func Toggle()
$Toggle = Not $Toggle
If $Toggle Then
  GUICtrlSetData($StartStop, "STOP")
Else
  GUICtrlSetData($StartStop, "START")
EndIf
EndFunc   ;==>Toggle
Func _Exit()
GUIDelete()
Exit
EndFunc   ;==>_Exit

autoit tags looks horrible.......

Edited by rogue5099
Posted

While $Toggle is True the loop will continue, when False it will exit While...WEnd in Script Function.

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
Opt("GUIOnEventMode", 1)
GUICreate("Test GUI", 400, 200)
GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")
GUISetState(@SW_SHOW)
$StartStop = GUICtrlCreateButton("START", 100, 170, 100, 20)
GUICtrlSetOnEvent(-1, "Toggle")
$Toggle = False
While 1
Sleep(10)
WEnd
Func Script()
While $Toggle
  Sleep(10)
WEnd
EndFunc   ;==>Script
Func Toggle()
$Toggle = Not $Toggle
If $Toggle Then
  GUICtrlSetData($StartStop, "STOP")
Else
  GUICtrlSetData($StartStop, "START")
EndIf
EndFunc   ;==>Toggle
Func _Exit()
GUIDelete()
Exit
EndFunc   ;==>_Exit

autoit tags looks horrible.......

Mmm... so where do you call Script() function?

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
  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...