Pb avec JUST BASIC

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
Configuration: Windows XP
Internet Explorer 7.0

3 réponses

  1. 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
    close #game 
    qui 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
    0
    1. 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)
      0
      1. 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
        0