Timer hep

[mikehunt114]

I'm trying to get this function to write() until a certain time is up, and then I want it to rewrite() before going back and write() again, and am having trouble. I also want the time displayed... I have it set to go to 5 mins...here is the code:

Func ct()

$begin = TimerStart()

Do

$dif = TimerStop($begin)

$diff = $dif / 60000

TrayTip("Time (min): " & $diff , 1)

write()

until $diff = 5

rewrite()

ct()

EndFunc

Edited July 31, 2006 by mikehunt114

[big_daddy]

I think this does what you are wanting.

While 1
    $begin = TimerStart()
    Do
        $dif = TimerDiff($begin)
        $diff = $dif / 60000
        TrayTip("", "Time (min): " & $diff, 1)
        write ()
    Until $diff = 5
    rewrite ()
WEnd

[Xenobiologist]

Hi,

or

ct()
Func ct()
    $begin = TimerInit()
    Do
        $dif = Round(TimerDiff($begin),2)
        ToolTip("Time (min): " & $dif)
        write ()
    Until $dif >= 5000.00
    rewrite ()
EndFunc   ;==>ct

So long,

Mega

[mikehunt114]

That worked well Mega, thanks.

[Xenobiologist]

That worked well Mega, thanks.

You are welcome!

So long,

Mega