Delphi Stopuhr

[Fredyy]

hi,
ich habe heute schnell eine Stopuhr gemacht.
ich hoffe ihr könnt euch das mal angucken und
mir sagen ob die so "genau" ist oder ob die
völlig falsch läuft. danke schon mal.

bye Fredyy

[Matze]

Bei mir (WinXP Home SP2) läuft sie eindeutig zu langsam.

Nachtrag: Timer mit Intervall 1, lustig, aber schwachsinnig. WIndows XP schafft max. 10 ms, Win9x 50 ms, daran liegt es, dass deine Stoppuhr zu langsam ist, stelle das Intervall auf 50 ms, überprüfe entsprechend und die Stoppuhr ist deutlich genauer. Oder schau dir mal das hier an.

[s.h.a.r.k]

Hab ebenfalls XP mit SP1 und die Uhr ist ja verdammt langsam!!! Wie hast du Sie eigentlich programmiert?! Hoffe nicht mit einem Timer!

[Matze]

Zitat von s.h.a.r.k:

Hab ebenfalls XP mit SP1 und die Uhr ist ja verdammt langsam!!! Wie hast du Sie eigentlich programmiert?! Hoffe nicht mit einem Timer!

Siehe dir den Quelltext an und du wirst ereknnen, dass es sich um einen TTimer handelt.

[s.h.a.r.k]

Zitat von Matze:

Zitat von s.h.a.r.k:

Hab ebenfalls XP mit SP1 und die Uhr ist ja verdammt langsam!!! Wie hast du Sie eigentlich programmiert?! Hoffe nicht mit einem Timer!

Siehe dir den Quelltext an und du wirst ereknnen, dass es sich um einen TTimer handelt.

Das konnte ich leider nicht nachschauen, da ich auf diesem Rechner leider kein Delphi hab! sorry

[Matze]

Zitat von s.h.a.r.k:

Das konnte ich leider nicht nachschauen, da ich auf diesem Rechner leider kein Delphi hab! sorry

Das würde auch mit Notepad gehen. Aber Fredyy hat nun den Grund für seine ungenaue Stoppuhr und mit Luckies Code aus der Code-Library kann er diese wirklich sehr genau machen, da dieser auf dem CPU-Takt basiert. TTimer eignet sich dafür nicht.

[malo]

Es würde auch ein DXTimer als Alternative zum TTimer reichen. Es gab schon einige Diskussionen darüber. Kurze Zusammenfassung:

Ein Timer (z.B. TTimer) ist ein Thread. Threads laufen immer parallel nebeneinander, statt nacheinander. Wenn man jetzt einen Thread erstellt, der eine geringere Priorität hat, wird er in größeren Abständen aufgerufen als ein Thread mit hoher Priorität (logisch). Und da liegt der Unterschied: Der TTimer hat eine zu niedrige Priorität, um auf 1ms zu laufen (jedenfalls auf aktuellen Systemen). Dafür verbrauchen aber auch schnellere Timer (z.B. DXTimer) mehr CPU-Auslastung

Das sollte imho als Erklärung reichen (wenn ich irgendwo falsch liegen sollte, bitte melden). Das heißt: Es würde also eigentlich schon reichen, wenn du den Timer durch den DXTimer ersetzt (oder durch eine andere, beliebige Timer-Unit, von denen es mittlerweile einige gibt)

[FriFra]

Warum "merkst" Du Dir nicht einfach die Startzeit (Systemzeit beim Start der Stopuhr) und erechnest Dir onTimer die Differenz zur aktuellen Zeit? Bei einem entspr. kurzem Interval läuft die Uhr dann absolut genau (zumindest so genau wie Deine Systemuhr ) und schnell, egal ob der Timer mal schneller oder mal langsamer läuft...

[Fredyy]

wie kann ich die startzeit raus bekommen?

danke schon mal für eure antworten...

[3_of_8]

start:=GetTickCount; Also sowas in der Art:

Delphi-Quellcode:

interface
//...
var start: Cardinal=0;

//...

implementation

//...

procedure Button1Click(Sender: TObject);
begin
if start=0 then
begin
start:=GetTickCount;
Button1.caption:='Stopp';
label1.caption:='';
end
else
begin
Button1.Caption:='Start';
start:=0;
label1.caption:=inttostr(round((GetTickCount-start)/1000)))+' Sekunden verstrichen.';
end;
end;

//...

end.