USING associant nombres et textes

dim a$(10000000)
a$(1)="XXXXXXXXXXXXXXXXXX"
print a$

                    ' ==============================================================================
REM ARRET TRACE REM
 OBJETd_INSERTION:
'  à insérer dans un sous programme à appeler après les dim et label
memo optch%+1 :hide optch%+1:left optch%+1 ,300:width optch%+1 , 300:font_size optch%+1 ,12:color optch%+1,33,251,24:font_size optch%+1,14:font_bold optch%+1
open_dialog optch%+2 :  dlist optch%+3
                ' form de transfert pour voir les variable
form optch%+4 :width optch%+4 ,560 :height optch%+4 ,950:border_small optch%+4
memo optch%+5 :parent optch%+5 , optch%+4 :top optch%+5 ,180:width optch%+5 , width( optch%+4 ):height optch%+5 ,700:on_click optch%+5 ,trace
  container_option optch%+6 :parent optch%+6 , optch%+4 :height optch%+6 ,30 :width optch%+6 ,440
option optch%+7 :parent optch%+7 , optch%+6 :top optch%+7 ,10:left optch%+7 ,10 :caption optch%+7 ,"rien"
option optch%+8 :parent optch%+8 , optch%+6 :top optch%+8 ,10:left optch%+8 ,60 :caption optch%+8 ," 50"
option optch%+9 :parent optch%+9 , optch%+6 :top optch%+9 ,10:left optch%+9 ,110:caption optch%+9 ," 300"
option optch%+10 :parent optch%+10 , optch%+6 :top optch%+10 ,10:left optch%+10 ,160:caption optch%+10 ," 600"
option optch%+11 :parent optch%+11 , optch%+6 :top optch%+11 ,10:left optch%+11 ,210:caption optch%+11 ," 1000"
option optch%+12 :parent optch%+12 , optch%+6 :top optch%+12 ,10:left optch%+12 ,260:caption optch%+12 ," 1500"
option optch%+13 :parent optch%+13 , optch%+6 :top optch%+13 ,10:left optch%+13 ,310:caption optch%+13 ," 2000"
option optch%+14 :parent optch%+14 , optch%+6 :top optch%+14 ,10:left optch%+14 ,380:caption optch%+14 ,"TRACE"
button optch%+15 :parent optch%+15 , optch%+4 :left optch%+15 ,450:caption optch%+15 ,"TRACE":top optch%+15 ,0  :height optch%+15 ,20
button optch%+16 :parent optch%+16 , optch%+4 :left optch%+16 ,450:caption optch%+16 , "FIN" :top optch%+16 ,30 :height optch%+16 ,20

button optch%+22 :parent optch%+22 , optch%+4 :left optch%+22 ,360:caption optch%+22 , "SAVE":top optch%+22 ,30 :height optch%+22 ,20:on_click optch%+22,save_trace

mark_on optch%+11
edit optch%+18 :parent optch%+18,optch%+4:top optch%+18,30:width optch%+18,50:color optch%+18,230,200,200:font_size optch%+18,10:font_bold optch%+18
                  ' ----------------------------
edit optch%+17 :parent optch%+17,optch%+4:top optch%+17,50:width optch%+17,width( optch%+4 ):height optch%+17,25
                color optch%+17,255,255,239:font_size optch%+17,12
edit optch%+19 :parent optch%+19,optch%+4:top optch%+19,75 :width optch%+19,width( optch%+4 ):height optch%+19,25
                color optch%+19,247,251,90 :font_size optch%+19,12:font_bold optch%+19
edit optch%+20 :parent optch%+20,optch%+4:top optch%+20,100 :width optch%+20,width( optch%+4 ):height optch%+20,25
                color optch%+20,255,231,173:font_size optch%+20,12
edit optch%+21 :parent optch%+21,optch%+4:top optch%+21,125 :width optch%+21,width( optch%+4 ):height optch%+21,25
                color optch%+21,255,251,222:font_size optch%+21,12
