Ganz simple Stoppuhr!

[Qnkel]

Moin,

Ich stand gerade vor dem Problem, dass ich ne Uhr brauche, die bei meinem Proggi mitläuft. Nachdem ich mir hier die Posts angesehen habe war ich nich viel schlauer als vorher.

Jetzt habe ich mir sowas gebastelt:

Delphi-Quellcode:

var
  Zeit: TTime;

Procedure Button1Klick
begin
  Zeit := Time; //aktuelle Zeit
  Timer1.Enabled := True;
end;

Procedure Timer1Timer
begin
  //Tu hier was
  Label1.Caption := TimeToStr((Time - Zeit));
end;

So ungefähr. Timer1 hat bei mir n Delay von 1ms, da es bei mir noch was macht (Zufallszahlen erzeugen)...

Das Ergebnis is im Format hh:mm:ss

[axelf98]

Kannst du wirklich die tausendstel Sekunden bei einer Stoppuhr ablesen? Für die Anzeige reichen doch 0,1s Schritte. Am Ende kann man ja die richtige Zahl mittels Differenz ausgeben. Mein Tipp: Erzeugen von Zufallszahlen in einen Thread und Timer mit Stoppuhr zusammen laufen lassen.

[Luckie]

Die Frage ist wohl eher, ob Windows das kann. Der Timer von Windows NT ff. hat nur eine maximale Auflösung von ca. 50 ms.

[Wheelie]

Ne Stoppuhr würde ich eher mit GetTickCount realisieren!

[Qnkel]

@axelf98 ???
Der Timer hat 1ms, da der noch Zufallszahlene rzeugt..und davon recht viele ;)

[Nicodius]

Den Code hast du aber nicht aus delphi kopiert oder die Unterprogramm Köpfe weisen einige Fehl(ende Sachen oder)er auf :lol:

[Matze]

Zitat:

Zitat von Luckie

Die Frage ist wohl eher, ob Windows das kann. Der Timer von Windows NT ff. hat nur eine maximale Auflösung von ca. 50 ms.

Windows 9x: 50 ms
Windows NT/2000/XP: 10 ms

Also kannst du maximal mir 10 ms arbeiten, wenn du Win NT ff. hast, ansonsten nur mit 50 ms.

[alcaeus]

Ist es nicht aber auch deshalb unsinning, 1000 mal pro Sekunde das Label zu aktualisieren, da das Abfangen des Ereignis, Auswerten der bisherigen Zeit und anschließendes Zeichnen länger als eine Tausendstelsekunde dauert? Außerdem, ich kenne zur Zeit keinen Menschen, der genau die Tausendstelsekunden verfolgt. Da macht es mehr Sinn, nur Hundertstelsekunden auszugeben, solange die Stoppuhr läuft, und sobald die Stoppuhr gestoppt wird, die Tausendstelsekunden noch dranzuhängen?

[Qnkel]

hmm ihr raffts irgendwie net??!!

Ihr könnt auch 500ms NEHMEN!!! nur bei mir sins 1ms, weil der Timer noch andre Dinge macht die so oft gemacht werden müssen!!

[Luckie]

Ich glaube, du raffst es nicht. Er kann deine 1 ms gar nicht schaffen. Wie Matze richtig bemerkte ist das höchste aller Gefühle unter NT ff. 10 ms und unter 9x 50 ms.

Nur weil ich auf den Tacho meines Corsas 350 km/h draufschreibe wird daraus auch kein Formel 1 Wagen.