Entwickler-Ecke
Delphi Language (Object-Pascal) / CLX - Stoppuhr ins Sekunden
Delphi-Zone - Do 23.09.10 15:35
Titel: Stoppuhr ins Sekunden
Hallo,
Ich möchte meine Stoppuhr in meinem spiel nicht in milliesekunden. (was er automatisch macht)
Sondern in Sekunden.
Ich hab schon alles durch gesucht, aber ich hab noch keine quellcode dafür gefunden.
Wäre nett wenn ihr mir da helft.
Gruß Tom
Gausi - Do 23.09.10 15:37
Wie wäre es, die Zeit in Millisekunden durch 1000 zu teilen? Dann hat man doch die Zeit in Sekunden. :gruebel:
bummi - Do 23.09.10 15:44
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
| procedure TForm1.Button1Click(Sender: TObject);
begin
FTC := getTickCount;
Timer1.Enabled := not Timer1.Enabled;
if not Timer1.Enabled then
begin
label1.Font.Color := clRed;
end
else label1.Font.Color := clBlack;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
label1.Caption := IntToStr( (GetTickCount - FTC) div 1000);
end; |
Delphi-Zone - Do 23.09.10 15:56
Danke! Jetzt hab ich es!!!
Gruß Tom
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!