mise a jour calculatrice

dim a$,aa$,i,j,a,b,c,b$,d,d$,u,n,h,hh,v,v$,m,k,w,e,w$,x,r,z,p,q,co,x1,y1,cc,im,i$
dim bb(60,4),xy(60,4),l(250),f$(60),s(150),xpad,ypad,xxpad,yypad,tx1$,tx2$,tx3$

label data$,fin,affiche,dupliquer,affim,effacer,change,taille
label supprimer,choix,affiche1,coordonnee,Figure,lire,save

rem -------------------------data-----------------------------------------------
Left 0,screen_x-1200:top 0,18:width 0,800:height 0,640:caption 0,"creation de data"
form 3:Left 3,screen_x-390:top 3,18:width 3,335:height 3,640:caption 3,"outil"
form 4:Left 4,screen_x-1200:top 4,650:width 4,800:height 4,175:caption 4,"data"
save_dialog 10:open_dialog 12

command_target_is 4
memo 5:clipboard_copy 5
left 5,1:top 5,1:width 5,1000:height 5,600:font_size 5,12:color 5,255,255,255
rem ----------------------------------------------------------------------------
command_target_is 3
track_bar 200:left 200,72:top 200,175:width 200,150:height 200,20:min 200,1:max 200,20
track_bar 201:left 201,17:top 201,317:width 201,060:height 201,20:min 201,8:max 201,12
rem ----------------------------------------------------------------------------
data 169,370, 169,400, 169,430, 169,460, 119,506, 050,506, 002,350, 002,022, 102,022
data 202,022, 102,071, 102,103, 102,135, 002,425, 181,509, 102,245, 002,387
data 002,460, 027,098, 227,095, 227,245, 027,245, 127,282, 127,208, 223,418
rem ----------------------------------------------------------------------------
  for i=130 to 135:edit i:read a:left i,a:read a:top i,a:next i
  for i=099 to 117:button i:read a:left i,a:read a:top i,a:next i
rem -------------------------------------------edite--grand bouton--petit bouton
  for i=130 to 135:width i,050:height i,28:font_size i,12:next i
  for i=099 to 110:width i,100:height i,28:next i
  for i=111 to 117:width i,050:height i,28:next i
rem ----------------------------------------------------- alpha$ ---------------
  for i=150 to 152:alpha i:width i,80:height i,33:caption i,string$(13," "):font_size i,16:next i
rem ----------------------------------------------------------------------------
data 147,375,"X", 147,405,"Y", 147,435,"L", 147,465,"H"
  for i=140 to 143:alpha i:read a:left i,a:read b:top i,b:read a$:width i,010:height i,28:caption i,a$:next i
rem ----------------------------------------------------------------------------
data "numero","  cercle  ","rectangle ","  bouton  "," Largeur "," Hauteur "
data "Diametre","supprimer"," Figure  ","objet","dupliquer","Tout effacer"
data "+","-",chr$(62),chr$(60),chr$(118),chr$(94),"ok"
  for i=099 to 110:read a$:font_size i,11:caption i,a$:next i
  for i=111 to 117:read a$:font_size i,14:caption i,a$:next i
data 100,1,101,1,102,1,103,2,104,2,105,2,111,3,112,3,113,4,114,4,115,4,116,4,099,5,108,6
for i= 1 to 14:read a:on_click a,choix:read l(a):next i
rem ----------------------------------------------------------------------------
on_click 106,supprimer:on_click 107,Figure:on_click 109,dupliquer
on_click 110,effacer:on_click 117,coordonnee:on_change 201,taille
rem >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
command_target_is 0
picture 1:left 1,1:top 1,1:width 1,780:height 1,566:color 1,240,240,240
data "Quitte      ","    data  ","sauve figure  ","lire figure"," affiche image"
data "cache image","  échanger deux numeros "
main_menu 20
  for i=400 to 406:sub_menu i:read a$:caption i,a$:parent i,20:next i
on_click 400,fin:on_click 401,data$:on_click 402,save:on_click 403,lire
on_click 404,affim:on_click 405,affim:on_click 406,change
rem ----------------------------------------------------------------------------
s(111)=1:s(112)=-1:to_foreground 0:on_click 1,affiche:gosub effacer:edite()
end
rem oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo
affiche:
r=0:souris():w=c:z=abs(color_pixel_blue(0,xpad,ypad)-166):test():edite()
if e>0 then gosub Figure:xxpad=xpad:yypad=ypad:return
affiche1:
aa$=inkey$
  if r=0 then gosub Figure:xxpad=xpad:yypad=ypad
  if mouse_left_down(1)=1 then r=r+1
  if r=1 then souris():xy2():xy3():goto affiche1
