Count down.

[yucatan]

Hello guys i have build a very simple countdown.

But there are some things that i cant get done.

i would like that it displays 45 minits instead of 4 hours.

and that it takes 15 minits to count down from 45 to zero.

the first 5 minits count normaly.

then 5 minits faster then default.

en the last 5 minits count alot faster.

How should i build this somebody some advice?

#include <GUIConstantsEx.au3>
#include <Date.au3>
Opt('MustDeclareVars', 1)
global $widthCell, $msg, $iOldOpt, $input
GUICreate("My GUI")  ; will create a dialog box that when displayed is centered
$input = GUICtrlCreateLabel("", 150, 150,400,400)
GUICtrlSetFont($input, 20, 400)
GUISetState()      ; will display an empty dialog box
Local $iHours, $iMins, $iSecs, $Timer = TimerInit()
Local $4Hours = (4 * 60 * 60 * 1000)
Local $Time, $oldTime
    Do
    $msg = GUIGetMsg()
    _TicksToTime($4Hours - TimerDiff($Timer), $iHours, $iMins, $iSecs)
    $Time = StringFormat("%02i:%02i:%02i", $iHours, $iMins, $iSecs)
    If $Time <> $oldTime Then GUICtrlSetData($input, $time)
    $oldTime = $Time
    Sleep(10)
Until $msg = $GUI_EVENT_CLOSE

[UEZ]

Here a possibility:

#include <GUIConstantsEx.au3>
#include <Date.au3>
Opt('MustDeclareVars', 1)
global $widthCell, $msg, $iOldOpt, $input
Global $hGUI = GUICreate("My GUI")  ; will create a dialog box that when displayed is centered
$input = GUICtrlCreateLabel("", 150, 150,400,400)
GUICtrlSetFont($input, 20, 400)
GUISetState()      ; will display an empty dialog box

Global $countdown = 45 ;45 minutes
Global $seconds = $countdown * 60

Countdown()
AdlibRegister("Countdown", 1000)

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

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

Func Countdown()
    Local $sec, $min, $hr
    $sec = Mod($seconds, 60)
    $min = Mod($seconds / 60, 60)
    $hr = Floor($seconds / 60 ^ 2)
    GUICtrlSetData($input, StringFormat("%02i:%02i:%02i", $hr, $min, $sec))
    $seconds -= 1
    If $seconds <= 0 Then AdlibUnRegister("Countdown")
EndFunc

Br,

UEZ

Edited January 17, 2011 by UEZ

[yucatan]

Here a possibility:

#include <GUIConstantsEx.au3>
#include <Date.au3>
Opt('MustDeclareVars', 1)
global $widthCell, $msg, $iOldOpt, $input
Global $hGUI = GUICreate("My GUI")  ; will create a dialog box that when displayed is centered
$input = GUICtrlCreateLabel("", 150, 150,400,400)
GUICtrlSetFont($input, 20, 400)
GUISetState()      ; will display an empty dialog box

Global $countdown = 45 ;45 minutes
Global $seconds = $countdown * 60

Countdown()
AdlibRegister("Countdown", 1000)

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

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

Func Countdown()
    Local $sec, $min, $hr
    $sec = Mod($seconds, 60)
    $min = Mod($seconds / 60, 60)
    $hr = Floor($seconds / 60 ^ 2)
    GUICtrlSetData($input, StringFormat("%02i:%02i:%02i", $hr, $min, $sec))
    $seconds -= 1
    If $seconds <= 0 Then AdlibUnRegister("Countdown")
EndFunc

Br,

UEZ

nice Code! but the countdown doesnt speed up?

how should i do that?

Greetz Yucatan

[guinness]

Read about AdlibRegister() >> AdlibRegister("Countdown", 250)

[UEZ]

Sorry, I have not understood you correctly.

Try this:

#include <GUIConstantsEx.au3>
#include <Date.au3>
Opt('MustDeclareVars', 1)
global $widthCell, $msg, $iOldOpt, $input
Global $hGUI = GUICreate("My GUI")  ; will create a dialog box that when displayed is centered
$input = GUICtrlCreateLabel("", 150, 150,400,400)
GUICtrlSetFont($input, 20, 400)
GUISetState()      ; will display an empty dialog box

Global $countdown = 16 ;45 minutes
Global $seconds = $countdown * 60

Countdown()
AdlibRegister("Countdown", 1000)

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

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

Func Countdown()
    Local $sec, $min, $hr
    $sec = Mod($seconds, 60)
    $min = Mod($seconds / 60, 60)
    $hr = Floor($seconds / 60 ^ 2)
    GUICtrlSetData($input, StringFormat("%02i:%02i:%02i", $hr, $min, $sec))
    $seconds -= 1
    If $seconds <= 0 Then AdlibUnRegister("Countdown")
    If $seconds <= 900 Then AdlibRegister("Countdown", 500)
    If $seconds <= 600 Then AdlibRegister("Countdown", 250)
    If $seconds <= 300 Then AdlibRegister("Countdown", 125)
EndFunc

Br,

UEZ

Edited January 17, 2011 by UEZ

[yucatan]

Haha thanks alot this is much beter

but its still not exacly what i need

now it shows 16 minits.

and it takes 45 minits before its done.

what it need to be reversed.

so it shows 45 minits.

but it takes 15 minits when he reaches 0

i understand how the If

$seconds <= 2400 Then AdlibRegister("Countdown", 250)

works

but how i can calculate how fast i need to let him go ?

Edited January 19, 2011 by yucatan

[yucatan]

somebody?