Entwickler-Ecke

Grafische Benutzeroberflächen (VCL & FireMonkey) - Timer


Zlatan - Mi 26.01.11 18:06
Titel: Timer
Wie kann ich einen Zeitzähler einstellen?
Der bei Programmstart anfängt die sekunden zu zählen und bei verlieren des Spiels aufhört? und anzeigt wie lange man überlebt hat

QUELLTEXT BENÖTIGT mit klaren ANWEISUNGEN


Moderiert von user profile iconMartok: Topic aus Multimedia / Grafik verschoben am Mi 26.01.2011 um 22:32


HenryHux - Mi 26.01.11 18:12
Aye, Aye :roll:

Das kannst du mir gettickcount lösen.

Delphi-Quelltext 
1:
2:
3:
4:
5:
6:
 
var start, ende : double;
begin
  start := GetTickCount; //start einen wert zuweisen
  //.... Dein Spiel
  ende := GetTickCount;
  showmessage('Du hast '+floattostr(ende-start)+' MiliSekunden überlebt');


Zlatan - Mi 26.01.11 18:15
Wo muss ich den wert zuweisen und was heißt dein Spiel
kommt alles andere dann dazwischen?

Gib mir doch bitte einen kompletten quelltext ,ok?

muss ich einen timer auf der Form positionieren und den doppelklicken?

SOOO viele fragen :roll:


HenryHux - Mi 26.01.11 18:19
user profile iconZlatan hat folgendes geschrieben Zum zitierten Posting springen:
Wo muss ich den wert zuweisen und was heißt dein Spiel
kommt alles andere dann dazwischen?

Gib mir doch bitte einen kompletten quelltext ,ok?


Soll ich dir jetzt das ganze Spiel schreiben??
Der Quelltext sollte dir das Prinzip klar machen.
Zuerst weist du, wenn jemand das Spiel startet, der Variable start einen Wert via GetTickCount zu.
Dann wenn er verloren hat, machst du das nochmal mit der Variable Ende.
Dann subtrahierst du die Werte und rauß kommt die Zeit die vergangen ist, seit du Variable start einen Wert zugewiesen hast, in MiliSekunden.
Wenn deine Frage nicht beantwortet ist, dann konkretisiere sie doch ein bisschen, vlt mit Quelltext deiner Seite.

LG


EDIT:

Beispiel:

Delphi-Quelltext 
1:
2:
3:
4:
5:
6:
7:
8:
9:
 
procedure TForm1.btn1Click(Sender: TObject);
var start, ende : double;
begin
  start := GetTickCount; //start einen wert zuweisen
  //.... Dein Spiel
  Sleep(1000);
  ende := GetTickCount;
  showmessage('Du hast '+floattostr(ende-start)+' Sekunden überlebt');
end;


Zlatan - Mi 26.01.11 18:22
also muss ich einen timer doppelklicken und deinen Quelltext nehmen?

Was heißt jetzt aber dein spiel?
Müssen alle Proceduren dazwischen?


HenryHux - Mi 26.01.11 18:24
Einen Timer brauchst du hier garnicht.
Ich weiß leider nicht, wie dein Projekt aufgebaut ist, und wann man wo doppelklicken muss, deswegen kann ich dir keine präzisere Antwort geben.
Lad ihn doch am besten einmal hier hoch, oder spiel einfach ein bisschen mit den paar Befehlen rum.


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!