return
rem oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo
choix:
xxpad=xpad:yypad=ypad:if q=0 then v=number_click:q=l(v)
  select q
    case 1:z=cc+1:test():xpad=535:ypad=235:bb(c,1)=35:bb(c,2)=35:sel():cc=c:xy3()
    case 4:test():xy2():n=position(200):sel():xy3()
    case 2:x=v:v=151:b=150:sel()
    case 5:x=v:v=151:b=151:sel():p=p+1:tabl():if p=2 then p=0:color 151,236,233,216
    case 6:x=v:v=151:b=152:sel():e=e+1:tabl():if e=2 then e=0:color 152,236,233,216
    case 3:test():xy2():n=position(200):a=s(v):v=x:sel()
          if bb(c,1)<3 then bb(c,1)=3
          if bb(c,2)<3 then bb(c,2)=3
          gosub Figure:xy3()
  end_select:q=0
return
rem //////////////////////////////////////////////////////////////
coordonnee:
xpad=abs(val(text$(130)))+bb(c,1):ypad=abs(val(text$(131)))+bb(c,2)
bb(c,1)=int(abs(val(text$(132))/2)):bb(c,2)=int(abs(val(text$(133))/2))
  if f$(c)="ce" then bb(c,1)=abs(val(text$(132))):bb(c,2)=0
  cls:xy3()
return
rem //////////////////////////////////////////////////////////////
Figure:
z=abs(val(text$(134))):w=abs(val(text$(135))):test():edite():xpad=abs(xy(c,1)+bb(c,1)):ypad=abs(xy(c,2)+bb(c,2))
  if f$(c)="ce" then xpad=abs(xy(c,1)):ypad=abs(xy(c,2))
return
rem ///////////////////////////////////////////////////////////
supprimer:
if z<1 or z>50 then return
for j=c to 50
  for i=1 to 4:xy(j,i)=xy(j+1,i):next i
  f$(j)=f$(j+1):bb(j,1)=bb(j+1,1):bb(j,2)=bb(j+1,2)
next j
c=cc-1:cc=c:w=c:z=c:cls:edite():xy3()
return
rem //////////////////////////////////////////////////////////////
dupliquer:
if c=50 then return
cc=cc+1:gosub figure:for i=1 to 4:xy(cc,i)=xy(c,i):next i
f$(cc)=f$(c):bb(cc,1)=bb(c,1):bb(cc,2)=bb(c,2):c=cc:z=c:tabl()
return
rem //////////////////////////////////////////////////////////////
change:
gosub figure:for i=1 to 4:xy(55,i)=xy(z,i):xy(z,i)=xy(w,i):xy(w,i)=xy(55,i):next i
f$(55)=f$(z):f$(z)=f$(w):f$(w)=f$(55):bb(55,1)=bb(z,1):bb(z,1)=bb(w,1)
bb(w,1)=bb(55,1):bb(55,2)=bb(z,2):bb(z,2)=bb(w,2):bb(w,2)=bb(55,2):gosub figure:cls:tabl()
return
rem //////////////////////////////////////////////////////////////
affim:
if number_click=405 then color 1,240,240,240:im=0:tabl():return
tx1$=".bmp":tx2$="pas trouvé":tx3$="":lir():if tx3$="" then file_load 1,a$:im=1:cls:tabl()
return
rem //////////////////////////////////////////////////////////////
effacer:
for i=1 to 51:xy(i,1)=0:xy(i,2)=0:xy(i,3)=0:xy(i,4)=0:f$(i)="0":bb(i,1)=0:bb(i,2)=0:next i
c=0:cc=c:w=0:clear 5:cls:caption 0,"creation de data":edite()
return
rem ============================================================================
lire:
tx1$=".txt":tx2$="pas trouvé":tx3$="":lir():if tx3$<>"" then return
file_open_read 12,a$:gosub effacer:e=0:v=108:q=6:gosub choix
rem -------------------------------------------------------
for i=1 to 50
file_readln 12,f$(i):if f$(i)<>"0" and f$(i)<>"" then c=c+1:cc=c
for j=1 to 4:file_readln 12,xy(i,j):next j
file_readln 12,bb(i,1):file_readln 12,bb(i,2)
next i
file_close 12:clear 5:gosub Figure:xy3():tabl():d=0:caption 0,file_extract_name$(a$)
return
rem -------------------------------------------------------
sub lir()
a$=file_name$(12):if len(a$)<2 or file_exists(a$)=0 then tx3$=tx2$:message tx3$:return
if right$(a$,4)<>tx1$ then tx3$=tx2$:message tx3$:return
end_sub
rem ============================================================================
save:
a=0:a$=file_name$(10):if len(a$)<2 then return
if right$(a$,4)=".txt" then a=message_confirmation_yes_no("remplacer ?")
if a=2 then return
if a=1 then file_open_write 10,a$
if a=0 then file_open_write 10,a$+".txt"
rem -------------------------------------------------------
for i=1 to 50
file_writeln 10,f$(i)
for j=1 to 4:file_writeln 10,xy(i,j):next j
file_writeln 10,bb(i,1):file_writeln 10,bb(i,2)
next i
file_close 10:d=0:caption 0,file_extract_name$(a$):gosub data$
return
rem ============================================================================
data$:
clear 5:h=1:hh=50
for k=1 to 3
  if k=1 then v=3:a$="ce":item_add 5,"rem cercle  "
  if k=2 then v=4:a$="re":item_add 5,"rem rectangle"
  if k=3 then v=4:a$="bo":item_add 5,"rem bouton  "
  if e=1 and c<51 then gosub figure:h=w:hh=z
  if w>z then hh=w:h=z
