Forum Liberty Basic France

Général » Line-art Réglable of course
Le 11/09/2017 à 17h01

Administrateur

Groupe: Administrateur

Inscrit le: 04/03/2012
Messages: 2083
Quand on ne sait pas quoi faire
On fait n'importe quoi
Code VB :
 
 
     NOMAINWIN
    WindowWidth = 600
    WindowHeight = 400
    UpperLeftX = (DisplayWidth-WindowWidth)-200
    UpperLeftY = 20 ' (DisplayHeight-WindowHeight)
    TEXTBOX #w.cyc, 20 , 20, 40, 25
    BUTTON #w.go, "Go !", [go], UL, 70, 20, 40, 20
    GRAPHICBOX #w.m 5, 5, 585, 360
    OPEN "Gloups!" FOR window_nf AS #w
    #w, "TRAPCLOSE [closeHelp]"
    #w.m , "down"
    #w.m, "fill lightgray"
    #w.cyc, "2500"
    '----------------------
    wait
    [go]
    #w.m, "fill lightgray"
    #w.cyc, "!contents? cyc$":cyc=val(cyc$)
b=cyc
   for a=1 to cyc
     #w.m, "up"
     x=int(rnd(1)*580) + 1: y=int(rnd(1)*360) + 1
     #w.m, "place ";x;" ";y
     x=int(rnd(1)*580) + 1: y=int(rnd(1)*360) + 1
     r=int(rnd(1)*255)+1: g=int(rnd(1)*255)+1: b=int(rnd(1)*255)+1
     r$=str$(r): g$=str$(g): b$=str$(b)
     col$=r$+" "+g$+" "+b$: #w.m, "color ";col$
     siz=int(rnd(1)*2)+1
     #w.m, "size ";siz
     #w.m, "down"
     #w.m, "goto ";x;" ";y
b=b-1: #w.cyc, str$(b)
   next a
  wait
  [closeHelp]
    CLOSE  #w
    END
 

Gloups !? le décompte ne tourne pas en même temps que la boucle !?
____________________
Roro

   
Le 12/09/2017 à 14h34

Modérateur

Groupe: Modérateur

Inscrit le: 09/02/2015
Messages: 516
'pas grave, c'est joli quand même ^^
____________________
Just BASIC v2.0 :
  • utilisation courante avec GNU/Linux Mageia6 + Wine (Pas trouvé d'incohérences ou de bug de compilation à ce jour)
  • utilisation occasionnelle ou vérification/débugage difficile avec Windows XP sur un petit eeepc

   
Le 12/09/2017 à 18h37

Administrateur

Groupe: Administrateur

Inscrit le: 04/03/2012
Messages: 2083
Citation:
pas grave, c'est joli quand même ^^

Et c'est réglable !
____________________
Roro

   
Général » Line-art Réglable of course  

 |  |

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