PureBasic

Code : Tout sélectionner

If OpenWindow(0, 0,0,400, 300, "PureBoutton", #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget | #PB_Window_ScreenCentered)

  ; This is the 'event loop'. All the user actions are processed here.
  ; It's very easy to understand: when an action occurs, the EventID
  ; isn't 0 and we just have to see what have happened...
  ;
  
  Repeat
    Event = WaitWindowEvent()

    If Event = #PB_Event_CloseWindow  ; If the user has pressed on the close button
      Quit = 1
    EndIf

  Until Quit = 1
  
EndIf

End   ; All the opened windows are closed automatically by PureBasic

Code : Tout sélectionner

 OpenWindow(0, 0, 0, 200, 200, "2DDrawing Example", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)

StartDrawing(WindowOutput(0))

For x = 0 To 199
  For y = 0 To 199
    Plot(x, y, RGB(Random(255), Random(255), Random(255)))
  Next y
Next x

StopDrawing() 
    
Repeat
  Event = WaitWindowEvent()
Until Event = #PB_Event_CloseWindow