Comment afficher une image ou un sprite ???

[morukutsu]

Bonjour, j'aimerai bien realiser un Shoot-em-up, mais je narrive pas a afficher une image en mode Screen voici mon code :

;Debut de la programmation de Captian Airman le 26/01/2005 -Morukutsu Productions
;Initalisation de libraires
InitSprite()
InitSprite3D()
Screenresult = OpenScreen(640,480,16,"Captain Airman")
If Screenresult=0
MessageRequester("Erreur","Erreur d'initialisation de l'écran, essayez de reinstaller la dernier version de DirectX",#PB_MessageRequester_Ok)
EndIf
Keyboardresult = InitKeyboard()
If Keyboardresult=0
MessageRequester("Erreur","Erreur d'initialisation du clavier, essayez de reinstaller la dernier version de DirectX",#PB_MessageRequester_Ok)
EndIf
Mouseresult = InitMouse()
If Mouseresult=0
MessageRequester("Erreur","Erreur d'initialisation de la souris, essayez de reinstaller le derniere version de DirectX",#PB_MessageRequester_Ok)
EndIf
Soundresult = InitSound()
If Soundresult=0
MessageRequester("Erreur","Erreur d'initialisation du son la carte son peut etre occupée, essayez de reinstaller le derniere version de DirectX",#PB_MessageRequester_Ok)
EndIf
;et la kézako sa n'affiche rien !!!!!
UseJPEGImageDecoder()
LoadImage(1,"images/espace.jpg")
StartDrawing(ScreenOutput())
DrawImage(1,0,0)
StopDrawing()

Je ne suis qu'un debutant !! Help Merci !

[Torp]

C'est une des solutions :

Code : Tout sélectionner

;Debut de la programmation de Captian Airman le 26/01/2005 -Morukutsu Productions
;Initalisation de libraires
InitSprite()

Screenresult = OpenScreen(800,600,32,"Captain Airman")
If Screenresult=0
  MessageRequester("Erreur","Erreur d'initialisation de l'écran, essayez de reinstaller la dernier version de DirectX",#PB_MessageRequester_Ok)
EndIf
Keyboardresult = InitKeyboard()
If Keyboardresult=0
  MessageRequester("Erreur","Erreur d'initialisation du clavier, essayez de reinstaller la dernier version de DirectX",#PB_MessageRequester_Ok)
EndIf
Mouseresult = InitMouse()
If Mouseresult=0
  MessageRequester("Erreur","Erreur d'initialisation de la souris, essayez de reinstaller le derniere version de DirectX",#PB_MessageRequester_Ok)
EndIf
Soundresult = InitSound()
If Soundresult=0
  MessageRequester("Erreur","Erreur d'initialisation du son la carte son peut etre occupée, essayez de reinstaller le derniere version de DirectX",#PB_MessageRequester_Ok)
EndIf
;et la ca s'affiche !!!!!!!!!!
UseJPEGImageDecoder()

If LoadSprite(1,"images/espace.jpg")=0:MessageRequester("Erreur","Imposible de charger l'image",#PB_MessageRequester_Ok):EndIf

DisplaySprite(1,0,0)

Repeat
  ExamineKeyboard()
  FlipBuffers()
  Delay(1)
Until KeyboardPushed(#PB_Key_Escape) ;appuyer sur Echap pour sortir

[morukutsu]

Merci ça marche, et en plus je te remercie aussi d'ètre allé si vite !