Stopuhr programmieren

[oki]

Hallo chakotay,

ja, ja, genau da steckt das Problem. Wenn Du den Timer anhälst um Code zu verarbeiten vergeht auch Zeit! Dann passiert praktisch folgendes:
Timer läuft eine Sekunde -> angehalten -> Code wird z.B. 100ms bearbeitet -> Timer start -> läuft eine Sekunde ..... usw.
Seit Begin des ersten Starts sind zum zweiten Neustart aber schon 1,1 Sekunden vergangen! So geht das immer weiter.
In meinem Beispiel hast Du also nach 10 Starts nicht 10 sondern 11 Sekunden hinter dier.

Das hört sich alles recht einfach an. Wenn man das jetzt sieht sagt jeder "Sowas blöd, weiß man doch".

Wenn mans das erste mal macht hauts einem aber aus Erfahrung immer genau an so einfachen Stellen die Füße weg.

Gut, das dazu

Gruß oki

[Sertrain]

Auch wenn das Thema eingestaubt ist brauche ich es gerade. Wie lass ich mir nicht die Millisekunden anzeigen, sondern die Sekunden plus Millisekunden. Also zB: 1,34 sekunden.

[DeddyH]

label1.Caption := Format ('Die Stopuhr lief %.2f s.',[(endzeit-startzeit) / 1000]);

[Sertrain]

Ich danke dir.

[Sertrain]

Code:

begin
 If (Button1.Caption = 'Start') then
  begin
   startzeit := GetTickCount;
   Button1.Caption := 'Stop';
   label1.Caption := 'Uhr läuft';
  end
 else
  begin
   endzeit := GetTickCount;
   label1.Caption := label1.Caption := Format('Die Stoppuhr lief %.2f s.',[(endzeit-startzeit) / 1000]);
   Button1.Caption := 'Start';
  end;
end;

und er sagt mir: "Inkompatible Typen: 'String' und 'procedure, untyped pointer or untyped parameter' ...

Und nun? =)

[DeddyH]

Zitat:

label1.Caption := label1.Caption :=

Einmal zuviel

[Sertrain]

Huch .. ^^ wie peinlich