Autor Beitrag
Zlatan
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starontopic star
Beiträge: 175



BeitragVerfasst: Mi 26.01.11 18:06 
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
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starofftopic star
Beiträge: 542
Erhaltene Danke: 33

Windows 7 Premium
Delphi XE, Eclipse
BeitragVerfasst: Mi 26.01.11 18:12 
Aye, Aye :roll:

Das kannst du mir gettickcount lösen.
ausblenden 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');

Für diesen Beitrag haben gedankt: Zlatan
Zlatan Threadstarter
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starontopic star
Beiträge: 175



BeitragVerfasst: 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
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starofftopic star
Beiträge: 542
Erhaltene Danke: 33

Windows 7 Premium
Delphi XE, Eclipse
BeitragVerfasst: 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:
ausblenden 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;

Für diesen Beitrag haben gedankt: Zlatan
Zlatan Threadstarter
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starontopic star
Beiträge: 175



BeitragVerfasst: 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
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starofftopic star
Beiträge: 542
Erhaltene Danke: 33

Windows 7 Premium
Delphi XE, Eclipse
BeitragVerfasst: 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.