"Wecker"

  • Hallo,
    ich möchte mir eine Art "Wecker" Coden wo ich einen Input habe (Weckzeit) wo ich die gewünschte Zeit eingeben kan...
    Nun soll der script an der angegebenen Uhrzeit eine Funktion starten (z.B. ein Sound oder eine Meldung)

    Nur habe ich keine Ahnung wie ein Script den Angabewert Mit der Uhrzeit des Computers "vergleicht"...

  • Hi,
    schau dir mal in der Hilfe die _Time Funktionen an. Da solltest du fündig werden. Der Rest ist ne If Anweisung wenn die Eingabezeit gleich der aktuellen Zeit dann tue was ....


    MfG
    Der_Doc

  • So ungefähr?

    Spoiler anzeigen
    [autoit]

    #include <Date.au3>

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

    $time = InputBox("Weckkzeit", "Weckzeit eingeben", @HOUR & ":" & @MIN & ":" & @SEC)
    $string = StringSplit($time, ":")

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

    If (UBound($string) <> 4) Or (Not IsArray($string)) Then
    MsgBox(48, "Error", "Falsches Eingabeformat, bitte nach diesem Format eingeben:" & @CRLF & " Stunde:Minute:Sekunde")
    Exit
    EndIf

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

    While 1
    $tcur = _Date_Time_GetLocalTime()
    If _Date_Time_SystemTimeToTimeStr($tcur) = $time Then
    _aktion()
    Exit
    EndIf
    Sleep(200)
    WEnd

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

    Func _aktion()
    MsgBox(0, "", "Uhrzeit erreicht!")
    EndFunc ;==>_aktion

    [/autoit]

    Ansonsten hat Oscar einen tollen Wecker gescriptet, der sogar in c't gelistet ist Digitaluhr.
    Aber das ist glaub ich nicht was du suchst :).

    Einmal editiert, zuletzt von anno2008 (2. Januar 2009 um 15:50)

  • da gab es heut schon n thread

    [ offen ] pcwecker programmieren brauche unterstüzung!!

    Danke,
    dieser Code hat mir weitergeholfen:

    [autoit]

    HotKeySet("{ESC}", "Terminate")

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

    $zeit = InputBox("Weck-Uhrzeit", "Wann willst du geweckt werden?", "06:00")

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

    While 1
    If @HOUR = StringLeft($zeit, 2) And @MIN = StringRight($zeit, 2) Then
    SoundSetWaveVolume(100) ;lautstärke wieder höher, weil es sonst keinen sinn hat
    SoundPlay("c:\rammstein\Rammstein - Feuer Frei (xXx Soundtrack).mp3", 1) ;hier einfach die lieder eintragen
    SoundPlay("c:\rammstein\Rammstein - Spring.mp3", 1)
    SoundPlay("c:\rammstein\JBO & Rammstein - Ein bisschen Frieden.mp3", 1)
    Exit(0)
    Else
    Sleep(1000)
    EndIf
    WEnd

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

    Func Terminate()
    Exit 0
    EndFunc ;==>Terminate

    [/autoit]


    Jedoch lässt sich die .mp3 wenn sie einma läuft nicht mit ESC beenden...