Timer läuft ab Mitternacht rückwärts

[SMO]

Zitat von Sir Rufo:

Wozu wird denn ein Timer überhaupt benötigt?

Wenn ich wissen möchte, wieviel Zeit vergangen ist zwischen dem Zeitpunkt x und y, dann berechne ich das einfach. Dazu benötige ich keinen Timer und zum Zeitpunkt der Abfrage ist der Wert zuverlässig genau.

Schöne Lösung, aber rate mal, welche Auflösung/Genauigkeit sie hat. Richtig, exakt dieselbe wie timeGetTime. D.h. standardmäßig 15,625 ms, es sei denn die globale Timer-Auflösung wurde per timeBeginPeriod / NtSetTimerResolution verändert.

Übrigens: Die RAD Studio IDE setzt die Timer-Auflösung auf 1 ms! Das hat mich beim Debuggen schon mal gebissen. Hatte timeBeginPeriod(1) in meinem Programm vergessen und mich gewundert, warum es nur richtig lief wenn es aus der IDE heraus gestartet wurde, nicht allein.

Mit diesem kleinen Konsolenprogramm kann man minimale und aktuelle Auflösung der Multimedia-Timer ansehen.

[Sir Rufo]

Zitat von SMO:

Zitat von Sir Rufo:

Wozu wird denn ein Timer überhaupt benötigt?

Wenn ich wissen möchte, wieviel Zeit vergangen ist zwischen dem Zeitpunkt x und y, dann berechne ich das einfach. Dazu benötige ich keinen Timer und zum Zeitpunkt der Abfrage ist der Wert zuverlässig genau.

Schöne Lösung, aber rate mal, welche Auflösung/Genauigkeit sie hat. Richtig, exakt dieselbe wie timeGetTime. D.h. standardmäßig 15,625 ms, es sei denn die globale Timer-Auflösung wurde per timeBeginPeriod / NtSetTimerResolution verändert.

Es ging hier mehr um das Prinzip, dass man keinen Timer nimmt um eine Zeitspanne zu bestimmen, sondern man merkt sich die Startzeit und berechnet sich die Zeitspanne zwischen der gemerkten Startzeit und einem beliebigen anderen Zeitwert. Welche Zeitwertquelle man dabei verwendet ist - für das Prinzip - unerheblich, beim Vergleichen sollte es immer die Gleiche sein.

[nahpets]

Mal ganz naive gefragt:

Du möchtest zum Zeitpunkt X festlegen: Jetzt gehts los.
Zum Zeitpunkt Y sagst Du: Fertig.

Also merkst Du Dir bei XStart := Now .
Bei Y berechnest Du Zeitspanne := Now - Start .

In der Zwischenzeit soll Irgendwo eine Uhr laufen. Niemand kann so schnell gucken, dass er ein Zeitintervall von 1ms mitbekommt.
Wie oft soll denn die Uhrzeit aktuallisiert werden?
Sekündlich, reicht doch zum Mitgucken.

Also bauen wir was in der Art:

Delphi-Quellcode:

...
  tm.Interval := 1000; // = 1 Sekunde
//  tm.Interval :=  500; // = 1/2 Sekunde
//  tm.Interval :=  250; // = 1/4 Sekunde
...
procedure TForm1.tmTimer(Sender: TObject);
begin
  Label1.Caption := FormatDateTime('nn:ss:zzz', Now - Start);
end;

procedure TForm1.ButtonStartClick(Sender: TObject);
begin
  Start := Now;
  tm.Enabled := true;
end;

procedure TForm1.ButtonEndeClick(Sender: TObject);
begin
  Zeitspanne := Now - Start;
  tm.Enabled := False;
  Label1.Caption := FormatDateTime('nn:ss:zzz', Zeitspanne);
end;

Natürlich gibt es genauere Methoden der Zeitmessung, aber wenn die abhängig davon sind, wann jemand einen Button drückt, ist jeder Aufwand dahingehend, die Genauigkeit um eventuell eine 1/2 Millisekunde zu erhöhen, eigentlich irrelevant.
Und mit Now und der Ausgabe mit FormatDateTime ist man immernoch im Bereich von einer tausendstel Sekunde, so genau werden kaum mal Weltrekorde gemessen und hier geht es um Spiele.

[MisterIXI]

Das mit dem DoubleBuffered hat funktioniert! Ich wusste bis jetzt nicht mal dass die Property existiert.

Vielen, vielen Dank euch allen für die Hilfe! Ihr habt mir echt weitergeholfen.

Und ich werde mir dann mal die Tage, wenn die Änderungen alle geklappt haben, die anderen Vorschläge anschauen. Dann weiß ich was ich nächstes mal besser machen kann. ^^

[Rollo62]

Erstens:
Sei doch froh wenn die Zeit rückwärts läuft !!
Das wünsche ich mir schon seit Jahren ...

Zweitens:
Es gibt auch TStopWatch
Ist vielleicht moderner, w.g. MultiPlattform

Rollo

[SMO]

Zitat von Rollo62:

Es gibt auch TStopWatch
Ist vielleicht moderner, w.g. MultiPlattform

Das habe ich bereits in Nachricht #9 erwähnt. Aber wenn MisterIXI noch mit Delphi 7 unterwegs ist, dann hilft ihm das nicht.

[Rollo62]

Sorry, hab ich wohl um die Zeit überlesen.
Sollte bald mal ins Bett gehen

Rollo