Frame-Limiter einbauen

Übersicht

BlitzBasic

Allgemein

	Gast Betreff: Frame-Limiter einbauen	So, März 07, 2004 23:07 Antworten mit Zitat
Hallo! Ich habe folgendes Problem mit meinem Programm.Es läuft so schnell das die Hintergrundprogramme nur sperrlich aufgehn. Auf jeden Fall muss ich irgendwie ein Frame Limit setzen. Schickt mir bitte ein Beispiel Code oder eine Erklärung! Danke im vorraus!

Gast

Betreff: Frame-Limiter einbauen

So, März 07, 2004 23:07
Antworten mit Zitat

Hallo!
Ich habe folgendes Problem mit meinem Programm.Es läuft so schnell
das die Hintergrundprogramme nur sperrlich aufgehn.

Auf jeden Fall muss ich irgendwie ein Frame Limit setzen.
Schickt mir bitte ein Beispiel Code oder eine Erklärung!

Danke im vorraus!

	Rallimen Sieger des 30-EUR-Wettbewerbs	So, März 07, 2004 23:18 Antworten mit Zitat
mit CreateTimer(60) WaitTimer() Beispielcode mit FPS Anzeige: Code: [AUSKLAPPEN] [EINKLAPPEN] Graphics 800,600,16,1 SetBuffer BackBuffer() Dim FPS(3) ; für Frame anzeige frameTimer=CreateTimer(60) ;60 framerate While Not KeyDown(ESC) WaitTimer(frameTimer): Flip Cls Text 9,9,"FPS:"+FPS(1):FPS(2)=FPS(2)+1:If MilliSecs()>FPS(3)+999 Then FPS(1)=FPS(2):FPS(2)=0:FPS(3)=MilliSecs() Wend :End
[BB2D \| BB3D \| BB+]

Rallimen

Sieger des 30-EUR-Wettbewerbs

So, März 07, 2004 23:18
Antworten mit Zitat

mit CreateTimer(60) WaitTimer()

Beispielcode mit FPS Anzeige:
Code: [AUSKLAPPEN]

Graphics 800,600,16,1
SetBuffer BackBuffer()
Dim FPS(3) ; für Frame anzeige
frameTimer=CreateTimer(60) ;60 framerate

While Not KeyDown(ESC)

WaitTimer(frameTimer):
Flip
Cls
Text 9,9,"FPS:"+FPS(1):FPS(2)=FPS(2)+1:If MilliSecs()>FPS(3)+999 Then FPS(1)=FPS(2):FPS(2)=0:FPS(3)=MilliSecs()
Wend :End

[BB2D | BB3D | BB+]