Forum Liberty Basic France
• Index
Quand on ne sait pas quoi faire
On fait n'importe quoi
Code VB :
Gloups !? le décompte ne tourne pas en même temps que la boucle !?
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
Roro
'pas grave, c'est joli quand même

____________________
Just BASIC v2.0 :
utilisation occasionnelle ou vérification/débugage difficile avec Windows XP sur un petit eeepc
Just BASIC v2.0 :
Citation:
Et c'est réglable !
pas grave, c'est joli quand même 

Et c'est réglable !
____________________
Roro
Roro
• Index
1 Utilisateur en ligne : 0 Administrateur, 0 Modérateur, 0 Membre et 1 Visiteur
Utilisateur en ligne : Aucun membre connecté
Utilisateur en ligne : Aucun membre connecté
Répondre
Vous n'êtes pas autorisé à écrire dans cette catégorie