XProfan

Español

p.specht

Piept 8 x a bestimmter Alarmzeit, y verschwindet entonces. Leicht para SHUTDOWNER a una cierta Uhrzeit ausbaubar, etwa después de langen Downloads. Diesfalls podría uno todavía ShowMax - ShowMin - ShowNormal y así einbauen y el Ganze en el Früh como Exe en el Autostart-Directorio el Startleiste ansstoßen. Erinnert entonces, daß uno para Bus muß o. de wann Überstunden laufen

. Nach Alarmzeit-Eingabe Por favor, No más Eingaben en el Programmfenster mehr, como cada Tastendruck el Programa final.

Kompilieren Marca Separación

Declarar t$,n&,s$:Título de la ventana "  E I N G A B E":Ventana de Estilo 24
Ventana 200,100 - 300,100:Font 2:otra vez:
Cls:t$=Time$(0):Imprimir "\n  Aktuelle Tiempo     = ";t$;" +";Left$(Time$(1),2);"s"
Imprimir "\n  Alarmzeit [hh:mm] = ";:Entrada s$:Casenote InStr(":",s$):Goto "nochmal"
Título de la ventana "  A L A R M M O D U S  = E I N":Rept:
cls:Imprimir "\n      Alarmzeit: ";s$:t$=Time$(0)
Imprimir "\n  Aktuelle Tiempo: ";t$;" +";Left$(Time$(1),2);"s"

If t$>=s$:Imprimir "\n      A L A R M !   ";:Sound 1800,70

    Inc n&:Case n&>7:FIN': oder en lugar de FIN zB. ExitWindows 0
    EndIf:WaitInput 1000:Case %key>0:End:Goto "Rept"