Code : Tout sélectionner
SetFrameRate(30)
Je pense que tu devras ajouter une notion de delta time.microdevweb a écrit :La vitesse de déroulement sera-t-elle égale quelle que soit la vitesse du Pc ou faut-il encore ajouter un calcul ?
Code : Tout sélectionner
EnableExplicit
Define n, x, y, Buffer.s
InitSprite() : InitKeyboard()
LoadFont(0, "", 200)
OpenWindow(0, 0, 0, 0, 0, "FullScreen", #PB_Window_BorderLess | #PB_Window_Maximize)
OpenWindowedScreen(WindowID(0), 0, 0, WindowWidth(0), WindowHeight(0))
;Initialisation du nombre d'images par seconde
SetFrameRate(30) ; <-- Rempalace 30 par 1
;Loop
Repeat : Repeat : Until WindowEvent() = 0
;Préparation de l'affichage
ClearScreen(RGB(75, 0, 130))
StartDrawing(ScreenOutput())
DrawingFont(FontID(0))
DrawingMode(#PB_2DDrawing_Transparent)
x = (ScreenWidth() - TextWidth(Buffer))/2
y = (ScreenHeight() - TextWidth(Buffer))/2
DrawText(x, y, Str(n))
StopDrawing()
;Remplacement de l'image précédente par la nouvelle image
FlipBuffers()
;Mise à jours du traitement avant affichage suivant
n + 1
Buffer = Str(n)
ExamineKeyboard()
Until KeyboardReleased(#PB_Key_Escape)