Forum Liberty Basic France

Débutant » #hand$+str$(x),"down" JB capricieux
Le 16/10/2012 à 08h21

Administrateur

Groupe: Administrateur

Inscrit le: 04/03/2012
Messages: 2083
Si je mets:
#hand$+str$(x),"down" ou: # hand$+str$(x),"down"
ou:
print #hand$+str$(x),"down"
ça dit: "syntax error"
avec print: pas d'error, mais pas d'effet....Mais où est donc l'erreur ?

Code JB :
 
 
    NOMAINWIN
    WindowWidth=950
    WindowHeight=750
    UpperLeftX=INT((DisplayWidth-WindowWidth)/2)'2
    UpperLeftY=10 'INT((DisplayHeight-WindowHeight)/100)'2
 
    'STATICTEXT #w, "", 385, 30, 65, 20
   ' BUTTON #w.end, "END", [quit], UL, 870, 10, 30, 20
   ' BUTTON #w.ferm, "clic", [ferm], UL, 870, 40, 30, 20
   ' BUTTON #w.ouv, "clac", [ouv], UL, 870, 70, 30, 20
    'BUTTON #w.t1, "temps 1", [t1], UL, 30, 220, 50, 20
   ' BUTTON #w.t2, "temps 2", [t2], UL, 190, 220, 50, 20
   ' BUTTON #w.t3, "temps 3", [t3], UL, 350, 220, 50, 20
    'BUTTON #w.t4, "temps 4", [t4], UL, 510, 220, 50, 20
    GRAPHICBOX #w.g1, 0, 10, 850, 160
    GRAPHICBOX #w.g2, 0, 175, 850, 160'340
    GRAPHICBOX #w.g3, 0, 340, 850, 160'510
    GRAPHICBOX #w.g4, 0, 505, 850, 160'680
 
    open "Beat Box" FOR WINDOW AS #w
    #w, "trapclose [quit]"
 
      hand$="#w.g"  ' J'AI TENTE CELUI-CI
      for x=1 to 4
        hand$="#w.g"  ' ET CELUi-LA
        print #hand$+str$(x),"down"
        print hand$+str$(x), "fill black"
        for xx=20 to 820 step 200
             print hand$+str$(x), "color cyan"
        next xx
        print hand$+str$(x), "line ";x;" ";"75";" ";x;" ";"85"
        print hand$+str$(x), "color yellow"
        print hand$+str$(x), "line 1 80 849 80"
        print hand$+str$(x), "flush"
      next x
  wait
 
  [quit]
    CLOSE #w
    END
 
 




Edité par Roland Le 16/10/2012 à 17h17
____________________
Roro

   
Le 19/10/2012 à 18h06

Libertynaute Expert

Groupe: Membre

Inscrit le: 19/02/2011
Messages: 767
Comme je te l'ai expliqué dans l'autre post :

Code VB :
NOMAINWIN
    WindowWidth=950
    WindowHeight=750
    UpperLeftX=INT((DisplayWidth-WindowWidth)/2)'2
    UpperLeftY=10 'INT((DisplayHeight-WindowHeight)/100)'2

    'STATICTEXT #w, "", 385, 30, 65, 20
   ' BUTTON #w.end, "END", [quit], UL, 870, 10, 30, 20
   ' BUTTON #w.ferm, "clic", [ferm], UL, 870, 40, 30, 20
   ' BUTTON #w.ouv, "clac", [ouv], UL, 870, 70, 30, 20
    'BUTTON #w.t1, "temps 1", [t1], UL, 30, 220, 50, 20
   ' BUTTON #w.t2, "temps 2", [t2], UL, 190, 220, 50, 20
   ' BUTTON #w.t3, "temps 3", [t3], UL, 350, 220, 50, 20
    'BUTTON #w.t4, "temps 4", [t4], UL, 510, 220, 50, 20
    GRAPHICBOX #w.g1, 0, 10, 850, 160
    GRAPHICBOX #w.g2, 0, 175, 850, 160'340
    GRAPHICBOX #w.g3, 0, 340, 850, 160'510
    GRAPHICBOX #w.g4, 0, 505, 850, 160'680

    open "Beat Box" FOR WINDOW AS #w
    #w, "trapclose [quit]"
 
      hand$="#w.g"  ' J'AI TENTE CELUI-CI
      for x=1 to 4
        hand$ = "#w.g"+str$(x)  ' ET CELUi-LA
        #hand$, "down"
        #hand$, "fill black"
        for xx=20 to 820 step 200     ' ???????
             #hand$, "color cyan"
        next xx
        #hand$, "line ";x;" ";"75";" ";x;" ";"85"
        #hand$, "color yellow"
        #hand$, "line 1 80 849 80"
        #hand$, "flush"
      next x
  wait
 
  [quit]
    CLOSE #w
    END




Edité par cassiope01 Le 19/10/2012 à 18h08
____________________
Devise Shadocks : "Mieux vaut mobiliser son intelligence pour des conneries, que mobiliser sa connerie pour des choses intelligentes"
Coluche disait : "C'est parce que la vitesse de la lumière est plus rapide que celle du son que certains peuvent paraîtrent brillants jusqu'à ce qu'ils ouvrent la bouche."

Web    
Le 19/10/2012 à 19h54

Administrateur

Groupe: Administrateur

Inscrit le: 04/03/2012
Messages: 2083
Merveilleux ! :clap et grand MERCI.
La différence est subtile. Je vais mettre ça dans l'aide.
L'affaire en cours est trop engagée pour que j'y intègre la merveille, mais elle va servir, c'est sur....à+.
____________________
Roro

   
Débutant » #hand$+str$(x),"down" JB capricieux  

 |  |

1 Utilisateur en ligne : 0 Administrateur, 0 Modérateur, 0 Membre et 1 Visiteur
Utilisateur en ligne : Aucun membre connecté
Répondre
Vous n'êtes pas autorisé à écrire dans cette catégorie