loop in another loop

[jerem488]

Hi,

I have a loop and I have a timer() func. I would integrate this timer func in my first loop.

$timer = TimerInit()
While TimerDiff($timer) < $duree

; I want put my func timer here ! 
             
WEnd

Func Timer()
    While 1
        _TicksToTime(Int($duree - TimerDiff($timer)), $Hour, $Mins, $Secs )
        $TempsRestant = StringFormat("%02i:%02i:%02i", $Hour, $Mins, $Secs)
        ToolTip("Temps restant : " & $TempsRestant,1000,70)
        Sleep(1000)
    WEnd
EndFunc

But like I have my while in my timer() func, my script don't continue

thanks

[Melba23]

jerem488,

Does this help?

$duree = #####
$timer = TimerInit()

While

If TimerDiff($timer) < $duree Then
        _TicksToTime(Int($duree - TimerDiff($timer)), $Hour, $Mins, $Secs )
        $TempsRestant = StringFormat("%02i:%02i:%02i", $Hour, $Mins, $Secs)
        ToolTip("Temps restant : " & $TempsRestant,1000,70)
EndIf
             
WEnd

M23

[jerem488]

no, not really.... because the script I execute in the first loop exceeds 1second ! !

So the timer change every (((the time of the loop))) ! !

[Melba23]

jerem488,

Have you looked at using AdLib? It sounds as though it might be what you are looking for.

M23

[Demonic]

$timer = TimerInit()
$timerDuration = 1000 ; 1 second

While 1
    
    If TimerDiff($timer) > $timerDuration Then
        $timer = TimerInit()
        ConsoleWrite("Resetting Timer" & @CR)   ; If over the timer, reset
    Else
        ConsoleWrite("Executing Code" & @CR)    ; Else, Execute the code repeatedly
    EndIf
    Sleep(100)
WEnd

Is that what you're going for? In that case, to enable your second "loop", you would add an additional statement to the line:

If TimerDiff($timer) > $timerDuration Then

in order to make it more specific.

[jerem488]

I defined the execution time of my script with the $duree variable in a messagebox.

And I want a timer of the remaining time in seconds.

$duree = GUICtrlCreateInput("0", 75, 60, 50, 20)
                               $timer = TimerInit()
                While TimerDiff($timer) < $duree
                    Sleep(Random(500,1000))
                    MouseMove(742, 914)
                    Sleep(500)
                    MouseClick("left")
                    Sleep(Random(9000,10000))
                    MouseMove(290, 220)
                    Sleep(Random(1200,1500))
                    MouseClick("left")
                    Sleep(Random(1000, 1200))
                    MouseMove(742, 914)
                WEnd

Edited January 17, 2009 by jerem488

[FireFox]

...?

$timer = TimerInit()
While TimerDiff($timer) < $duree
; I want put my func timer here ! 
Timer()             
WEnd

Func Timer()
    While 1
        _TicksToTime(Int($duree - TimerDiff($timer)), $Hour, $Mins, $Secs )
        $TempsRestant = StringFormat("%02i:%02i:%02i", $Hour, $Mins, $Secs)
        ToolTip("Temps restant : " & $TempsRestant,1000,70)
        Sleep(1000)
    WEnd
EndFunc

Cheers, FireFox.

[jerem488]

Euh................... How expalin the problem...........

I have already a loop that lasts about 3minutes. And during this loop, I want in fact a timer of the remaining time in seconds....

[Pain]

A very simple example.

For $i = 0 To 9
    Sleep(1000)
    ConsoleWrite(9-$i &@CR)
Next

I know it's very unreliable but you get the point.

Edited January 18, 2009 by Pain

[jerem488]

yes ! ! But the loop continue when the timer is finished ! !

Nearly me, I want the timer tun when the loop run !

[Melba23]

jerem488,

Is this what you are looking for?

$timer = TimerInit()
While TimerDiff($timer) < $duree

_TicksToTime(Int($duree - TimerDiff($timer)), $Hour, $Mins, $Secs )
$TempsRestant = StringFormat("%02i:%02i:%02i", $Hour, $Mins, $Secs)
ToolTip("Temps restant : " & $TempsRestant,1000,70)
  
; Other functions which run in the loop 
             
WEnd

ToolTip("")

Your loop will now run for $duréé ms and carry out other functions and the ToolTip will give $TempsRestant throughout. Do not forget to clear the ToolTip after the loop. ;-)

Si cela n'est pas la solution, explique en francais parce que je n'ai evidemment pas compris la question!

M23

[Melba23]

jerem488,

Now I understand (via PM in French) what you want, my earlier suggestion of AdLib seems to be the answer.

This is an example which shows how to go about it:

GUICreate("AdLib Test", 200, 200)

$Label1 = GUICtrlCreateLabel("Main Loop Count: 0", 10,  10, 180, 20)
$Label2 = GUICtrlCreateLabel("Timer Count: 0", 10, 110, 180, 20)

GUISetState()

AdlibEnable("Timer", 1000)
$Begin = TimerInit()

$i = 1

While 1
    
     Sleep(20000); Replaces your loop functions

     GUICtrlSetData($label1, "Main Loop Count: " & $i)
     $i += 1
    
WEnd

Func Timer()
    GUICtrlSetData($Label2, "Timer Count: " & Int(TimerDiff($Begin) / 1000))
EndFunc

Hope that solves the problem. Ask again if there is something you are unclear about.

M23

[jerem488]

Yes ! ! It's this !

Very thanks ! ! I didn't know this function. Now, I could use !

Topic resolved ]]]]]]]]]]] ! ! !

Thnks M23 !

Edited January 19, 2009 by jerem488

[Melba23]

jerem488,

Excellent. 2 things to remember:

1. Do not put too much code in the function called by AdLib.

2. Disable AdLib when you no longer need it or it eats CPU time unnecessarily.

M23