Page 1 sur 1
Comment afficher une image ou un sprite ???
Publié : sam. 29/janv./2005 15:12
par 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 !
Publié : sam. 29/janv./2005 16:01
par 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
Publié : sam. 29/janv./2005 17:16
par morukutsu
Merci
ça marche, et en plus je te remercie aussi d'ètre allé si vite !