PureBasic

Code : Tout sélectionner

#Window = 0
#Width = 600
#Height = 600
#Timer = 0

;- Initialisation de DirectX
If InitSprite() = 0 Or InitKeyboard() = 0 Or InitMouse() = 0
  MessageRequester("Erreur", "Impossible d'initialiser DirectX", 0)
  CloseWindow(#Window) : End
EndIf


;- Ouverture de la fenêtre et de l'écran
hWnd = OpenWindow(#Window, 0, 0, #Width, #Height, #PB_Window_TitleBar | #PB_Window_ScreenCentered, "")
OpenWindowedScreen(hWnd, 0, 0, 600, 600, 0, 0, 0)


;- Lancement du Timer, et début de la boucle
Timer = SetTimer_(hWnd, #Timer, 1, 0)
Repeat
  ClearScreen(0, 0, 0) : ExamineKeyboard()
  
  Select WindowEvent()
    Case #WM_TIMER

  EndSelect
  
  FlipBuffers()
  If KeyboardPushed(#PB_Key_Escape) : quit = 1 : EndIf
Until quit = 1