Un bouton qui bouge

label clic11, tim, clic10

dim XP_marge_x% : XP_marge_x% = 8
dim XP_marge_y% : XP_marge_y% = 35
dim x%, y%, x1%, y1%, x2%, y2%, s$, crlf$, flag%

crlf$ = chr$(13)+chr$(10)
alpha 1 : top 1,100 : left 1,10
s$ = "Cliquer sur déplacer X ,"+crlf$
s$ = s$ + "puis guider le bouton X par la souris."+crlf$
s$ = s$ + "sortir de ce mode par Echap"+crlf$
s$ = s$ + "ou en cliquant sur le bouton X"+crlf$+crlf$
s$ = s$ + "si le bouton s'échappe, le rattraper par la souris !"
caption 1,s$

button 10 : top 10,10 : left 10,10 : caption 10,"X"
width 10,120 : on_click 10,clic10
button 11 : top 11,40 : left 11,10 : caption 11,"déplacer X"
width 11,120 : on_click 11,clic11

' timer pour déplacements
timer 20 : timer_off 20 : timer_interval 20,30
on_timer 20,tim

end

clic10:
if flag%=1
  timer_off 20
  flag% = 10
else
  message "traitement normal du bouton X"
end_if
return

clic11:
x% = int(width(10)/2)
y% = int(height(10)/2)
flag% = 1
timer_on 20
return

tim:
timer_off 20
if scancode=27 then return
' if mouse_left_up(10)=1
  x1% = mouse_x_position(10)
  y1% = mouse_y_position(10)
  x2% = left(10) + x1%-x%
  y2% = top(10)  + y1%-y%
  if x2%<0 then x2% = 0
  if y2%<0 then y2%=0
  if x2%>width(0)-width(10)-XP_marge_x% then x2% = width(0)-width(10)-XP_marge_x%
  if y2%>height(0)-height(10)-XP_marge_y% then y2% = height(0)-height(10)-XP_marge_y%
  left 10,x2%
  top  10,y2%
' end_if
timer_on 20
return

dim x, y, a$, item
label mv,clc
data "+", "-", "x", "/", "^", "V¯"
edit 1:left 1,10:top 1,10:width 1,70: height 1,25: text 1,"0"
alpha 2: left 2,10:top 2,35:width 2, 70:height 2,10:caption 2, "nombre 1":color 2, 255,255,255:on_click 2,mv
edit 3:left 3,150:top 3,10:width 3,70: height 3,25: text 3,"0"
alpha 4: left 4,150:top 4,35:width 4, 70:height 4,10:caption 4, "nombre 2:":color 4, 255,255,255: on_click 4,mv
edit 5:left 5,290:top 5,10:width 5,70: height 5,25: text 5,"0"
alpha 6: left 6,290:top 6,35:width 6, 70:height 6,10:caption 6, "résultat":color 6, 255,255,255: on_click 6,mv
for x=1 to 12 step 2
read a$
button 6+x:left 6+x, 30*x:top 6+x, 50: height 6+x,25:width 6+x, 25:caption 6+x, a$:on_click 6+x,clc
alpha 7+x: left 7+x,30*x:top 7+x,75:height 7+x,10:width 7+x, 25:color 7+x, 255,255,255: on_click 7+x,mv
next x
end
mv:
 set_focus 0
 item = number_click
 if number_change > 0 then item=number_change
 if item>0
 repeat
  caption 0, item
  left item,mouse_x_position (0)
  top item,mouse_y_position (0)
  left item-1,mouse_x_position (0)
  top item-1,mouse_y_position (0)-25
 until inkey$<>""
 end_if
return
clc:
 set_focus 0
 select number_click
 case 7
  text 5, str$(val(text$(1))+val(text$(3)))
 case 9
  text 5, str$(val(text$(1))-val(text$(3)))
 case 11
  text 5, str$(val(text$(1))*val(text$(3)))
 case 13
  if val(text$(3))<>0 then text 5, str$(val(text$(1))/val(text$(3)))
 case 15
  text 5, str$(power(val(text$(1)),val(text$(3))))
 case 17
  if val(text$(3))<>0 then text 5, str$(power(val(text$(1)),1/val(text$(3))))
 end_select
return