AdLib & Timerdiff

[oozma]

Hi,

I'm trying to use an Adlib in a Timerdiff fuction. See below.

Global $set = 10000
Global $timer = TimerInit()

Switch TimerDiff($timer)
            Case 1 To $set
                AdlibEnable ("run",100) 
        EndSwitch

This is calling the function 'run' every 100ms, but the problem is it never ends. Even after 10,000ms it keeps going and going

Any way to stop this after 10 seconds and continue on with the rest of the script?

Edited April 11, 2009 by oozma

[Authenticity]

I think it should be as followed:

AdlibEnable('Function', 100)
Sleep(10000)
AdlibDisabl3()

[Melba23]

oozma,

Try this:

; Start timer
$iBegin = TimerInit()
; Enable Adlib
AblibEnable("run", 100)
; Start loop which runs for 10 secs - during this loop function "run" is called every 100ms
While TimerDiff($iBegin) < 10000
    Sleep(100)  ; Very important or you use 100% CPU
WEnd
; Disable Adlib
AdlibDisable()
; Continue with the script

M23

[oozma]

TY very much Melba and Authenticity.

[oozma]

Unfortunately this didn't work, it still seems to loop the run function non-stop.

[Authenticity]

Are you looping infinitely in the run Adlib function?

[oozma]

This is the run function:

Func run()
    Send("J")
    sleep(100)
EndFunc

I assumed that would only execute once every 100ms until 10 seconds was reached.(Used Melba's from above)

Func type()
    Send("o")

$iBegin = TimerInit()
AdlibEnable("run", 100)
While TimerDiff($iBegin) < 10000
    Sleep(100) 
WEnd
AdlibDisable()

Send("C")
EndFunc


Func run()
    Send("J")
    sleep(100)
EndFunc

[Authenticity]

Remove the Sleep call within the Adlib function.

Seems to me like a strange behavior:

Dim $iCounter = 1

AdlibEnable('SomeFunc', 50)
Sleep(500)
ConsoleWrite('Sleep over!!!' & @LF)
AdlibDisable()

Func SomeFunc()
    ConsoleWrite('Data' & $iCounter & @LF)
    $iCounter += 1
    Sleep(50)
    ConsoleWrite('Exiting Adlib' & $iCounter-1 & @LF)
EndFunc

So if you sleep more than or exactly the Adlib interval you're creating an infinite loop. ;]

[oozma]

Perfect thanks.