Uhrzeit rückwärts laufen lassen 01:00:00 und Aktion ausf.

[Gast_1]

Ich will ein Programm schreiben das beim Start eine Zeit in folgendem Format anzeigt "01:00:00". Sofort ab Programmstart soll die Zeit rückwärts laufen. Wenn sie bei "00:15:00" angekommen ist soll eine Message angezeigt werden. Wenn die Zeit bei 00:00:00 angekommen ist soll der Computer ausgeschaltet werden. Wie bekomme ich es hin das die Zeit in dieser Form rückwärts läuft? Es ist ganz dringend <a href= "http://www.ensacom.de" target=blank>www.ensacom.de</A>

[Uli Becker]

Hallo

Zitat von Hagen Reddmann:

Label1.Caption := FormatDateTime('hh:nn:ss', 1 - Frac(Now));

lässt die Uhrzeit rückwärts laufen.

Gruß Hage

[Hagen Reddmann]

dann such hier im Forum, diese Frage wurde nämlich schon mehrmals beantwortet.

Gruß Hage

[Klaus-Peter Fitzner]

Gehen wir mal rein von der Aufgabe aus. Du willst bei einem Wert anfangen. Gut. Schreib ihn auf den Bildschirm. Aller Sekunde willst du von deinem Wert eins abziehen. Gut. Nimm einen Timer und lasse ihn aller Sekunde eine Aktion ausführen. Zeig den neuen Wert gleich auf dem Bildschirm wieder an. Wenn dein Wert bei 15 Minuten angekommen ist, verwende im einfachsten Falle ShowMessage("Kuckuck").
Das Umrechnen deines Wertes in eine Uhrzeit, auch kein Problem. Guten Schüler fragen.

mfg Klaus-Pete