An improvised version of the Sleep function

[lark]

Hi all,

My first uploaded UDF

So this is just an improvised version of the Sleep function. It allows the script to sleep, as normal, while still running code. This would be useful if you want your script to sleep for a long period of time, but for your GUI to still be fully functional. So, if you have your script sleep for 5 minutes, and want your GUI to close when you click on the close button, then this will allow you to do it.

I've included the basic switch for the GuiGetMsg() function with the $GUI_EVENT_CLOSE in it, but left everything else out, so that you can customize and edit it to fit your needs.

It takes two parameters: The first one is how long it should wait, in milliseconds, just like the regular sleep function. The second parameter is optional (has a default at 10), and is for how long it should pause while running through its while loop.

Here it is:

Func Sleep2($waitTime, $pauseTime = 10)
Local $finishTime = $waitTime + (@YDAY * 86400000) + (@HOUR * 3600000) + (@MIN * 60000) + (@SEC * 1000) + @MSEC
While 1
  Local $currentTime = (@YDAY * 86400000) + (@HOUR * 3600000) + (@MIN * 60000) + (@SEC * 1000) + @MSEC
  If $currentTime >= $finishTime Then ExitLoop
  $nMsg = GUIGetMsg()
  Switch $nMsg
   Case $GUI_EVENT_CLOSE
    Exit
  EndSwitch
  Sleep($pauseTime)
WEnd
EndFunc

If you want to test it, run this code- it shows a tooltip displaying the current milisecond we are at in the year, then pauses for 5 seconds, and displays the new current time right below it.

$time = (@YDAY * 86400000) + (@HOUR * 3600000) + (@MIN * 60000) + (@SEC * 1000) + @MSEC
ToolTip($time)
Sleep2(5000)
ToolTip($time & @CRLF & ((@YDAY * 86400000) + (@HOUR * 3600000) + (@MIN * 60000) + (@SEC * 1000) + @MSEC))
While 1
Sleep(30)
WEnd

Tell me what you think.

If you want to download it as a file, here it is:

Edited January 23, 2012 by mischieftoo

[GicuPiticu]

OK, 2 things at first sight:

1. While executing

Sleep($pauseTime)

your script won't respond to any events.

2. Why not use TimerInit() and TimerDiff().... they are much cheaper as per CPU used.

Edited February 26, 2012 by GicuPiticu

[Melba23]

mischieftoo,

In fact you do not need a Sleep($pauseTime) in there at all. GUIGetMsg idles the CPU for you - around 12ms if the CPU is busy, much shorter but still long enough if the CPU is idle. So all you are doing with your additional Sleep is making the script slightly less responsive - which is not what you want.

And I would definitely look at using TimerInit() and TimerDiff() to check for $waitTime - they are much more efficient that the complex $finishTime/$currentTime calculations you use at the moment.

M23