DGL • Thema anzeigen - Time Based Movement -> Frameratebegrenzung

Time Based Movement -> Frameratebegrenzung

Moderator: DGL-Team

Seite 1 von 1

[ 6 Beiträge ]

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

Adory12345

Betreff des Beitrags: Time Based Movement -> Frameratebegrenzung

Verfasst: So Jul 24, 2011 16:33

DGL Member

Registriert: So Jul 24, 2011 15:40
Beiträge: 15

Hallo Leute,

ich versuche gerade verzweifelt eine Frameratebegrenzung auf max. XX fps in mein Spiel einzubauen. Ich möchte also keinen Time-Based- sondern einen Frame-Based-Movement-Ansatz fahren. Da mein Spiel kaum Anforderungen an die CPU stellt und ich selbst mit meinem schrottigen Laptop noch 500 FPS erreiche wäre das denke ich vertretbar

Hierzu habe ich folgenden Codeschnipsel bei euch im Wiki gefunden (http://wiki.delphigl.com/index.php/Fram ... mentierung):

Code:

var
  FMaximumFrameRate: double;
  FLastSleep: double = 0;
 
procedure LimitFrameRate(atd: double); //"atd" ist die Zeitdifferenz zwischen zwei Frames - inklusive der "Sleeptime"
var
  sleeptime: Double;
begin
  sleeptime := 1000 / FMaximumFrameRate - (atd - FLastSleep);
  if sleeptime > 0 then
  begin
    Sleep(trunc(sleeptime));
    FLastSleep := sleeptime;
  end else
    FLastSleep := 0;
end;

... werde jedoch leider nicht wirklich schlau daraus :/ Besonders der Part mit "atd" leuchtet mir noch nicht ein. Ich verstehe nicht ganz welchen Wert ich beim Aufruf der Prozedur übergeben muss, bzw. wie sich dieser errechnet - auch weiß ich nicht wo genau ich diese Prozedur aufrufen muss. Vielleicht verstehe ich es auch einfach nur total falsch :}

Wäre toll, wenn sich jemand erbarmt mir zu helfen

Nach oben

igel457

Betreff des Beitrags: Re: Time Based Movement -> Frameratebegrenzung

Verfasst: So Jul 24, 2011 19:15

DGL Member

Registriert: Do Jun 28, 2007 17:58
Beiträge: 193
Programmiersprache: Pascal, C

Du hast irgendwo deine Haupt-Programmschleife. Dort fügst du sowas ein wie

Code:

 
var lasttc: int64;
 
procedure Schleife;
var
  tneu: int64;
  tdelta : int64;
begin
  tneu := GetTickCount();
  tdelta := tneu - lasttc;
  lasttc := tneu;
  LimitFrameRate(tdelta / 1000);
 
  // Zeichne
end;
 

_________________
http://audorra.sourceforge.net//http://andorra.sourceforge.net

Nach oben

Adory12345

Betreff des Beitrags: Re: Time Based Movement -> Frameratebegrenzung

Verfasst: So Jul 24, 2011 23:28

DGL Member

Registriert: So Jul 24, 2011 15:40
Beiträge: 15

Hallo und danke erstmal... für die Zeitmessung wollte ich den QueryPerformanceCounter, nicht GetTickcount verwenden.. könntest du das nochmal unter Verwendung des selbigen beschreiben?

Code:

 
procedure TMainform.loop(Sender: TObject; var Done: Boolean);
begin
  QueryPerformanceCounter(StartCount);
  Render; 
  QueryPerformanceCounter(EndCount);
 
  frametime_ms := (((EndCount - StartCount) / Freq ) * 1000);
 
  LimitFrameRate(?????);
 
  Done := false;
end;
 

Nach oben

Adory12345

Betreff des Beitrags: Re: Time Based Movement -> Frameratebegrenzung

Verfasst: Mo Jul 25, 2011 18:09

DGL Member

Registriert: So Jul 24, 2011 15:40
Beiträge: 15

Hat denn niemand eine Lösung?

Nach oben

Schläfer

Betreff des Beitrags: Re: Time Based Movement -> Frameratebegrenzung

Verfasst: Mo Jul 25, 2011 22:50

DGL Member

Registriert: Fr Okt 03, 2008 13:32
Beiträge: 367

Du warst schon dicht dran:

Code:

 
var LastTicks:Int64;
 
procedure TMainform.loop(Sender: TObject; var Done: Boolean);
var newTicks:Int64;
    frametime_ms:Double;
begin
  QueryPerformanceCounter(newTicks);
  frametime_ms := (((newTicks - LastTicks) / Freq ) * 1000);
  LastTicks:=newTicks;
  LimitFrameRate(frametime_ms);
  
  Render;
  
  Done := false;
end;
 

Eigentlich ist das fast das Gleiche wie das von igel457. Dein Fehler war bloß, dass du nur die Zeit zum Zeichnen gemessen hast, ohne die Wartezeit, die LimitFrameRate selbst bewirkt. Das steht ja eigentlich auch als Kommentar zu der Funktion: "atd" ist die Zeitdifferenz zwischen zwei Frames - inklusive der "Sleeptime".

Nach oben

Adory12345

Betreff des Beitrags: Re: Time Based Movement -> Frameratebegrenzung

Verfasst: Do Jul 28, 2011 18:03

DGL Member

Registriert: So Jul 24, 2011 15:40
Beiträge: 15

Danke dir

Nach oben

Seite 1 von 1

[ 6 Beiträge ]

Foren-Übersicht » Programmierung » Einsteiger-Fragen

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 5 Gäste

Du darfst keine neuen Themen in diesem Forum erstellen.
Du darfst keine Antworten zu Themen in diesem Forum erstellen.
Du darfst deine Beiträge in diesem Forum nicht ändern.
Du darfst deine Beiträge in diesem Forum nicht löschen.
Du darfst keine Dateianhänge in diesem Forum erstellen.