Timeing?

[uplink477]

I got a quick question, how would i go about making my script run a function say every 20 seconds?

[sandin]

#include <GUIConstants.au3>
$time = 2 ;in seconds
$Form1 = GUICreate("AForm1", 165, 113, 193, 115)
$Input1 = GUICtrlCreateInput("1", 32, 32, 97, 21)
GUISetState(@SW_SHOW)
AdlibEnable("_myadlib", $time*1000)
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
    EndSwitch
WEnd
func _myadlib ()
    GUICtrlSetData($Input1, GUICtrlRead($Input1)+1)
EndFunc

example script is set to call func every 2 sec.

[uplink477]

Hmmm... thanks for the quick reply but not quite what i was after because i have already used Adlib for something else in my script.i was thinking maybe

$X = 0
While 1
$X = Execute($X + 1)
if $X = 200 Then
    Msgbox(0,"Time",$X&"=$X")
    $X = 0
    Else
    sleep(1)
EndIf
Wend

any suggestions on weather this would work or not?

Edited May 20, 2008 by uplink477

[sandin]

in that case use this:

#include <GUIConstants.au3>
$time = 2 ;in seconds
$Form1 = GUICreate("AForm1", 165, 113, 193, 115)
$Input1 = GUICtrlCreateInput("1", 32, 32, 97, 21)
GUISetState(@SW_SHOW)
$timer = TimerInit()
While 1
    if TimerDiff($timer) >= $time*1000 then _function()
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
    EndSwitch
WEnd
func _function ()
    GUICtrlSetData($Input1, GUICtrlRead($Input1)+1)
    $timer = TimerInit()
EndFunc

Edited May 20, 2008 by sandin