Verfasst: 25.03.2008 16:10
ich hab geschrieben, dass ich mich noch mal neu anmelden musste, da ich meine Daten vergessen hab, davon sollte man das eigendlich ableiten können, dass ich schon vorher hier angemeldet war.
vorstellt? Natürlich auf dem eigenen Mist gewachsen und in PB
programmiert und nicht unbedingt anspruchsvoll. Gewinnen soll derjenige,
dessen Programm in der anschliessenden Boardabstimmung die meisten
Stimmen erhält. Schönheit (der Programmierung -nicht des Schöpfers,
sonst hättet ihr gar keine Chance gegen mich
) spielt keine RolleIch bewerbe mich hiermit mit "Wecker". Benutze es ein paar mal am Tag.
Kann mir gar nicht mehr vorstellen, 'ohne' zu leben. Läuft ständig
irgendwie im Hintergrund. Tausend Termine.
Bei der Arbeit...und Privat. "Schatz, würdest du bitte in 15 Minuten den
Backofen ausschalten?" oder "Mausibärchen, vergiss nicht - heute kommt
um 20:30 im Kino der Film 'Schnüff-Trief-Heul'" oder "10:00 irgendeine
Besprechung" oder...oder...oder...
Eingabe geht einfach und schnell. Da kommt kein Wecker oder dgl. mit.
Und deswegen verzichte ich auch auf eine grafische Benutzeroberfläche
usw. 'Starten und gut ist' war die Devise. Wer viele Termine hat, kann den
Wecker auch mehrfach zeitgleich starten (Multithread-fähig
)Simple Bedienungsanleitung:
-Eingabe einer vierstelligen Zahl im Format hhmm bedeutet Alarm um
genau hhmm Uhr. (Geichzeitig wird noch überprüft, ob die gewünschte
Alarmzeit tatsächlich noch kommt oder schon vorbei ist. Hab ich deswegen
eingebaut, weil mir schon öfters passiert ist, das ich mich in der Stunde
geirrt habe. Zum Beispiel war schon 15:30, und ich habe 14:45
Wunschtermin eingegeben. Tja, so spielt das Leben.)
-Eingabe einer 1,2 oder 3-stelligen Zahl bedeutet Alarm in x Minuten
(Relativalarm).
Der Alarm wird grundsätzlich mit betätigen irgendeiner Taste gestoppt.
Wird bei Relativalarm der Alarm mit der Spacetaste gelöscht, wird der
Timer neu gestartet.
Hoffe, ihr könnt es genauso oft gebrauchen wie ich.
Code: Alles auswählen
OpenConsole()
Print("Alarmzeit: ")
a$=Input()
ClearConsole()
If Len(a$)=4
alarmzeit$=Left(a$,2)+":"+Right(a$,2)
IstZeit$=FormatDate("%hh:%ii",Date())
If alarmzeit$<IstZeit$: Beep_(200,2000): EndIf
Else
sek=Val(a$)*60
alarmzeit$=FormatDate("%hh:%ii",Date()+sek)
EndIf
wiederholung:
PrintN("Alarm um "+alarmzeit$)
Repeat
Delay(1000)
Until FormatDate("%hh:%ii",Date())=alarmzeit$
If sek<0
PrintN("Enter=AUS Leertaste=Wiederholung")
PrintN("")
EndIf
Repeat
Beep_(440,300)
Beep_(600,300)
Delay(10)
in$=Inkey()
Until in$<>""
If in$=" "
If sek>0
alarmzeit$=FormatDate("%hh:%ii",Date()+sek)
Goto wiederholung
EndIf
EndIf
CloseConsole()