dlist optch%+23
' -----------------------------------------------------------------------------------
return
' ==============================================================================
' ==========================SAUVEGARDE==========================================
save_trace:
  show optch%+1
  item_add optch%+1,"avant de pouvoir nettoyer le programme"
  item_add optch%+1,"le sauvegarder pour pouvoir le relire"
  item_add optch%+1,"mettre un nom temporaire"
  message "fermez cette fenêtre après sauvegarde"
 
  item_add optch%+1,"maintenant il faut le relire"
  wait 2000
  save_trace$=file_name$(optch%+23)
  file_open_read 5,save_trace$
  file_read 5,k_trace$:file_read 5,k_trace$:file_read 5,k_trace$
  file_read 5,k_trace$:file_read 5,k_trace$:file_read 5,k_trace$
 
  while file_eof(5) <> 1
      file_read 5,k_trace$
      if instr(k_trace$,"REM ARRET TRACE REM")>0 then exit_while
      if ltrim$(k_trace$)<>"wyt%=" and instr(k_trace$,"wyt%=")>60 then item_add optch%+23,k_trace$
  end_while
  file_close 5
  file_save optch%+23,save_trace$
  clear optch%+1
  item_add optch%+1,"maintenant vous pouvez quitter"
return
' =======================FIN D'INSERTION========================================
' ==============================================================================
initial_trace:
dim wyt%,optchc$ ,copie_controle$,optch%,save_trace$,k_trace$
label trace ,OBJETd_INSERTION,boucle_attente,save_trace

return
' ==============================================================================
trace:
show optch%+4
text optch%+18,wyt%
if checked(optch%+7 )=1  then goto boucle_attente
 clear optch%+5
if wyt%-2>0 then text optch%+17,trim$(item_read$( optch%+3 ,wyt%-1))
if wyt%-1>0 then text optch%+19,trim$(item_read$( optch%+3 ,wyt%))
if wyt%>0 then text optch%+20,trim$(item_read$( optch%+3 ,wyt%+1))
if wyt%>0 then text optch%+21,trim$(item_read$( optch%+3 ,wyt%+2))

' ici on reporte les variables ********************Il faut laisser étoiles (teste pour sauvegarde)

' ------------------------------------------------------------------------------
boucle_attente:
  if checked( optch%+14 )=0
      if checked(optch%+7 )=1  then wait 1
      if checked( optch%+8 )=1 then wait 100
      if checked( optch%+9 )=1 then wait 300
      if checked( optch%+10 )=1 then wait 600
      if checked( optch%+11 )=1 then wait 1000
      if checked( optch%+12 )=1 then wait 3500
      if checked( optch%+13 )=1 then wait 5000
      if clicked( optch%+16 )=1 then stop
  else
      repeat
      if clicked( optch%+16 )=1 then stop
      until  clicked( optch%+15 )=1:repeat: until mouse_left_up(optch%+15)=1:wait 500
  end_if
  if clicked( optch%+16 )=1 then stop
return

    rem  " SI VOUS METTEZ LE CHOIX COULEUR CHAINE EN ROUGE, les remarques que "
    rem  " j ai fait seront plus repérables "
dim f$,a%,b%,c% ,z%
dim a$,b$,c$,e$ ,d$,s$,boucle%,boucle1% , copie_controle$

full_space 0
list 1 :width 1,800 :height 1,200:font_size 1,12:color 1,191,250,193:' vert
open_dialog 2
save_dialog 5

memo 3:top 3,210:width 3,300:height 3,200 :font_size 3,11:font_bold 3:print_target_is 3
list 4:top 4,420 :height 4,screen_y -470:width 4,screen_x:color 4,250,250,200 :' jaune
    font_size 4,14:font_color 4,255,0,0

memo 6:left 6,310:top 6,210:width 6,500 :height 6,200 :color 6,180,240,220:' bleu ciel
list 7:left 7,820:top 7,210:width 7,510 :height 7,200 :color 7,247,170,214:' rose
list 8:left 8,820:width 8,500 :height 8,200:color 8,255,223,165:' orange
f$=file_name$(2)  :if f$="_" then end
  file_load 1,f$
s$=left$(f$,len(f$)-4)+"-copie- .bas"

