Multiple independently timed executions

[yessiree]

I have an array of integers. These numbers represent seconds. The number of items in this array is user defined.

I want to loop through this array, read the integer value, and call a function that will execute once after {value} seconds.

Is there a way to do this via AdlibRegister() ?

 

#include <AutoItConstants.au3>
#include <Array.au3>

Example()

Func Example()
    Global $aArray[3] = [10, 5, 2]


    For $i = 0 To 2
        AdlibUnRegister("myFunc")
        AdlibRegister("myFunc", $aArray[$i])
    Next
    _ArrayDisplay($aArray)
EndFunc



Func myFunc()
    ConsoleWrite("TimeOut called")
EndFunc

 

Thanks in advance

Edited October 6, 2015 by yessiree

[ViciousXUSMC]

The short answer is yessiree, but without any code/example I don't think you will get much help.

[yessiree]

The short answer is yessiree, but without any code/example I don't think you will get much help.

I added code, can you take a look

[ViciousXUSMC]

So you only have a single function not more than one?  That makes it easy.

The code you posted looks like it should work to me, just keep in mind its milliseconds so your going to want to make those way bigger integer values

The other thing I see is you have nothing to keep the script running in that example so it would register the function and then close.

You need this somewhere

While 1
Sleep(10)
WEnd

 

Edited October 6, 2015 by ViciousXUSMC

[kylomas]

Take a look at the adlibregister doc.  When you define the same func it is reset to the new timer value.  You might be able to do this by sorting the array and keeping track of intervals to the next call but it would be easier to implement an array of timers based on the array of timing values inputed by the user.  I cant work up any code right now as i am responding from a phone.

 

[yessiree]

Take a look at the adlibregister doc.  When you define the same func it is reset to the new timer value.  You might be able to do this by sorting the array and keeping track of intervals to the next call but it would be easier to implement an array of timers based on the array of timing values inputed by the user.  I cant work up any code right now as i am responding from a phone.

 

Thanks for the input, I'll try to see where I can go with this

[yessiree]

#include <AutoItConstants.au3>
#include <Array.au3>

Global $aArray[3] = [10, 5, 2]
Global $timerActive[3] = [0,0,0]
Global $timer[3]

AdlibRegister("myFunc", 500)

Example()

Func Example()
    While 1
        For $i = 0 To 2
            If $timerActive[$i] == 0 Then
                $timerActive[$i] = 1
                $timer[$i] = TimerInit()
            EndIf
        Next
        Sleep(50)
    WEnd
    _ArrayDisplay($aArray)
EndFunc

Func myFunc()
    For $j = 0 To 2
        if $timerActive[$j] == 1 Then
            If Int(TimerDiff($timer[$j])) >= $aArray[$j]*1000 Then
                $timerActive[$j] = 0
            EndIf
        EndIf
    Next
EndFunc

So I figured out how to do it. But I still can't figure out why this language doesn't have a setTimeout() function

[BrewManNH]

So I figured out how to do it. But I still can't figure out why this language doesn't have a setTimeout() function

What are you looking for that's not available in the language now? What does the settimeout function do that one of the functions already in the language not do now?

[yessiree]

What are you looking for that's not available in the language now? What does the settimeout function do that one of the functions already in the language not do now?

Well, instead of implementing timers and watchers that unnecessarily complicate your program, or calling Sleep() that blocks the main thread, you have a reliable function that does something after a fixed amount of time has passed?

[Melba23]

yessiree,

I do not call this complicated:

expandcollapse popup

HotKeySet("{ESC}", "_Exit")
Func _Exit()
    Exit
EndFunc



; Set up the functions to run just once
Func _Func_0()
    ; Cancel Adlib
    AdlibUnRegister(_Func_0)
    ; Run code
    ConsoleWrite("Func_0 called at " & @SEC & @CRLF)
EndFunc



Func _Func_1()
    AdlibUnRegister(_Func_1)
    ConsoleWrite("Func_1 called at " & @SEC & @CRLF)
EndFunc



Func _Func_2()
    AdlibUnRegister(_Func_2)
    ConsoleWrite("Func_2 called at " & @SEC & @CRLF)
EndFunc



; Create array holding delay times and associated functions
Global $aArray[3][2] = [[10, _Func_0], [5, _Func_1], [2, _Func_2]]

