Aide pour sprite 2D

Robrock55 · Message par **Robrock55** » dim. 23/mai/2010 9:38

Bonjour ! Mon ami et moi sommes en train de tenter d'essayer de faire un projet en 2D sur purebasic.

Mon pote a réalisé un code, mais il y a une erreur que j'arrive vraiment pas à comprendre, même avec les tutos et la docs sous les yeux

Code : Tout sélectionner

;================================================== 
; Essai 2d 
; Let's go ! 
; V0.1 
;================================================== 
 
;Initialisation de l'espace de travail 
InitSprite()
OpenScreen(640,480,4,"Essai") 
InitKeyboard() 
KeyboardMode(#PB_Keyboard_International) 
ExamineKeyboard() 
 
; Déclaration des positions de départ, chargement du sprite 
X = 580 
Y = 580 
;CreateSprite(1,50,50) 
 
;Mise en place de la boucle 
Repeat 

FlipBuffers() 
ClearScreen(RGB(0,0,0)) 
;DisplaySprite(1,X,Y) 
StartDrawing(ScreenOutput()) 
Circle(200,200,20,RGB(Random(255),Random(255),Random(255))) 
StopDrawing() 

If KeyboardPushed(#PB_Key_Left) 
  Y = Y-2 
  ElseIf KeyboardPushed(#PB_Key_Right) 
  Y = Y+2 
EndIf 


Until KeyboardPushed(#PB_Key_Escape)

Votre aide serait la bienvenue

EDIT : Ah oui, l'erreur est à la ligne 25, ou la ligne "StartDrawing(ScreenOutput())"
ERROR : invalid memory access. (read error at adress 0)

Je tourne sur PB 4.40

SPH · Message par **SPH** » dim. 23/mai/2010 9:52

C'est parce que tu ouvres un ecran en 4 couleurs !!
Essaye ca et ca marchera :

Code : Tout sélectionner

OpenScreen(640,480,32,"Essai")

Robrock55 · Message par **Robrock55** » dim. 23/mai/2010 9:53

Punaise je l'avais même pas vu ! Merci mille fois
C'est quand même l'air con moi je dit

SPH · Message par **SPH** » dim. 23/mai/2010 9:56

Pleins de petites erreurs quand meme. Tiens :

Code : Tout sélectionner

;================================================== 
; Essai 2d 
; Let's go ! 
; V0.1 
;================================================== 

;Initialisation de l'espace de travail 
InitSprite()
OpenScreen(640,480,32,"Essai") 
InitKeyboard() 
KeyboardMode(#PB_Keyboard_International) 

; Déclaration des positions de départ, chargement du sprite 
X = 320
Y = 240 
;CreateSprite(1,50,50) 

;Mise en place de la boucle 
Repeat 
ExamineKeyboard() 

FlipBuffers() 
ClearScreen(RGB(0,0,0)) 
;DisplaySprite(1,X,Y) 
StartDrawing(ScreenOutput()) 
Circle(x,y,20,RGB(Random(255),Random(255),Random(255))) 
StopDrawing() 

If KeyboardPushed(#PB_Key_Left) 
  x-2 
  ElseIf KeyboardPushed(#PB_Key_Right) 
  x+2 
EndIf 

Until KeyboardPushed(#PB_Key_Escape)

Backup · Message par **Backup** » dim. 23/mai/2010 10:29

................

Robrock55 · Message par **Robrock55** » dim. 23/mai/2010 10:30

Bien, a vrai dire, mon pote et moi on commence depuis peu, donc c'est vrai que c'est pas très bien structuré, voir pas du tout.
Mais en plus, mon pote fait ses codes pas très bien et je dois repasser un minimum dessus

Avant :

Code : Tout sélectionner

;================================================== 
; Essai 2d 
; Let's go ! 
; V0.1 
;================================================== 
;Initialisation de l'espace de travail 
InitSprite()
OpenScreen(640,480,32,"Essai")  
InitKeyboard() 
KeyboardMode(#PB_Keyboard_International) 
ExamineKeyboard() 
 ; Déclaration des positions de départ, chargement du sprite 
X = 580 
Y = 580 
;CreateSprite(1,50,50) 
;Mise en place de la boucle 
Repeat 
FlipBuffers() 
ClearScreen(RGB(0,0,0)) 
;DisplaySprite(1,X,Y) 
StartDrawing(ScreenOutput()) 
Circle(200,200,20,RGB(Random(255),Random(255),Random(255))) 
StopDrawing() 
If KeyboardPushed(#PB_Key_Left) 
Y = Y-2 
ElseIf KeyboardPushed(#PB_Key_Right) 
Y = Y+2 
EndIf 
Until KeyboardPushed(#PB_Key_Escape)

Après :

Code : Tout sélectionner

;================================================== 
; Essai 2d 
; Let's go ! 
; V0.1 
;================================================== 
 
 
;Initialisation de l'espace de travail 
InitSprite()
OpenScreen(640,480,32,"Essai")  
InitKeyboard() 
KeyboardMode(#PB_Keyboard_International) 
ExamineKeyboard() 
 
 
;Déclaration des positions de départ, chargement du sprite 
X = 580 
Y = 580 
;CreateSprite(1,50,50) 
 
 
;Mise en place de la boucle 
Repeat 

FlipBuffers() 
ClearScreen(RGB(0,0,0)) 
;DisplaySprite(1,X,Y) 
StartDrawing(ScreenOutput()) 
Circle(200,200,20,RGB(Random(255),Random(255),Random(255))) 
StopDrawing() 

If KeyboardPushed(#PB_Key_Left) 
  Y = Y-2 
  ElseIf KeyboardPushed(#PB_Key_Right) 
  Y = Y+2 
EndIf 


Until KeyboardPushed(#PB_Key_Escape)

J'ai remis le code plein de bugs, c'était le seul sous la main.

SPH · Message par **SPH** » lun. 24/mai/2010 7:33

OpenScreen(640,480,32,"Essai")
=> Ecran un peu trop petit (prefere un ecran genre 1024/768)

ExamineKeyboard()
=> A mettre apres le REPEAT de ta boucle principale. Si tu n'interroges pas a chaque boucle ton keyboard, comment voudras tu que ton code execute ton "Until KeyboardPushed(#PB_Key_Escape)"

X = 580
Y = 580
=> Tu es sur de vouloir afficher hors ecran (ton ecran 640,480) ??

FlipBuffers()
=> A mettre juste avant de boucler (avant Until KeyboardPushed(#PB_Key_Escape))

Circle(200,200,20,RGB(Random(255),Random(255),Random(255)))
=> A 200,200 ? Tu es sur ? Alors a quoi servent ton X et Y ??

If KeyboardPushed(#PB_Key_Left)
Y = Y-2
ElseIf KeyboardPushed(#PB_Key_Right)
Y = Y+2
EndIf
=> Tu es sur que left et right concernent Y ?? Moi j'aurais dis X

Robrock55 · Message par **Robrock55** » lun. 24/mai/2010 8:17

Tkt tkt, j'ai compris, c'est mon pote qui a merdé, j'lui dirais tout ca

TazNormand · Message par **TazNormand** » mar. 25/mai/2010 9:03

Salut

@ SPH : 1024x768, pourquoi pas, mais je suis plutôt partisan d'un DesktopWidth/DesktopHeight. J'aime utiliser la résolution de l'utilisateur.

Code : Tout sélectionner

;================================================== 
; Essai 2d 
; Let's go ! 
; V0.1 
;================================================== 


;Initialisation de l'espace de travail 
InitSprite()
InitKeyboard() 

ExamineDesktops()
DskW=DesktopWidth(0)
DskH=DesktopHeight(0)
DskD=DesktopDepth(0)

;Déclaration des positions de départ, chargement du sprite 
X = DskW/2 
Y = DskH/2 

; N'éxécuter le code que si l'ouverture d'écran s'est bien faite
If OpenScreen(DskW,DskH,DskD,"Essai")   
  KeyboardMode(#PB_Keyboard_International) 
  ;Mise en place de la boucle 
  Repeat 
    ExamineKeyboard() 
    If KeyboardPushed(#PB_Key_Left) 
	    Y = Y-2 
	  ElseIf KeyboardPushed(#PB_Key_Right) 
	    Y = Y+2 
    EndIf
    
    StartDrawing(ScreenOutput()) 
      Circle(X,Y,20,RGB(Random(255),Random(255),Random(255))) 
    StopDrawing() 
    
    FlipBuffers() 
    ClearScreen(RGB(0,0,0))
  Until KeyboardPushed(#PB_Key_Escape)
EndIf
End

Variante mais qui serait beaucoup mieux avec un sprite :

Code : Tout sélectionner

;================================================== 
; Essai 2d 
; Let's go ! 
; V0.1 
;================================================== 


;Initialisation de l'espace de travail 
InitSprite()
InitKeyboard() 

ExamineDesktops()
DskW=DesktopWidth(0)
DskH=DesktopHeight(0)
DskD=DesktopDepth(0)

;Déclaration des positions de départ, chargement du sprite 
X = DskW/2 
Y = DskH/2 
SensX=5
SensY=5

; N'éxécuter le code que si l'ouverture d'écran s'est bien faite
If OpenScreen(DskW,DskH,DskD,"Essai")   
  KeyboardMode(#PB_Keyboard_International) 
  ;Mise en place de la boucle 
  Repeat 
    ExamineKeyboard() 
    X=X+SensX
    If X<20 Or X>DskW-20
      sensX=SensX * -1
    EndIf
    Y=Y+SensY
    If Y<20 Or Y>DskH-20
      sensY=SensY * -1
    EndIf
    
    StartDrawing(ScreenOutput()) 
      Circle(X,Y,20,RGB(Random(255),Random(255),Random(255))) 
    StopDrawing() 
    
    FlipBuffers() 
    ClearScreen(RGB(0,0,0))
  Until KeyboardPushed(#PB_Key_Escape)
EndIf
End

Backup · Message par **Backup** » mar. 25/mai/2010 14:15

@TazNormand :
voila des codes avec une belle architecture

Robrock55 · Message par **Robrock55** » mar. 25/mai/2010 15:24

Merci beaucoup pour tous ces conseils les gars, en tout cas, une efficacité et une rapidité hors du commun

PureBasic

Aide pour sprite 2D

Aide pour sprite 2D

Re: Aide pour sprite 2D

Re: Aide pour sprite 2D

Re: Aide pour sprite 2D

Re: Aide pour sprite 2D

Re: Aide pour sprite 2D

Re: Aide pour sprite 2D

Re: Aide pour sprite 2D

Re: Aide pour sprite 2D

Re: Aide pour sprite 2D

Re: Aide pour sprite 2D