Entwickler-Ecke

Grafische Benutzeroberflächen (VCL & FireMonkey) - Timer von 7.5 Stunden runterzählen


GericasS - Mi 10.10.07 09:06
Titel: Timer von 7.5 Stunden runterzählen
Hey,

ich hab wollte mir heute mal einen Timer schreiben, der von 7,5 Stunden runterzählt.
Dies sollte im Minuten Takt geschehen. Der Timer rechnet in ms, gehe ich richtig in der Annahme das ms in min mit *3600 gerechnet werden ? Hatte ich glaube mal i-wo gelesen.
Meine Frage ist ich hab folgenden code schon geschrieben.



Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
procedure TForm1.Button1Click(Sender: TObject);
var
i : Integer ;
begin
    for i := 0 to 10 do
      begin
        Label1.caption := IntToStr(i);
        application.ProcessMessages;
        sleep(60);
end;

end;

end.


Eine weitere Frage bezieht sich jetzt auf den "sleep" Wert, wie wird dieser brechnet ?


Grüße

GericasS


Blackheart666 - Mi 10.10.07 09:11


Delphi-Quelltext
1:
Intervall:=1000//1 sec                    


GericasS - Mi 10.10.07 09:14

user profile iconBlackheart666 hat folgendes geschrieben:

Delphi-Quelltext
1:
Intervall:=1000//1 sec                    


danke dir für die schnelle Hilfe ! :D


jasocul - Mi 10.10.07 09:37

Ich bezweifle, dass der Timer nach 7,5 Stunden runterzählen wirklich exakt ist. Ich würde anders vorgehen:
- Beim Start die aktuelle Zeit ermitteln.
- Einen Timer im Sekunden-Intervall die aktuelle Zeit ermitteln lassen
- Die Differenz von Start-Zeit und aktueller Zeit berechnen
- Gegebenenfalls (1 Minute vergangen) die Anzeige aktualisieren.

Sicher ist die PC-Uhr nicht genau. Aber voraussichtlich genauer, als ein Timer.


GericasS - Mi 10.10.07 09:40

Meinst du mit genau Zeit ermitteln die Windows Zeit wenn ich richtig liege ?!
Da gibt es doch so einen Befehl mit "get" oder ?


jasocul - Mi 10.10.07 09:50

now, time, date reichen da völlig. Du meinst vermutlich GetTickCount. Aber das dürfte für diese Anwendung nicht erforderlich sein.