for i=h to hh
  if f$(i)=a$ then u=u+1:chaine():v$=v$+" "
  if u=5 then v$="data "+v$:item_add 5,left$(v$,len(v$)-2):u=0:v$="":w$=""
next i
v$="data "+v$:item_add 5,left$(v$,len(v$)-1):u=0:v$="":w$=""
next k
return
rem ----------
sub chaine()
for m=1 to v
aa$=str$(xy(i,m)):if m>2 and f$(i)="bo" then aa$=str$(xy(i,m)-xy(i,m-2))
a=len(aa$):a=3-a:d$=""
  if a>0 and a<3 then d$=string$(a,"0")
  if val(aa$)<>0 then v$=v$+d$+aa$+","
next m
end_sub
rem ...........................\\\\\\..sub..//////..............................
sub souris()
xpad=mouse_x_position(1):if xpad<1 then xpad=4
ypad=mouse_y_position(1):if ypad<1 then ypad=4
end_sub
rem ----------------------------------------------------------------------------
sub test()
if z>0 and z<51 then c=z
end_sub
rem -----xxpad=xpad:yypad=ypad-----------------------------------------------------------------------
sub xy2()
x1=xpad:y1=ypad
if im=0 then xpad=xxpad:ypad=yypad:i=c:xy():i$="    ":2d_pen_color 240,240,240:tabl2():xpad=x1:ypad=y1
if im=1 then cls
end_sub
sub xy3()
xy():2d_pen_color 0,0,0:tabl():xxpad=xpad:yypad=ypad
end_sub
sub xy()
xy(c,1)=xpad-bb(c,1):xy(c,2)=ypad-bb(c,2):xy(c,3)=xpad+bb(c,1):xy(c,4)=ypad+bb(c,2)
  if f$(c)="ce" then xy(c,1)=xpad:xy(c,2)=ypad:xy(c,3)=bb(c,1):xy(c,4)=0:bb(c,2)=0
end_sub
rem ----------------------------------------------------------------------------
sub edite()
text 134,str$(c):text 135,str$(w):text 130,str$(xy(c,1)):text 131,str$(xy(c,2))
text 132,str$(xy(c,3)-xy(c,1)):text 133,str$(xy(c,4)-xy(c,2))
  if f$(c)="ce" then text 132,str$(xy(c,3)):text 133,"0"
