PureBasic

MetalOS a écrit : sam. 29/nov./2025 16:43 Essaie ca SPH sur PB 6.12

Code : Tout sélectionner

If InitSprite() = 0
  MessageRequester("Erreur", "Impossible d'initialiser le système de sprites.", 0)
  End
EndIf

If InitKeyboard() = 0
  MessageRequester("Erreur", "Impossible d'initialiser le clavier.", 0)
  End
EndIf

; --- Ouverture de l'écran---

If OpenScreen(800, 600, 32, "Sprite") = 0
  MessageRequester("Erreur", "Impossible d'ouvrir l'écran 800x600.", 0)
  End
EndIf

FlipBuffers()  


; --- Création et dessin du sprite ---

If CreateSprite(0, 200, 200) = 0
  MessageRequester("Erreur", "Impossible de créer le sprite.", 0)
  End
EndIf

If StartDrawing(SpriteOutput(0))
  
  DrawingMode(#PB_2DDrawing_Gradient)
  BackColor(RGB(255,255,255))   
  FrontColor(RGB(255,255,0))    
  
  CircularGradient(100, 100, 100)
  Circle(100, 100, 100)
  CircularGradient(350, 100, 75)
  Circle(300, 100, 100)
  
  StopDrawing()
Else
  MessageRequester("Erreur", "Impossible de dessiner sur le sprite.", 0)
  End
EndIf


; --- Boucle principale d'affichage ---

StartTime = ElapsedMilliseconds()

Repeat
  ExamineKeyboard()
  
 
  ClearScreen(RGB(0,0,0))
  DisplaySprite(0, 210, 160)

  FlipBuffers()
 
  Delay(10)
  
Until KeyboardPushed(#PB_Key_Escape) Or ElapsedMilliseconds() - StartTime > 3000

End

Ca marche si je précise le sous systeme : directx11
Ca marche chez vous parce que vous l'aviez renseigné, je pense.

Merci

Oui effectivement.