How to limit my script by time

[sandin 7]

Hi all. My script contains alot of func., so if I just do:

$starttime=TimerInit()
do
until TimerDiff($starttime)>15000oÝ÷ Ú+pYp¢¹²Z'«v÷öÚî©ò~éܪޭéZµçm¢-ì¬!ò+ºv§Êíçîɲ¶)vÇ+l¢[­Ý¡ë'ßÛp¢¹+.¬¶*'°èZÜjhÁƧ"j'Ú+¶­¶)Â+ajè·¬±¶«:¹É¸×©emçhëâjè·¬±¶«jëh×6AdlibEnable("myadlib")
Func myadlib()
If GUICtrlRead($progressbar) = 100 Then
exit
endif
EndFunc

But again, how to make a progress bar go to 100% within 15sec without stopping it when I launch one of the existing func?

[Shevilie 1]

Well your nearly got it... try put your timer int the adlib

[Shevilie 1]

AdlibEnable("myadlib")

Func myadlib()
   If TimerDiff($starttime)>15000 Then Exit
   $i = $starttime \ 15000 * 100
   ProgressSet( $i, $i & " percent")
EndFunc

$starttime=TimerInit()
ProgressOn("Progress Meter", "Shutdown", "0 percent")

While 1
   Sleep(100)
WEnd

Edited March 4, 2007 by Shevilie

[sandin 7]

Thank you, it's limited now (though, progress bar isn't mooving, but I'll figure it out... eventualy...)

[sandin 7]

I need just a little more help. I decided not to include progress bar, but to set TraySetToolTip with time lefted till end. I have:

AdlibEnable("myadlib", 60000)
$starttime5=TimerInit()

Func myadlib()
;>>>$timelefted=##NOW WHAT?###<<<
;>>>> I gues here goes: TraySetToolTip($timelefted), but I can't figure how to set $timelefted to read the lefted time till end of the program<<<
If TimerDiff($starttime5)>3600000 Then
msgbox(262144, "end", "the program ended as expected!")
exit
endif
endfunc

[sandin 7]

any suggestion plz?

[xcal 3]

Stick a traysettooltip(TimerDiff($starttime5)) in your keep alive loop.

[sandin 7]

Lol, it's good now, works. I made:

traysettooltip("Time lefted 'till ending program: " & (3600000-TimerDiff($starttime5))/60000 & " min.")

so it displayes lefted time in minutes, but the number is too long, (ex: Time lefted 'till ending program: 59.46578951235789 min.).

Is there a way to short this number to maybie 2 or maybie even 0 decimals?

[xcal 3]

$num = StringFormat('%.2f', 59.46578951235789)

MsgBox(0, '', $num)

[sandin 7]

I figured it out:

AdlibEnable("myadlib", 60000)
$starttime5=TimerInit()

Func myadlib()
$var1 = round ((5400000-TimerDiff($starttime5))/60000, 0)
traysettooltip("Time lefted 'till ending program: " & $Var1 & " min.")
If TimerDiff($starttime5)>3600000 Then
msgbox(262144, "end", "the program ended as expected!")
exit
endif
endfunc

Thank you Shevilie, and thank you xcal for the help.