; Set the Adlibs
For $i = 0 To 2
    AdlibRegister($aArray[$i][1], $aArray[$i][0] * 1000)
Next

ConsoleWrite("Started at " & @SEC & @CRLF)

While 1
    Sleep(10)
WEnd

3 functions, one array and a setting loop - hardly onerous.

M23

[BrewManNH]

Or even this using _Timer_SetTimer

expandcollapse popup

#include <GUIConstantsEx.au3>
#include <GuiStatusBar.au3>
#include <ProgressConstants.au3>
#include <Timers.au3>
#include <WindowsConstants.au3>

Global $g_idMemo, $g_hStatus, $g_idProgress, $g_iPercent = 0, $g_iDirection = 1

_Example_CallBack()

Func _Example_CallBack()
    Local $hGUI, $iTimerProgress, $idChange, $iWait = 10, $idState
    Local $aParts[3] = [75, 330, -1]

    $hGUI = GUICreate("Timers Using CallBack Function(s)", 400, 320)
    $g_idMemo = GUICtrlCreateEdit("", 2, 32, 396, 226, BitOR($WS_HSCROLL, $WS_VSCROLL))
    GUICtrlSetFont($g_idMemo, 9, 400, 0, "Courier New")
    $idState = GUICtrlCreateButton("Start Progress Bar", 70, 270, 100, 25)
    $idChange = GUICtrlCreateButton("Change", 215, 270, 90, 25)
    GUICtrlSetState($idChange, $GUI_DISABLE)
    $g_hStatus = _GUICtrlStatusBar_Create($hGUI, $aParts)
    _GUICtrlStatusBar_SetText($g_hStatus, "Timers")
    _GUICtrlStatusBar_SetText($g_hStatus, @TAB & @TAB & StringFormat("%02d:%02d:%02d", @HOUR, @MIN, @SEC), 2)
    $g_idProgress = GUICtrlCreateProgress(0, 0, -1, -1, $PBS_SMOOTH)
    GUICtrlSetColor($g_idProgress, 0xff0000)
    _GUICtrlStatusBar_EmbedControl($g_hStatus, 1, GUICtrlGetHandle($g_idProgress))
    GUISetState(@SW_SHOW)

    _Timer_SetTimer($hGUI, 1000, "_UpdateStatusBarClock") ; create timer

    While 1
        Switch GUIGetMsg()
            Case $GUI_EVENT_CLOSE
                ExitLoop
            Case $idState
                If GUICtrlRead($idState) = "Start Progress Bar" Then
                    $iTimerProgress = _Timer_SetTimer($hGUI, $iWait, "_UpdateProgressBar") ; create timer
                    If @error Or $iTimerProgress = 0 Then ContinueLoop
                    GUICtrlSetData($idState, "Stop Progress Bar")
                    GUICtrlSetState($idChange, $GUI_ENABLE)
                Else
                    GUICtrlSetState($idChange, $GUI_DISABLE)
                    _Timer_KillTimer($hGUI, $iTimerProgress)
                    GUICtrlSetData($idState, "Start Progress Bar")
                EndIf

            Case $idChange
                If $iWait = 10 Then
                    $iWait = 250
                Else
                    $iWait = 10
                EndIf
                MemoWrite("Timer for _UpdateProgressBar set at: " & $iWait & " milliseconds")
                $iTimerProgress = _Timer_SetTimer($hGUI, $iWait, "", $iTimerProgress) ; reuse timer with different interval
        EndSwitch
    WEnd
    ConsoleWrite("Killed All Timers? " & _Timer_KillAllTimers($hGUI) & @CRLF) ; must be True as the timer to "_UpdateStatusBarClock" have not been killed
    GUIDelete()
EndFunc   ;==>_Example_CallBack

; call back function
Func _UpdateStatusBarClock($hWnd, $iMsg, $iIDTimer, $iTime)
    #forceref $hWnd, $iMsg, $iIDTimer, $iTime
    _GUICtrlStatusBar_SetText($g_hStatus, @TAB & @TAB & StringFormat("%02d:%02d:%02d", @HOUR, @MIN, @SEC), 2)
EndFunc   ;==>_UpdateStatusBarClock

