JE CLIQUE ,TU CLIQUES ON CLIQUE

' je clique

 dim x,y ,xa,ya

  xa=40
  ya=40

  label colore
  picture  10
    width 0 ,1400
    height 0,800
    width 10 ,2000
    height 10,1000



2d_target_is 10
    2d_fill_color 255,0,0
    2d_pen_color  0,0,255
    2d_pen_width   2
 on_click 10,colore
     xa= mouse_x_position(10)
   ya= mouse_y_position(10)
 end
 

colore:
     print_locate 10,10
         xa= mouse_x_position(10)
         ya= mouse_y_position(10)
        for x= xa+10 to xa+75 step 14
         for y= ya+10 to ya+75 step 14

            2d_circle x,y ,5
         next y
         print y
        next x

rem  création d'un FORM contenant scroll_bar
 dim a
rem créer un FORM
 width 0,0
' hide  0

  form 1
  form 10
 2d_target_is 10
 2d_circle 30+a,100,25
  left 10,350
   scroll_bar 2
     min 2,0
     max 2,1000
rem scroll_bar 2 appartient à FORM 1

 parent 2,1

rem déclarer un label

label changed


rem chaque fois que le scroll_bar change, exécuter à partir du label "changed"

on_change 2,changed
 2d_circle 30+a,100,25
end : rem le programme principal est fini

changed:
   a=position(2)
top 10,(10+ a)
 width 10, (1+a)
  left 10, 350+a/2
  2d_circle a-a/2,100,25
 wait 200:cls
return

rem  création d'un FORM contenant scroll_bar

label changed : ' Label pour gérer l'événement détecté quand on manipule la scroll bar

dim a : ' Valeur de la scroll bar
dim largeur_10%,gauche_10%, hauteur_10% : ' Variable qui géreront les dimensions de la fenêtre 10

' On n'utilise pas la fenêtre principale (0)
hide  0

' Création de la fenêtre contenant le motif à déplacer
largeur_10% = 100 : gauche_10%=350 : hauteur_10% = 150
form 10
left 10,gauche_10% : ' La position initiale de la fenêtre est 350 à gauche
width 10, largeur_10% : ' On initialise la largeur de la fenêtre
height 10, hauteur_10%: ' On initialise la hauteur de la fenêtre
2d_target_is 10

' Création du motif (ici un cercle)
2d_circle 30,100,25

' Création de la fenêtre qui contiendra la scroll bar
form 1

' Création de la scroll bar
scroll_bar 2 : min 2,0 : max 2,1000
parent 2,1 : ' scroll_bar 2 appartient à FORM 1

' Chaque fois que le scroll_bar change, exécuter à partir du label "changed"
on_change 2,changed

' Le programme principal est fini
end


' Procédure de gestion de l'événement "changement sur la scoll bar"
changed:
  2d_target_is 10 : cls : ' On efface la fenêtre
  a=position(2)
  top 10,10+a : left 10, gauche_10%+a : width 10, largeur_10%+a  : height 10, hauteur_10%+ a
'  2d_circle 30,100,25 : ' On redessine le circle pour s'il est effacé par quelque chose (comme la sortie de l'écran)
  2d_circle 30 + a/2,100 + a/2,25+a/2

return