Sehr sehr einfacher Timer

  • Ein wirklich einfacher Timer muss ich zugeben, aber ich kenn mich noch nicht so gut mit AutoIt aus...kann mir vielleicht jmd helfen einen sound abzubringen? mit soundplay, _soundplay...das bekomm ich irgendwie nicht hin ;( ;( ;(

    Spoiler anzeigen
    [autoit]

    $minutes = InputBox("Stellen", "Gib eine Zahl in Minuten an!")
    $sekundes = $minutes * 6
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Timer", 200, 128, 570, 274)
    GUISetBkColor(0x000000)
    $credits = GUICtrlCreateLabel("Made by Tim Dellmann / 29.03.2009", 8, 8, 177, 17)
    GUICtrlSetColor(-1, 0xFF0000)
    $min = GUICtrlCreateLabel("/", 56, 40, 29, 124)
    GUICtrlSetFont(-1, 70, 400, 0, "MS Sans Serif")
    GUICtrlSetColor(-1, 0xFF0000)
    $dopperpunkt = GUICtrlCreateLabel(":", 80, 40, 29, 124)
    GUICtrlSetFont(-1, 70, 400, 0, "MS Sans Serif")
    GUICtrlSetColor(-1, 0xFF0000)
    $sec = GUICtrlCreateLabel("//", 104, 40, 54, 124)
    GUICtrlSetFont(-1, 70, 400, 0, "MS Sans Serif")
    GUICtrlSetColor(-1, 0xFF0000)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    For $imin = $minutes -1 To 0 Step -1
    GUICtrlSetData($min, $imin )
    sleep(1000)
    For $isec = 58 To 0 Step -1
    GUICtrlSetData($sec, $isec)
    sleep(1000)
    Next
    Next

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    MsgBox(0, "Countdown fertig", "Der Countdown mit der Zeit " & $minutes & " min ist vorrüber! Beenden mit ESC")

    [/autoit] [autoit][/autoit] [autoit][/autoit]


    mfg

    [autoit]


    While $Life = True
    $nMSG = BrainGetMsg()
    Switch $nMSG
    Case $Idea
    _Convert_Idea2Code()
    EndSwitch
    WEnd

    [/autoit]