; call back function
Func _UpdateProgressBar($hWnd, $iMsg, $iIDTimer, $iTime)
    #forceref $hWnd, $iMsg, $iIDTimer, $iTime
    $g_iPercent += 5 * $g_iDirection
    GUICtrlSetData($g_idProgress, $g_iPercent)
    If $g_iPercent = 100 Or $g_iPercent = 0 Then $g_iDirection *= -1
    If $g_iPercent = 100 Then
        GUICtrlSetColor($g_idProgress, 0xff0000)
    ElseIf $g_iPercent = 0 Then
        GUICtrlSetColor($g_idProgress, 0x0000ff)
    EndIf
EndFunc   ;==>_UpdateProgressBar

; Write a line to the memo control
Func MemoWrite($sMessage)
    GUICtrlSetData($g_idMemo, $sMessage & @CRLF, 1)
EndFunc   ;==>MemoWrite

 

[yessiree]

yessiree,

I do not call this complicated:

3 functions, one array and a setting loop - hardly onerous.

M23

M23, I only used 3 functions for the sake of a simple example. In practice, the number of array elements is user defined. How would you dynamically declare the function callbacks if that's the case?

[Melba23]

yessiree,

if the user defines the number of functions to call, how are the functions themselves determined? I can only imagine that they are already present in the script - in which case the user just chooses the function to run when setting the time, possibly via a combo.

Perhaps if you gave some details of what exactly you are trying to do we might be able to offer more focused help - at the moment we can only offer generalities.

M23

[yessiree]

yessiree,

if the user defines the number of functions to call, how are the functions themselves determined? I can only imagine that they are already present in the script - in which case the user just chooses the function to run when setting the time, possibly via a combo.

Perhaps if you gave some details of what exactly you are trying to do we might be able to offer more focused help - at the moment we can only offer generalities.

M23

Hi M23,

Okay, I have a 2D array that looks like this

;
;   BIND    CD  isOnCD
;   5       10  0
;   6       5   0
;   7       2   0

BIND is the keybind to be pressed, and CD (cooldown) dictates how often the corresponding key needs to be pressed, and isOnCD is a flag that indicates whether this key is on cooldown. This array is sorted based on CD, from longest to shortest.

The program loops through this array indefinitely. If the key is off cooldown, it is pressed, and isOnCD is set to 1, else, move on to the next key. Here is when the timers come in. If there was a setTimeout() function, after the key is pressed, I simply call setTimeout() and set its isOnCD flag back to 0 after CD seconds.

Hope my explanation makes sense. I just started using autoIt yesterday so I don't know what would be the best approach for this kind of stuff. Any suggestions are appreciated.

Edited October 7, 2015 by yessiree

[Melba23]

yessiree,

That simplifies things a lot:

HotKeySet("{ESC}", "_Exit")

; Create array holding binds, delay times and associated timestamps
Global $aArray[3][3] = [[5, 10, TimerInit()], [6, 5, TimerInit()], [7, 2, TimerInit()]]

ConsoleWrite("Started at " & @SEC & @CRLF)

While 1
    ; Check the timer
    For $i = 0 To UBound($aArray) - 1
        If TimerDiff($aArray[$i][2]) > ($aArray[$i][1] * 1000) Then
            ; Reset timestamp
            $aArray[$i][2] = TimerInit()
            ; Do what you need
            ConsoleWrite("Bind " & $aArray[$i][0] & " fired at " & @SEC & @CRLF)
        EndIf

    Next
WEnd



Func _Exit()
    Exit
EndFunc

And I get: this returned

Started at 44         5   6   7
Bind 7 fired at 46            46 
Bind 7 fired at 48            48
Bind 6 fired at 49        49
Bind 7 fired at 50            50 
Bind 7 fired at 52            52
Bind 5 fired at 54    54
Bind 6 fired at 54        54
Bind 7 fired at 54            54
Bind 7 fired at 56            56
Bind 7 fired at 58            58
Bind 6 fired at 59        59
Bind 7 fired at 00            00
Bind 7 fired at 02            02
Bind 5 fired at 04    04
Bind 6 fired at 04        04
Bind 7 fired at 04            04
Bind 7 fired at 06            06

Required gap          10  05  02

which looks just what you wanted.

M23

[kylomas]

M23 - nice just what i had in mind in post #6