DGL • Thema anzeigen - FPS begrenzen

FPS begrenzen

Moderator: DGL-Team

Seite 1 von 1

[ 7 Beiträge ]

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

Bergmann89

Betreff des Beitrags: FPS begrenzen

Verfasst: Mi Aug 20, 2008 22:04

DGL Member

Registriert: Di Apr 29, 2008 18:56
Beiträge: 1213
Programmiersprache: Delphi/FPC

HI,

ich hab versucht die FPS in meinem Programm zu begrenzen, geht auch ganz gut
so wie ich das gelöst hab, aber sobald ich MaxFPS größer als 75 setze, dann hängt
sich das Prog beim Starten auf. Aber ich hab kein Plan, wo der Fehler ist!

Code:

const 
  MaxFPS = 75;
 
var  
  StartTime, TimeCount, FrameCount  : Cardinal; //FrameCounter
  Frames, DrawTime, SleepTime       : Cardinal; //& Timebased Movement
 
procedure TForm1.IdleHandler(Sender: TObject; var Done: Boolean);
begin
  StartTime := GetTickCount;                 //StartZeit setzen
  RenderBlendMap(Transparenz);               //BlendMap rendern
  Render;                                    //Szene rendern
  DrawTime := GetTickCount - StartTime;      //Zeit die zum Zeichnen benötigt wird berechnen
  if MaxFPS > 0 then SleepTime := round(1000/MaxFPS)-DrawTime else SleepTime := 0; //SleepTime ermitteln
  Sleep(SleepTime);                          //Pause
  DrawTime := DrawTime+SleepTime;            //Delta Time brechnen
  Inc(TimeCount, DrawTime);                  //TimeCount erhöhen
  Inc(FrameCount);                           //FrameCount erhöhen
 
  if TimeCount >= 1000 then                  //wenn mehr als eine Sekunde um, dann:
    begin
      Frames := FrameCount;
      TimeCount := TimeCount - 1000;
      FrameCount := 0;
      Caption := IntToStr(Frames)+' FPS';
    end;
 
  Done := False;
end;

Was mach ich falsch?

MfG Bergmann.

Nach oben

Bergmann89

Betreff des Beitrags:

Verfasst: Do Aug 21, 2008 11:07

DGL Member

Registriert: Di Apr 29, 2008 18:56
Beiträge: 1213
Programmiersprache: Delphi/FPC

Habs jetzt so gemacht:

MaxFPS in eine Variable.
OnFormCreate: MaxFPS := 0;
Alles laden
OnFormShow: MaxFPS := 50;

und so gehts bis jetzt. ma gucken ob sich noch was ergibt,
oder ob ich das jetzt anhacken kann...

MfG Bergmann.

Nach oben

Bergmann89

Betreff des Beitrags:

Verfasst: So Aug 24, 2008 02:15

DGL Member

Registriert: Di Apr 29, 2008 18:56
Beiträge: 1213
Programmiersprache: Delphi/FPC

HI,

geht immer noch nich...
Das Programm startet zwar jetzt, ohne sich aufzuhängen, aber dafür bleibt es dann immer mittendrin hängen. Wenn ich das Prog einfach laufen lass, dann is nich erkennbar, das es nach einer bestimmten Aktion hängen bleibt: Es ist immer unterschiedlich. Wenn ich den Frame-Limiter aber ganz raus nehm, dann läuft es 1a, also muss es ja daran liegen. Kann mir da jmd helfen?

MfG Bergmann

p.s.: tolles Selbstgespräch xD

Nach oben

Bergmann89

Betreff des Beitrags:

Verfasst: So Aug 31, 2008 02:36

DGL Member

Registriert: Di Apr 29, 2008 18:56
Beiträge: 1213
Programmiersprache: Delphi/FPC

Moin,

hat keiner na Ahnung?! Wie macht ihr das bei euren Programmen? Liegt es vlt. am Sleep? Oder sollte ich einfach nur einen Timer nehmen?

MfG Bergmann.

Nach oben

TAK2004

Betreff des Beitrags:

Verfasst: So Aug 31, 2008 08:43

DGL Member

Registriert: Di Mai 18, 2004 16:45
Beiträge: 2623
Wohnort: Berlin
Programmiersprache: Go, C/C++

Ich würde kein Sleep(0); benutzen, pack sleep in das if rein.

Code:

if MaxFPS > 0 then
begin
  SleepTime := round(1000/MaxFPS)-DrawTime;
  Sleep(SleepTime);
end
else 
   SleepTime := 0; //SleepTime ermitteln //Pause

Das ist um einiges sicherer, denn meines Wissens sind negative werte,0 und infinity absolut tötlich für sleep und machen sonnst auch keinen Sinn.

_________________
"Wer die Freiheit aufgibt um Sicherheit zu gewinnen, der wird am Ende beides verlieren"
Benjamin Franklin

Projekte: https://github.com/tak2004

Nach oben

igel457

Betreff des Beitrags:

Verfasst: So Aug 31, 2008 10:05

DGL Member

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

Schau mal hier:
http://andorra.cvs.sourceforge.net/ando ... iew=markup

Dort habe ich auch eine Funktion zu limitieren der FPS geschrieben (TAdPerformanceCounter.LimitFrameRate). Der Parameter "atd" ist die Zeitdifferenz seit dem letzten Aufruf.

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

Nach oben

Bergmann89

Betreff des Beitrags:

Verfasst: So Aug 31, 2008 22:28

DGL Member

Registriert: Di Apr 29, 2008 18:56
Beiträge: 1213
Programmiersprache: Delphi/FPC

HI,

ganz kurrios, hab jetzt ne lösung gefunden, aber:
so gehts:

Code:

  
  var SleepTime: Double;
 
  if MaxFPS > 0 then
    begin
      SleepTime := 1000/MaxFPS - DrawTime;
      if SleepTime > 0 then Sleep(Trunc(SleepTime));
    end
  else SleepTime := 0;

und so gehts nich?!:

Code:

  
  var SleepTime: Cardinal;
 
  if MaxFPS > 0 then
    begin
      SleepTime := round(1000/MaxFPS) - DrawTime;
      if SleepTime > 0 then Sleep(SleepTime);
    end
  else SleepTime := 0;

Naja ega, jetzt gehts ja xD
DANKE!

MfG Bergmann.

Nach oben

Seite 1 von 1

[ 7 Beiträge ]

Foren-Übersicht » Programmierung » Einsteiger-Fragen

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 3 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.