Panoramic et les APK

label valider,demarrage ,quitter
DIM x ,y
dim  ligne$ ,champ$ ,pos% ,longueur% ,var$ ,total%,fichier$, chemin$
if system$ = "ANDROID"
   dir_is_shared_downloads
   fichier$ = chemin$+"depenses.txt"
else
   chemin$ = dir_current$
   fichier$ = chemin$+"\"+"depenses.txt"
end_if
rem message fichier$

rem ******************INTERFACE
caption 0,"DEPENSES" :font_bold 0 : width 0,350 : height 0,700 : color 0,255,255,255
alpha 1 : caption 1,"          DATE"+string$(30," ")+"CATEGORIE" +string$(30," ")+"MONTANT"+string$(40," ")
top 1,5 : left 1,0
width 1,400 : font_size 1,9: color 1,255,255,255
edit 2 : text 2,date$ : top 2,20 : left 2,0 : width 2, 80
combo 3 : top 3,20: left 3,85 : width 3,100 : hint 3, "Catégorie ?"
item_add 3,"Bouffe" : item_add 3,"consos" :item_add 3,"resto" :item_add 3,"hébergement"
item_add 3, "Essence": item_add 3,"Visites": item_add 3,"Cadeaux" : item_add 3,"Divers"
edit 4 : text 4,"" : top 4,20 : left 4,185 : width 4, 100 : hint 4, "Montant ?" : color 4,255,0,0
button 5 : caption 5,"OK" : top 5,20 : left 5,290: width 5,30 : font_bold 5
grid 6 : top 6,50 : width 6,330 : height 6,500 : grid_column 6,3: grid_row 6,200
grid_column_fixed 6,0 : grid_row_fixed 6,0 :grid_column_width 6,102
edit 7 : text 7,"" : left 7,230 : top 7,570 : width 7,70
alpha 8: caption 8,"  total" : left 8,130 : top 8,570 :width 8,50 : height 8, 20 : color 8,255,255,255
button 9 : caption 9,"QUITTER" : top 9 ,600 : left 9,230
gosub demarrage

rem ******************GESTION EVENEMENTS
on_click 5,valider
on_click 9,quitter

END

rem ******************DEMARRAGE
demarrage:
y = 1
total% = 0
text 7,"0.00"

IF file_exists(fichier$) = 1
    file_open_READ 50 ,fichier$
    repeat
          ligne$ = file_readln$(50)
            pos% = instr(ligne$,",")
            champ$= left$(ligne$,pos%-1)
            grid_write 6,y,1,champ$

            ligne$ = mid$(ligne$,pos%+1,len(ligne$))
            pos% = instr(ligne$,",")
            champ$= left$(ligne$,pos%-1)
            grid_write 6,y,2,champ$
            ligne$ = trim$(mid$(ligne$,pos%+1,len(ligne$)))
            champ$= ligne$
            total% = total% + val(champ$)
            if instr(champ$,".")= 0
               champ$=champ$+".00"
            end_if
            champ$ = string$(13-len(champ$)," ")+champ$
            grid_write 6,y,3,champ$
            y = y + 1
    until file_eof(50) = 1
    file_close 50
    champ$ = str$(total%)
    if instr(champ$,".") = 0
      champ$=champ$+".00"
    end_if
    champ$ = string$(12-len(champ$)," ")+champ$
    text 7,champ$
end_if
return

rem ******************PROCEDURES

sub formatage_num(champ$)

   champ$ = string$(13-len(champ$)," ")+champ$

   if instr(champ$,".")= 0
       champ$=champ$+".00"
   end_if
   rem message len(champ$)
end_sub

valider:
rem message fichier$

if text$(4) <> ""
 grid_row_insert 6,1

 grid_write 6,1,1, text$(2)
 grid_write 6,1,2, text$(3)
 champ$ = trim$(text$(4))

 if instr(champ$,".")= 0
    champ$ = champ$+".00"
    text 4,champ$
 end_if
 if mid$(champ$,len(champ$)-1,1)="."
    text 4,champ$+"0"
 end_if
 if len(text$(4))<13
     ligne$ = string$(13-len(text$(4))," ")+trim$(text$(4))
 else
     ligne$ = text$(4)
 end_if
 text 4,ligne$
 grid_write 6,1,3, text$(4)
 total% = val(text$(7)) + val(text$(4))
 champ$ = str$(total%)
 if instr(champ$,".") = 0
      champ$=champ$+".00"
 end_if
 champ$ = string$(12-len(champ$)," ")+champ$
 text 7,champ$
 IF file_exists(fichier$) = 1
     file_open_append 51 ,fichier$
 else
     file_open_write 51, fichier$
 end_if
 ligne$=text$(2)+","+text$(3)+","+trim$(text$(4))
 text 4,""
 file_writeln 51,ligne$
 file_close 51
end_if
return

quitter:
   TERMINATE
return