Sujet Précédent Sujet Suivant

Probleme avec Just BASIC.

phenix -  
 vegeta -
j'utilise Just BASIC et je prend les cour sur http://www.coolprog.com/ je suis a la leçon 6 et sa marche pas voila le code:

code:

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'EXPLOSER.BAS
'Ecrit par Valérian Duquoc, le 18\07\07
'
'afficher une explosion sur fond spatial
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
nomainwin

'
'ETAPE 1 : mettre en place la fenêtre graphique
'
'Donner les dimensions de la fenêtre
WindowWidth=400
WindowHeight=430
'La fenêtre doit apparaître au milieu de l'écran
UpperLeftX=Int((DisplayWidth-WindowWidth)/2)
UpperLeftY=int((Displayheight-WindowHeight)/2)
'ouvrir la fenêtre et attendre
'ETAPE 2
loadbmp"bg", "space.bmp"
loadbmp"explo1", "explo.bmp"
loadbmp"explo2", "explo2.bmp"
loadbmp"explo3", "explo3.bmp"
loadbmp"explo4", "explo4.bmp"
loadbmp"explo5", "explo5.bmp"
#game, "background bg"
#game, "addsprite explo explo explo2 explo3 explo4 explo5"
#game, "cyclesprite explo 1"
#game, "drawsprites"
open "space war I" for graphics_nsb as #game
#game, "trapclose [quit]"
wait
[quit]
confirm "es-tu bien sûr de vouloir quiter ce jeu ?";reponce$
if reponce$ = "no" then wait
close #game
end

quelqu'un peu il trouver se qui va pas merci
A voir également:

3 réponses

Réponse 1 / 3
alix
 
Salut phenix,

Pour tout ce qui concerne la programmation en Just Basic et en Liberty Basic, il faut se rendre sur le forum de Liberty France : http://lbasic.fr/forum/
Tu y trouveras toute l'aide dont tu as besoin.

@+

alix
Auteur de Coolprog (http://www.coolprog.com) : un tutoriel pour apprendre à programmer ses propres jeux
0
Réponse 2 / 3
vegeta
 
OUI, j'ai looker ton code et j'ai trouvé les erreurs, je me demande comment tu en es arrivé a te tromper en faisant pratiquement du copy to paste sur le site de coolprog mais bon... il faut que tu saches que si tu ne c pas ou tu dois mettre les codes, il y a le code source entié qui se trouve sur le site, et puis tu devrais chercher un peu toi meme pour t améliorer ;-) je sais ce que je dis, parce que je susi aussi débutant.

voila les erreurs:
il faut que tu demandes a just basic d afficher ta fenettre bien plus tot!! avant de telecharger les images:

'ETAPE 1 : mettre en place la fenêtre graphique
'
'Donner les dimensions de la fenêtre
WindowWidth=400
WindowHeight=430
'La fenêtre doit apparaître au milieu de l'écran
UpperLeftX=Int((DisplayWidth-WindowWidth)/2)
UpperLeftY=int((Displayheight-WindowHeight)/2)
'ouvrir la fenêtre et attendre
open "GAME DRIVER v0.1" for graphics_nsb as #game
#game, "trapclose [quit]"

tu vois??? c'est logique, --> çà dois aller apres les dimentions!

Les autres erreurs sont que tu charges explo.bmp au lieu de explo1.bmp (le nom du fichier que tu as telechargé du site) et c'est pareil pour le addsprite :-)

Voila donc le code corrigé:

'EXPLOSER.BAS
'Ecrit par Valérian Duquoc, le 18\07\07 et corrigé par justin nanni le 27/04/08
'
'afficher une explosion sur fond spatial
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
nomainwin

'
'ETAPE 1 : mettre en place la fenêtre graphique
'
'Donner les dimensions de la fenêtre
WindowWidth=400
WindowHeight=430
'La fenêtre doit apparaître au milieu de l'écran
UpperLeftX=Int((DisplayWidth-WindowWidth)/2)
UpperLeftY=int((Displayheight-WindowHeight)/2)
'ouvrir la fenêtre et attendre
open "GAME DRIVER v0.1" for graphics_nsb as #game
#game, "trapclose [quit]"
'ETAPE 2
loadbmp"bg", "space.bmp"
loadbmp"explo1", "explo1.bmp"
loadbmp"explo2", "explo2.bmp"
loadbmp"explo3", "explo3.bmp"
loadbmp"explo4", "explo4.bmp"
loadbmp"explo5", "explo5.bmp"
#game, "background bg"
#game, "addsprite explo explo1 explo2 explo3 explo4 explo5"
#game, "cyclesprite explo 1"
#game, "drawsprites"
wait
[quit]
confirm "es-tu bien sûr de vouloir quiter ce jeu ?";reponce$
if reponce$ = "no" then wait
close #game
end

Fait attention que avec ce code, tu affiches aussi l explosion. Et n oublie pas de mettre un timer pour le mouvement!
si quelqu un as besoin d autre conseil, envoyer moi un mail a vegeta1other@hotmail.com
0
Réponse 3 / 3
vegeta
 
Pour ceux qui aimerai voir comment on met l explosion en mouvement à un endoit souhaité, voici le code:
'EXPLOSER.BAS
'Ecrit par Valérian Duquoc, le 18\07\07 et transformé par justin nanni
'
'afficher une explosion sur fond spatial et une explosion en mouvement!
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
nomainwin

'
'ETAPE 1 : mettre en place la fenêtre graphique
'
'Donner les dimensions de la fenêtre
WindowWidth=400
WindowHeight=430
'La fenêtre doit apparaître au milieu de l'écran
UpperLeftX=Int((DisplayWidth-WindowWidth)/2)
UpperLeftY=int((Displayheight-WindowHeight)/2)
open "space war I" for graphics_nsb as #game
#game, "trapclose [quit]"
'ouvrir la fenêtre et attendre
'ETAPE 2
loadbmp"bg", "space.bmp"
loadbmp"explo1", "explo1.bmp"
loadbmp"explo2", "explo2.bmp"
loadbmp"explo3", "explo3.bmp"
loadbmp"explo4", "explo4.bmp"
loadbmp"explo5", "explo5.bmp"
#game, "background bg"
#game, "addsprite explo explo1 explo2 explo3 explo4 explo5"
exploX=1000:exploY=1000
#game, "spritexy explo ";exploX;" ";exploY
#game, "cyclesprite explo 1"
playmidi "beat6.mid", longueur
timer 100, [timer_routine]

[timer_routine]
gosub [control_explo]
gosub [draw]
gosub [exploser]
wait

'ROUTINE
[exploser]
if exploactive=0 then
#game, "spritexy explo 135 135"
exploactive=1
playwave "explosion.wav", async
end if
return
[control_explo]
if exploactive=1 then explocount=explocount+1
if explocount > 20 then
exploactive=0
explocount=0
#game, "spritexy explo 5000 500"
end if
return
[draw]
#game, "drawsprites";
return

[quit]
confirm "es-tu bien sûr de vouloir quiter ce jeu ?";reponce$
if reponce$ = "no" then wait
close #game
end

Je vous rappel que vous pouvez toujours me faire signe à vegeta1other@hotmail.com!!
bye
0

Discussions similaires

Problème d'écouteur xiaomi
Darvack -
bazfile -

1 réponse