PureBasic Forums - English

Code: Select all

If InitKeyboard() = 0 Or InitSprite() = 0 Or InitMouse() = 0 ; Or InitSprite3D() = 0
  MessageRequester("ERROR","Can't initialize DirectX !")
  End 
EndIf 

ExamineDesktops()
Screen_W = DesktopWidth(0)
Screen_H = DesktopHeight(0)

If OpenScreen(Screen_W, Screen_H, 32, "Sprite Demo") = 0 
  MessageRequester("ERROR", "Can't open 32 bit screen !")
  If OpenScreen(Screen_W, Screen_H, 24, "Sprite Demo") = 0 
    MessageRequester("ERROR", "Can't open 24 bit screen !")
    If OpenScreen(Screen_W, Screen_H, 16, "Sprite Demo") = 0 
      MessageRequester("ERROR", "Can't open 16 bit screen !")
      End
    EndIf
  EndIf
EndIf 

Repeat 
  
  If IsScreenActive() 
    
    ClearScreen(0)
 
  Else 
    
    Delay(10) 
    
  EndIf 
  
  FlipBuffers() 
  ExamineMouse()
  ExamineKeyboard() 
  
Until KeyboardPushed(#PB_Key_All) ; MouseDeltaX() Or MouseDeltaY() Or MouseWheel() Or 

CloseScreen()

End 

Code: Select all

  InitSprite()

  If ExamineScreenModes()
    While NextScreenMode()
      Debug Str(ScreenModeWidth())+"x"+Str(ScreenModeHeight())+"x"+Str(ScreenModeDepth())+"@"+Str(ScreenModeRefreshRate())+"Hz"
    Wend
  EndIf