item_add 4,"rem  copie de travail pour tracer le programme"
item_add 4," LABEL initial_trace"
item_add 4," GOSUB initial_trace:'  inialise les données pour le contrôle"
for z%=1 to count(1)
  a$= item_read$(1,z%)
  b%=instr( upper$(a$),"DIM ")
  if b%>0
    b%=b%+4
    for c%=b% to len(a$)
        c$=mid$(a$,c%,1)
        if c$=":" then d$=trim$(d$):exit_for
        if c$<>"," or  c%=len(a$)
          d$=d$+c$
        else
          if instr(d$,"$")>0
              if instr( d$,"(" )= 0
                item_add 6,"item_add optch%+5," + chr$(34) + d$ + "=" + chr$(34) + "+" + d$
              end_if
          else
              if instr( d$,"(" ) =0
                item_add 6,"item_add optch%+5," + chr$(34) + d$ + "=" + chr$(34) + "+ str$("+d$+")"
              end_if
          end_if
          d$=""
        end_if
    next c%
    if instr(d$,"$")>0
        if instr( d$,"(" )= 0
          item_add 6,"item_add optch%+5," + chr$(34) + d$ + "=" + chr$(34) + "+" + d$
        end_if
    else
        if instr( d$,"(" ) =0
          item_add 6,"item_add optch%+5," + chr$(34) + d$ + "=" + chr$(34) + "+ str$("+d$+")"
        end_if
    end_if
    d$=""
  end_if
next z%

' _______________ recherche du dernier label ou dim, pour ne pas mettre de ligne intermédiaire
rem      SI IL Y A PAS DE "END", LE METTRE DANS UN "REM" OU APOSTROPHE.  on le met là après le "label"
rem            ou les objets. le "END" est pas nécessaire si il y a pas de clic à évennement 'on_clic ou on_change
rem      mais retenir ceci: le "end" doit être repérable par le programme
rem      ici la recherche se faire avec "END:' **
rem      si vous préférez autre chose, changez l instruction suivante END: **
for a%=count(1) to 1 step -1
  if instr(upper$(item_read$(1,a%)),"END:' **") > 0  then exit_for
  a$=item_read$(1,a%):print instr(a$,"end")
next a%
print "fin:",a%

item_add 4,"optch%=10:rem modifier  ' optch% selon le programme ****"
item_add 4,"gosub OBJETd_INSERTION"
item_add 4,"file_load optch%+3,"+chr$(34)+f$+chr$(34)
z%=a%

for a%=1 to z%              :' sur la ligne suivante il serait possible d'éviter les lignes vides ?!!
  item_add 4,item_read$(1,a%)
next a%

boucle%=0:boucle1%=0
for z%=a%+1 to count(1)
  if trim$(item_read$(1,z%))<>""
  if trim$(upper$(a$))<>"TERMINATE" then a$="wyt%="+str$(z%)+" :gosub trace"            :  ' item_read$(1,z%) +chr$(34)
  rem  "  cette partie je l'avais faite pour éviter de tester les boucles "' à vous de voir
  '  if instr( upper$(item_read$(1,z%)), "REPEAT")>0 and instr( upper$(item_read$(1,z%)), "_REPEAT")=0 then boucle%=1:if instr(upper$(item_read$(1,z%)),"UNTIL")>0 then boucle%=0:' si les 2 sont sur la même ligne
  '  if instr(upper$(item_read$(1,z%)),"UNTIL")>0 then boucle%=0
  '  if instr( upper$(item_read$(1,z%)), "WHILE")>0 and instr( upper$(item_read$(1,z%)), "END_WHILE")=0 then boucle1%=1:if instr(upper$(item_read$(1,z%)),"END_WHILE")>0 then boucle1%=0
  '  if instr(upper$(item_read$(1,z%)),"END_WHILE")>0 then boucle1%=0
  '  if boucle%=0 and boucle1%=0
        if a$<>"" then item_add 4,string$(80," ")+a$:' on ne perturbe pas les boucles
  '  end_if
  item_add 4,item_read$(1,z%)
  end_if

next z%
' ici partie à rajouter '
print_target_is 7

rem  ***************************************************************************  rem
rem  ***************************************************************************  rem
rem  *  " modifiez le chemin, si celui-ci est pas absolu, il faudra copier "  *  rem
rem  *            " le fichier chaque fois qu il sera lut ailleur "            *  rem
rem  ***************************************************************************  rem
rem  ***************************************************************************  rem

file_add 8,"F:\Basic Panoramique\partie_objet.bas" :' entre il faut les variables  dans la fonction trace
' sort 8
for a%=1 to count(8)
  a$=item_read$(8,a%)
  ' -------------
  item_add 4,a$
  if instr(a$,"**********")>0  : ' mettre les variables récupérées ici
      for b%=1 to count(6)
        item_add 4, item_read$(6,b%)
        print  item_read$(6,b%)
      next b%
  end_if
  ' -------------
  print a$
next a%
' ==========================================
 file_save 4,s$
end
' ==============================================================================