Pb avec JUST BASIC
choco
-
angel77 -
angel77 -
bonjour
j ai un problème avec just basic
voici ma programmation
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'EXPLOSER.BAS
'Ecrit par Mathieu Perochon Le 25/05/07
'
'afficher une explosion sur fond spatial avec effet sonore
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
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'ecran
UpperLeftX=Int((DisplayWidth-WindowWidth)/2)
UpperLeftY=Int((DisplayHeight-WindowHeight)/2)
'Ouvrir la fenêtre et attendre
open "Space War I" for graphics_nsb as #game
#game, "trapclose [quit]"
'ETAPE 2 : afficher l'arrière plan et les sprites dans la fenêtre
'
'charger tous les bitmaps en mémoire
loadbmp "bg", "space.bmp"
loadbmp "explo1", "explo1.bmp"
loadbmp "explo2", "explo2.bmp"
loadbmp "explo3", "explo3.bmp"
loadbmp "explo4", "explo4.bmp"
loadbmp "explo5", "explo5.bmp"
'Ajouter le background et les sprite à la fenêtre #game
#game, "background bg"
#game, "addsprite explo1 explo2 explo3 explo4 explo5"
'Afficher l'explosion à peu près au centre de la fenêtre
#game, "spritexy explo 180 190"
'Afficher le tout dans la fenêtre
#game, "drawsprites"
wait
[quit]
end
quand je fait un run il me dit
#game
these handles closed by just BASIC
please add appropriate close commands
j ai un problème avec just basic
voici ma programmation
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'EXPLOSER.BAS
'Ecrit par Mathieu Perochon Le 25/05/07
'
'afficher une explosion sur fond spatial avec effet sonore
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
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'ecran
UpperLeftX=Int((DisplayWidth-WindowWidth)/2)
UpperLeftY=Int((DisplayHeight-WindowHeight)/2)
'Ouvrir la fenêtre et attendre
open "Space War I" for graphics_nsb as #game
#game, "trapclose [quit]"
'ETAPE 2 : afficher l'arrière plan et les sprites dans la fenêtre
'
'charger tous les bitmaps en mémoire
loadbmp "bg", "space.bmp"
loadbmp "explo1", "explo1.bmp"
loadbmp "explo2", "explo2.bmp"
loadbmp "explo3", "explo3.bmp"
loadbmp "explo4", "explo4.bmp"
loadbmp "explo5", "explo5.bmp"
'Ajouter le background et les sprite à la fenêtre #game
#game, "background bg"
#game, "addsprite explo1 explo2 explo3 explo4 explo5"
'Afficher l'explosion à peu près au centre de la fenêtre
#game, "spritexy explo 180 190"
'Afficher le tout dans la fenêtre
#game, "drawsprites"
wait
[quit]
end
quand je fait un run il me dit
#game
these handles closed by just BASIC
please add appropriate close commands
A voir également:
- Pb avec JUST BASIC
- Just livebox - Accueil - Box & Connexion Internet
- Just delete me - Guide
- Microsoft 365 basic - Accueil - Microsoft Office
- Visual basic - Télécharger - Langages
- File renamer basic - Télécharger - Gestion de fichiers
3 réponses
tu apprends sur coolprog non? C'est là que j'ai appris aussi.
Bon passons a ton problème. A mon avis, tu devrais mettre l'instruction
si tu demande de quitter sans arretter tout ce que tu a ouvert avant, sa ne marche pas.
voilà,
j'èspere t'avoir aidé.
cordialement,
Globox
Bon passons a ton problème. A mon avis, tu devrais mettre l'instruction
close #gamequi permet de fermer ta fenetre proprement.
si tu demande de quitter sans arretter tout ce que tu a ouvert avant, sa ne marche pas.
voilà,
j'èspere t'avoir aidé.
cordialement,
Globox
Bonjour,
j ai aussi le méme problem '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'EXPLOSER.BAS
'Ecrit par STAKANOV le 2 Novembre 2007
'
'afficher une explosion sur fond spatial avec effet sonore
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
nomainwin
'
'ETAPE 1: mettre en place la fenétre graphique
'
open "Contamination" for graphics_nsb as #game
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'exploser.bas
'Ecrit par STAKANOV, le 2 Novembre 2007
'
'afficher une explosion sur fond spatial avec effet sonore
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
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 apparaitre au milieu de l'écran
UpperLeftX=Int((DisplayWidth-WindowWidth)/2)
UpperLeftY=Int((DisplayHeight-WindowHeight)/2)
'ouvrir la fenétre et attendre
open "Contamination"for graphics_nsb as #game
#game,"trapclose [quit]"
wait
[quit]
confirm "es-tu bien sur de vouloir quitter ce jeu ?";reponse$
if reponse$ = "no" then wait
close #game
end
#game, "trapclose [quit]"
'
'ETAPE 2 : afficher l'arriére plan et les sprites dans la fenétre
'
'charger tous les bitmaps en mémoire
loadbmp "bg", "space.bmp"
loadbmp "explo1", "explo1.bmp"
loadbmp "explo2", "explo2.bmp"
loadbmp "explo3", "explo3.bmp"
loadbmp "explo4", "explo4.bmp"
loadbmp "explo5", "explo5.bmp"
'Ajouter le background et les sprites a la fenétre #game
#game, "background bg"
#game, "addsprite explo explo1 explo2 explo3 explo4 explo5"
'Cycler la liste d'explosions
#game, "cyclesprite explo1"
'Afficher le tout dans la fenétre
#game, "drawsprites"
wait
[quit]
close #game
end
mais sa marche pas ya tout le tanp écrit kan je met RUN
Runtime Error:[quit]-label has multiple definitions
(see error.log for more information)
j ai aussi le méme problem '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'EXPLOSER.BAS
'Ecrit par STAKANOV le 2 Novembre 2007
'
'afficher une explosion sur fond spatial avec effet sonore
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
nomainwin
'
'ETAPE 1: mettre en place la fenétre graphique
'
open "Contamination" for graphics_nsb as #game
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'exploser.bas
'Ecrit par STAKANOV, le 2 Novembre 2007
'
'afficher une explosion sur fond spatial avec effet sonore
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
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 apparaitre au milieu de l'écran
UpperLeftX=Int((DisplayWidth-WindowWidth)/2)
UpperLeftY=Int((DisplayHeight-WindowHeight)/2)
'ouvrir la fenétre et attendre
open "Contamination"for graphics_nsb as #game
#game,"trapclose [quit]"
wait
[quit]
confirm "es-tu bien sur de vouloir quitter ce jeu ?";reponse$
if reponse$ = "no" then wait
close #game
end
#game, "trapclose [quit]"
'
'ETAPE 2 : afficher l'arriére plan et les sprites dans la fenétre
'
'charger tous les bitmaps en mémoire
loadbmp "bg", "space.bmp"
loadbmp "explo1", "explo1.bmp"
loadbmp "explo2", "explo2.bmp"
loadbmp "explo3", "explo3.bmp"
loadbmp "explo4", "explo4.bmp"
loadbmp "explo5", "explo5.bmp"
'Ajouter le background et les sprites a la fenétre #game
#game, "background bg"
#game, "addsprite explo explo1 explo2 explo3 explo4 explo5"
'Cycler la liste d'explosions
#game, "cyclesprite explo1"
'Afficher le tout dans la fenétre
#game, "drawsprites"
wait
[quit]
close #game
end
mais sa marche pas ya tout le tanp écrit kan je met RUN
Runtime Error:[quit]-label has multiple definitions
(see error.log for more information)
c'est parce que tu a deux definition de [quit]
[quit]
confirm "es-tu bien sur de vouloir quitter ce jeu ?";reponse$
if reponse$ = "no" then wait
close #game
end
et aussi
[quit]
close #game
end
il faut que tu suprime le deuxieme
PS: c'est grace a coolprog que jai debuter dans la programation et maintenan je commence a fair de bon truc mais Just Basic n'est pas tres connu c'est un peu genan sur les forum .
bye
[quit]
confirm "es-tu bien sur de vouloir quitter ce jeu ?";reponse$
if reponse$ = "no" then wait
close #game
end
et aussi
[quit]
close #game
end
il faut que tu suprime le deuxieme
PS: c'est grace a coolprog que jai debuter dans la programation et maintenan je commence a fair de bon truc mais Just Basic n'est pas tres connu c'est un peu genan sur les forum .
bye
