Quelltext der Seite Framecounter

==Problemstellung==
Die Bildwiederholrate in Frames per Seconds ist ein in Computerspielen oftmals verwendeter Wert, der eine Aussage über die Leistungsfähigkeit des Computersystems geben kann.<br>
Wenn man in seinem Programm die [[Frames|Frame]] pro Sekunde (FPS) anzeigen lassen möchte, so gibt es verschiedene Lösungswege.

==Ansätze==
===Methode 1===

Am Anfang der Renderschleife "misst" man die Zeit und speichert sie in einer Variable.
Dafür kann man die von Windows bereitgestellten Methoden [http://msdn.microsoft.com/library/default.asp?url=/library/en-us/sysinfo/base/gettickcount.asp "Gettickcount"] (gibt in Millisekunden an, wie lange Windows läuft) oder [http://msdn.microsoft.com/library/default.asp?url=/library/en-us/winui/WinUI/WindowsUserInterface/Windowing/Timers/TimerReference/TimerFunctions/QueryPerformanceCounter.asp "QueryPerformanceCounter"] und unter SDL SDL_GetTicks verwenden.
Für unsere Zwecke reichen diese Funktionen vollkommen aus.

Als zweiten Schritt rendert man seine Szene, verarbeitet Tastatureingaben usw. 
Also alles, was in der Renderschleife passiert.

Am Ende der Renderschleife stoppt man dann ein zweites Mal die Zeit und erhält nun eine Zeitdifferenz.

Die FPS erhält man nun durch folgende Berechnung:
<source lang="pascal">FPS = 1000 / Zeitdifferenz;</source>

Wobei Zeitdifferenz bei dieser Formel auch in Millisekunden angegeben sein muss.

===Methode 2===

Diese Methode unterscheidet sich kaum von Methode 1. 
Wieder wird:
#Startzeit bestimmt
#gerendert
#Endzeit bestimmt
#Zeitdifferenz berechnet

Anschließend wird die Zeitdifferenz auf eine Variable TimeCount addiert. Außerdem wird eine Zählvariable für die Frames erhöht.

Wenn die Variable Timecount größer-gleich 1000 wird (es ist mindestens 1 sec vergangen) wird die Frameanzahl berechnet und ausgegeben.

Die Methode 2 hat gegenüber Methode 1 den Vorteil, dass die Frameanzahl nicht nach jedem Frame sondern maximal nur einmal pro Sekunde berechnet wird.

==Implementierung==

Der folgende Code (passend zu Methode 2) wird im OnIdle-Event des OpenGL Formulars ausgeführt. Die Anzahl der Frames wird in der Beschriftung (Caption) des Fensters ausgegeben.

<source lang="pascal"> procedure TForm1.IdleHandler(Sender: TObject; var Done: Boolean);
 begin
 //
   StartTime:= GetTickCount;
 
   Render;
 
   DrawTime:= GetTickCount - StartTime;
 
   inc(TimeCount, DrawTime);
   inc(FrameCount);
 
   if TimeCount >= 1000 then begin
     Frames:= FrameCount;
     Dec(TimeCount, 1000);
     FrameCount:= 0;
 
     Caption:= InttoStr(Frames) + 'FPS';
   end;
 
   Done:= false;
 end;</source>
==Siehe auch==
[[Frameratenbegrenzung]]

[[Kategorie:Anleitung]] [[Kategorie:Technik_oder_Algorithmus]]