Petit annuaire tf

rem Annuaire téléphonique
rem 03/08/2008

label ajouter, supprimer, effacer, afficher
dim  n$,nom$,nomt$
dim i,n
dim nt(5)
rem déf de form(0)--------------------------
left 0,0
top 0,0
width 0,278
height 0,320
caption 0,"Annuaire téléphonique"

rem déf de Nom Prénom-----------------------
alpha 1
left 1,10
top 1,13
width 1,187
height 1,21
caption 1,"Nom Prénom"

rem déf de Nom Prénom----------------------
edit 2
left 2,80
top 2,13
width 2,150

rem déf de téléphone-----------------------
alpha 3
left 3,10
top 3,45
width 3,119
caption 3,"N° téléphone"

rem déf de téléphone-----------------------
edit 4
left 4,80
top 4,42
width 4,100

rem déf de N° de Fax-----------------------
alpha 5
left 5,10
top 5,70
width 5,98
caption 5,"N° de Fax"

rem déf de N° de Fax-----------------------
edit 6
left 6,80
top 6,70
width 6,100

rem déf de N° de GSM------------------------
alpha 7
left 7,10
top 7,100
width 7,94
caption 7,"N° de GSM"

rem déf de N° de GSM-----------------------
edit 8
left 8,80
top 8,98
width 8,100

rem déf de Ajouter-------------------------
button 9
left 9,200
top 9,40
width 9,50
caption 9,"Ajouter"
on_click 9,ajouter

rem déf de Supprimer-----------------------
button 10
left 10,200
top 10,70
width 10,50
caption 10,"Supprimer"
on_click 10,supprimer

rem déf de Effacer-----------------------
button 11
left 11,200
top 11,100
width 11,50
caption 11,"Effacer"
on_click 11, effacer

rem déf de liste---------------------------
list 12
left 12,40
top 12,145
width 12,190
height 12,130
sort_on 12
on_click 12, afficher
if file_exists("telephone.txt") =1
file_load 12, "telephone.txt"
end_if

end

rem ----------------------------------------
rem ----------------------------------------
afficher:
rem gosub effacer
text 2,"": text 4,"": text 6,"": text 8,""
nomt$=item_read$(12,item_index(12))
n=1 : nt(0)=0
for i=1 to len(nomt$)
if mid$(nomt$,i,1)="_"
 nt(n)=i
 if nt(n)-nt(n-1) >1 then text 2*n,trim$(mid$(nomt$,nt(n-1)+1 , nt(n)-nt(n-1)-1))
 n=n+1
end_if
next i
return

ajouter:
n$=" "
nom$ = trim$(text$(2))
if len(nom$) = 0 then nom$ = "?????????"
n= 65 - len(nom$)
nom$ = nom$ + string$(n,n$)
nomt$ = nom$ + "_"+ trim$(text$(4)) +"_"+ trim$(text$(6)) +"_"+ trim$(text$(8)) +"_"
item_add 12, nomt$
file_save 12, "telephone.txt"
goto effacer

supprimer:
item_delete 12, item_index(12)
file_save 12, "telephone.txt"
goto effacer


effacer:
text 2,"": text 4,"": text 6,"": text 8,""
return

label ajouter, supprimer, effacer, afficher, sauvegarder
dim annuaire$(100,4), entrees%
dim i,k
rem déf de form(0)--------------------------
left 0,0
top 0,0
width 0,278
height 0,320
caption 0,"Annuaire téléphonique"

rem déf de Nom Prénom-----------------------
alpha 1
left 1,10
top 1,13
width 1,187
height 1,21
caption 1,"Nom Prénom"

rem déf de Nom Prénom----------------------
edit 2
left 2,80
top 2,13
width 2,150

rem déf de téléphone-----------------------
alpha 3
left 3,10
top 3,45
width 3,119
caption 3,"N° téléphone"

rem déf de téléphone-----------------------
edit 4
left 4,80
top 4,42
width 4,100

rem déf de N° de Fax-----------------------
alpha 5
left 5,10
top 5,70
width 5,98
caption 5,"N° de Fax"

rem déf de N° de Fax-----------------------
edit 6
left 6,80
top 6,70
width 6,100

rem déf de N° de GSM------------------------
alpha 7
left 7,10
top 7,100
width 7,94
caption 7,"N° de GSM"

rem déf de N° de GSM-----------------------
edit 8
left 8,80
top 8,98
width 8,100

rem déf de Ajouter-------------------------
button 9
left 9,200
top 9,40
width 9,50
caption 9,"Ajouter"
on_click 9,ajouter

rem déf de Supprimer-----------------------
button 10
left 10,200
top 10,70
width 10,50
caption 10,"Supprimer"
on_click 10,supprimer

rem déf de Effacer-----------------------
button 11
left 11,200
top 11,100
width 11,50
caption 11,"Effacer"
on_click 11, effacer

rem déf de liste---------------------------
list 12
left 12,40
top 12,145
width 12,190
height 12,130
sort_on 12
on_click 12, afficher


file_open_read 1,"telephone.txt"
  file_readln 1,entrees%
  if entrees% > 0
    for i=1 to entrees%
        for k=1 to 4
          file_readln 1,annuaire$(i,k)
        next k
    next i
  end_if
file_close 1

if entrees% = 0 then inactive 10
if entrees% > 0
  for i=1 to entrees%
      item_add 12,annuaire$(i,1)
  next i
end_if

end

afficher:
  for i=2 to 8 step 2
      text i,annuaire$(item_index(12),i/2)
  next i

return

ajouter:
  entrees% = entrees% + 1
  active 10
  for i=1 to 4
      annuaire$(entrees%,i) = trim$(text$(i*2))
  next i
  item_add 12,annuaire$(entrees%,1)
goto effacer

supprimer:

  entrees% = entrees% - 1
  if entrees% = 0 then inactive 10
  for i=item_index(12) to entrees%
      for k=1 to 4
        annuaire$(i,k) = annuaire$(i+1,k)
      next k
  next i
  item_delete 12,item_index(12)

goto effacer


effacer:
text 2,"": text 4,"": text 6,"": text 8,""
goto sauvegarder

sauvegarder:
  file_open_write 1,"telephone.txt"
      file_writeln 1,entrees%
      if entrees% > 0
        for i=1 to entrees%
            for k=1 to 4
              file_writeln 1,annuaire$(i,k)
            next k
        next i
      end_if
  file_close 1
return