Timer / Stopuhr

[fönsi]

hallo leute
ich bin noch ein zimlicher anfänger auf delphi!
ich möchte für unsere triathlon gruppe ein programm schreiben, bei dem ich die start zeit von jedem teammitglied einzeln eingeben kann. auf die eine seite solte dan eine timerfunktion haben wo eine vorgegebene zeit abläuft und auf der anderen seite eine normale stopuhr die die zeiz misst. ist dies möglich?
wäre froh um jede art von hilfe.

[himitsu]

willst du die Startzeiten direkt eigeben oder nur für jeden einen Startbutton drücken?


http://www.FrankNStein.de/Smiley-Kuss.gif * * http://www.FrankNStein.de/Smiley-Spinne.gif * * * http://www.FrankNStein.de/Smiley-Winken.gif

[OLLI_T]

Hallo Fönsi!

Erst mal ein sportlicher Gruss an Dich!

Willst Du das Proggi als Demo oder während des Trainings / Wettkampf zum Messen der Zeiten einsetzen?

Mit GetTickCount kannst Du Dir die Systemzeit in Millisekunden holen. Das machst Du, wenn auf START geklickt wird und merkst Dir den Wert in ner Variablen: TStart:=GetTickCount;

Hast Du schon mit der TTimer Kompo gearbeitet? Im OnTimer Ereignis kannst Du jetzt die Differenz zum Startzeitpunkt berechnen und z.B. auf nem Label darstellen: TDiff := GetTickCount - TStart;

Aber alles will ich Dir ganz im Sinne des Forums nicht vorkauen. Wenn Du nicht weiter kommst ...


Keep on Running!

Viele Grüsse

OLLI

[fönsi]

@ himitsu
Ich sollte die startzeit eingeben können.

[fönsi]

@ OLLI_T

Danke für die ersten Tips
Ich möchte das programm im wettkampf und traning einsetzen.
Leider abe ich noch keine grosse ahnung von GetTickCount und TDiff := GetTickCount - TStart;
aber ich bleibe dran.
Probieren geht über studieren

[himitsu]

http://www.FrankNStein.de/Smiley-Wolke.gif Hab gerade etwas Zeit.

schicke dir gleich mal 'ne Demo mit Start/Stopp-button und Zeiteingabe.


http://www.FrankNStein.de/Smiley-Kuss.gif * * http://www.FrankNStein.de/Smiley-Spinne.gif * * * http://www.FrankNStein.de/Smiley-Winken.gif

[fönsi]

Danke für eure Tips
wünsche einen guten wochenstart

[UnixX]

Guck mal ob du was damit anfangen kannst.

Delphi-Quellcode:

private  
FStartTime: TDateTime; 
public 
end; 
procedure TForm1.FormCreate(Sender: TObject); 
begin  
FStartTime := Now; 
end; 
procedure TForm1.Timer1Timer(sender: TObject); 
begin  
Label1.Caption := FormatDateTime('HH:NN', Now - FStartTime); 
end;


{Im OnCreate/OnShow Event des Forms wird die aktuelle Zeit/Datum in FStartTime gespeichert. Zur Anzeige der vergangenen Zeit muss dann nur noch von der aktuellen zeit (Now) die Startzeit des Forms subtrahiert werden.}