Hilfe...wie mach ich eine Stoppuhr?

[patti]

Ich könnte mir vorstellen, dass die Aufgabenstellung auf eine etwas andere Lösung abzielt. Du kannst dir eine private Variable deklarieren und diese beim Programmstart auf 0 setzen. Beim Drücken des Buttons aktivierst du den Timer (setzt die Eigenschaft Enabled von false auf true). Bei jedem Timer-Event erhöhst du deine Variable um die Zeitdauer des Timers (Eigenschaft Interval) und gibst die Variable per IntToStr in deinem Label aus. Beim Stoppen musst du lediglich den Timer wieder deaktivieren

Hinweis: Die Lösung von "rollstuhlfahrer" arbeitet genau genommen besser, da sie genauer ist. Wenn ein Timer beispielsweise ein Interval von 25ms hat, dann dauert es nicht genau 25ms, bis der Timer tatsächlich aufgerufen wird, sondern diese Zeit kann schwanken. Gerade bei einem kleinen Interval kann es in diesem Fall zu erheblichen Abweichungen kommen!

[s.h.a.r.k]

Schau dir mal meine Komponente an Hab Sie gerade eben fertig geschrieben, da findest du eigentlich alle was du brauchst. ABER: lerne daraus und nicht einfach nur kopieren.

Welcome to DP

[Sir Rufo]

Da es sich hier ja um eine Aufgabe für Anfänger handelt und diese mit den bisher vermittelten Kenntnissen lösbar sein sollte, glaube ich, dass der Einsatz von Standard-Komponenten völlig ausreichen muss.

Anzeige in Millisekunden wird wohl so gemeint sein:
Label1.Caption( FormatDateTime( 'hh:nn:ss.zzz', Dauer ) ); Die Anzeige jede Millisekunde zu Referaten ist bestimmt nicht gefordert, da dies a) technisch nicht möglich und b) absolut unnötig ist. Das Auge ist mit 25 Bildern pro Sekunde schon glücklich wozu also mit 1000 Bildern pro Sekunde stressen (Auge wie Computer)

Somit würde ich Timer-Interval auf 40 setzen (das ist auch schon hart) und im Timer-Event dann das Label aktualisieren lassen:
Label1.Caption( FormatDateTime( 'hh:nn:ss.zzz', now - Start ) ); Damit der Timer losläuft und anhält im OnClick-Event

Delphi-Quellcode:

Start := now;
Timer1.Enabled := not Timer1.Enabled;

Im groben sollte es das gewesen sein. Da kann man noch etwas feilen, aber wir wollen es ja auch nicht komplett bauen

[s.h.a.r.k]

Ich mag es aber diverse Utilities in Komponenten/Klassen zu packen Wenn OOP, dann schon von Anfang an. Aber ist in diesem Fall vielleicht wirklich mit Kanonen auf Spatzen geschossen.

[Sir Rufo]

Er ist doch gerade dabei das Seepferdchen zu machen und da ist der Rettungsschwimmer noch weit weg

[s.h.a.r.k]

Man kann doch aber doch auch sicherlich schon mal den Grundkurs für die Rettungsschwimmer ansehen

[Sir Rufo]

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

Man kann doch aber doch auch sicherlich schon mal den Grundkurs für die Rettungsschwimmer ansehen

Klar, aber erst die Arbeit, dann das Vergnügen, denn verwirren wollen wir ja nicht