[Solved]Make a Runtime Timer

[jamesstp20]

Hello, I would like to do a timer wich count in Hour:Minute:Second how much time my script is working. I know it's with Timer_Init and Timer_Diff but how :S

Thanks you !

Edited April 23, 2011 by jamesstp20

[Info]

$t = TimerInit()

For $i = 0 To 5
    MsgBox("","",$i)
Next

ConsoleWrite("Your script has been running for " & TimerDiff($t) & " ms." & @CR)

[UEZ]

Try this:

#include <GUIConstantsEx.au3>
Opt('MustDeclareVars', 1)

Global $msg
Global $hGUI = GUICreate("Simple Runtime Calculator by UEZ 2011")  ; will create a dialog box that when displayed is centered
Global $label = GUICtrlCreateLabel("", 150, 150,400,400)
GUICtrlSetFont($label, 20, 400)
GUISetState()

Global $seconds = 0

Runtime()
AdlibRegister("Runtime", 1000)

Do
    $msg = GUIGetMsg()
    Sleep(10)
Until $msg = $GUI_EVENT_CLOSE

AdlibUnRegister("Runtime")
GUIDelete($hGUI)
Exit

Func Runtime()
    Local $sec, $min, $hr
    $sec = Mod($seconds, 60)
    $min = Mod($seconds / 60, 60)
    $hr = Floor($seconds / 60 ^ 2)
    GUICtrlSetData($label, StringFormat("%02i:%02i:%02i", $hr, $min, $sec))
    $seconds += 1
EndFunc

Br,

UEZ

[jamesstp20]

Try this:

#include <GUIConstantsEx.au3>
Opt('MustDeclareVars', 1)

Global $msg
Global $hGUI = GUICreate("Simple Runtime Calculator by UEZ 2011")  ; will create a dialog box that when displayed is centered
Global $label = GUICtrlCreateLabel("", 150, 150,400,400)
GUICtrlSetFont($label, 20, 400)
GUISetState()

Global $seconds = 0

Runtime()
AdlibRegister("Runtime", 1000)

Do
    $msg = GUIGetMsg()
    Sleep(10)
Until $msg = $GUI_EVENT_CLOSE

AdlibUnRegister("Runtime")
GUIDelete($hGUI)
Exit

Func Runtime()
    Local $sec, $min, $hr
    $sec = Mod($seconds, 60)
    $min = Mod($seconds / 60, 60)
    $hr = Floor($seconds / 60 ^ 2)
    GUICtrlSetData($label, StringFormat("%02i:%02i:%02i", $hr, $min, $sec))
    $seconds += 1
EndFunc

Br,

UEZ

Thanks You !!!!!