end_sub
rem ----------------------------------------------------------------------------
taille:
font_size 0,position(201):tabl()
return
rem ---------------------------------------------------------------------------
sub tabl()
edite()
for i=1 to 50:2d_fill_color 240,240,166+i:i$=str$(i):tabl2():next i
end_sub
rem ----------------------------------------------------------------------------
sub tabl2()
    if f$(i)="bo" or f$(i)="re" then 2d_rectangle xy(i,1),xy(i,2),xy(i,3),xy(i,4)
    if f$(i)="bo" then 2d_rectangle xy(i,1)+2,xy(i,2)+2,xy(i,3)-2,xy(i,4)-2
    if f$(i)="ce" then 2d_circle xy(i,1),xy(i,2),xy(i,3)
    if f$(i)<>"0" and p=1 then print_locate xy(i,1)+4,xy(i,2)+4:print i$
end_sub
rem ----------------------------------------------------------------------------
sub sel()
select v
    case 100:f$(c)="ce"
    case 101:f$(c)="re"
    case 102:f$(c)="bo"
    case 103:bb(c,1)=abs(bb(c,1)+(a*n))
    case 104:bb(c,2)=abs(bb(c,2)+(a*n))
    case 105:bb(c,1)=abs(bb(c,1)+(a*n)):bb(c,2)=abs(bb(c,2)+(a*n))
    case 116:ypad=abs(ypad-(1*n*n))
    case 115:ypad=abs(ypad+(1*n*n))
    case 114:xpad=abs(xpad-(1*n*n))
    case 113:xpad=abs(xpad+(1*n*n))
    case 151:color 150,236,233,216:left b,left (x)-2:top b,top (x)-2:color b,255,0,0
end_select
end_sub
rem ----------------------------------------------------------------------------
fin:
if c>0 then a=message_confirmation_yes_no("sauvegarder ?")
if a=1 then gosub save
terminate
return

file_readln 10,f$(i)
file_readln 10,bb(i,1)
file_readln 10,bb(i,2)

for i=1 to 20
file_writeln 10,f$(i)
file_writeln 10,bb(i,1)
file_writeln 10,bb(i,2)
for j=1 to 4:file_writeln 10,xy(i,j):next j
next i

if m>2 and f$(i)="bo" then goto chaine2
chaine2:
next m

dim i,a,b,c,d

rem cercle
data 275,145,035, 262,142,011, 289,141,011, 276,099,021, 278,259,023

rem rectangle
data 266,164,288,170, 213,398,241,404, 326,185,332,273, 235,183,323,313, 224,182,230,234
data 242,314,248,402, 309,315,315,403, 312,399,340,405, 223,231,279,237, 241,100,311,120
data 252,257,304,297

for i=1 to 05:read a:read b:read c:2d_circle a,b,c:next i
for i=1 to 11:read a:read b:read c:read d:2d_rectangle a,b,c,d:next i

dim s1$, s2$

data  time$, date$
read s1$
read s2$
print s1$+"  "+s2$

end

ce
208
92
20
0
20
20
ce
276
89
20
0
20
20
ce
242
118
35
0
35
35
ce
255
108
10
0
10
10
ce
226
108
10
0
10
10
ce
240
124
10
0
10
10
re
230
138
250
144
10
3
re
226
273
232
343
3
35
re
278
264
284
334
3
35
ce
220
344
25
0
25
25
ce
283
345
25
0
25
25
re
178
160
184
230
3
35
ce
187
244
15
0
15
15
re
183
161
211
167
14
3
ce
237
213
65
0
65
65
re
294
166
300
236
3
35
ce
289
232
15
0
15
15
re
274
158
302
164
14
3
re
388
151
458
263
35
56
ce
422
113
35
0
35
35
ce
407
108
10
0
10
10
ce
437
108
10
0
10
10
ce
422
125
7
0
7
7
re
412
136
432
142
10
3
re
373
152
379
222
3
35
re
456
149
462
219
3
35
re
394
264
400
334
3
35
re
437
263
443
333
3
35
re
372
148
400
154
14
3
re
431
146
459
152
14
3
re
436
334
464
340
14
3
re
370
332
398
338
14
3
re
387
71
457
83
35
6
re
400
61
446
73
23
6
ce
369
225
16
0
16
0

dim s1$, s2$, s3$

data  time$, date$, 3+5
read s1$
read s2$
read s3$
print s1$+"  "+s2$+" 3+5="+s3$

end

data "&1","&2","&3","&4","&5","&6","&7","&8","&9","&0","&.","&*","&/","&C","&-","&+","&=","&Euro","&Franc"