Mon carnet d'adresse

deux fichiers .bas à compiler l'un etant appele par l'autre.
il vous faudra créer une image .jpg(110x130) avec une couleur unie ou pas.
les autres fichiers sont "normalement" autocréés par le bidule.
le carnet :

Code:: dim Lettre$,Civ$,Nom$,PNom$,L,L$,sep2,n,m,id$,Ligne$,Lettre2$,sep,Ligne2$,Num$,Adresse$,CP$,Ville$,Tel$
dim A$,A_mail$,Photo$
dim ecranL,ecranT

caption 0,"Mon carnet d'adresse":color 0,0,140,0
height 0,350:width 0,500
ecranL=(screen_x-500)/2:ecranT=(screen_y-350)/2
top 0,ecranT:left 0,ecranL

label Quitter,Ajouter,depart,Sel_Onglet,Sel_Onglet2,fich,mailto

main_menu 1
sub_menu 8 :caption 8,"A" :parent 8,1 :on_click 8,Sel_Onglet
sub_menu 9 :caption 9,"B" :parent 9,1 :on_click 9,Sel_Onglet
sub_menu 10:caption 10,"C":parent 10,1 :on_click 10,Sel_Onglet
sub_menu 11:caption 11,"D":parent 11,1 :on_click 11,Sel_Onglet
sub_menu 12:caption 12,"E":parent 12,1 :on_click 12,Sel_Onglet
sub_menu 13:caption 13,"F":parent 13,1 :on_click 13,Sel_Onglet
sub_menu 14:caption 14,"G":parent 14,1 :on_click 14,Sel_Onglet
sub_menu 15:caption 15,"H":parent 15,1 :on_click 15,Sel_Onglet
sub_menu 16:caption 16,"I":parent 16,1 :on_click 16,Sel_Onglet
sub_menu 17:caption 17,"J":parent 17,1 :on_click 17,Sel_Onglet
sub_menu 18:caption 18,"K":parent 18,1 :on_click 18,Sel_Onglet
sub_menu 19:caption 19,"L":parent 19,1 :on_click 19,Sel_Onglet
sub_menu 20:caption 20,"M":parent 20,1 :on_click 20,Sel_Onglet
sub_menu 21:caption 21,"N":parent 21,1 :on_click 21,Sel_Onglet
sub_menu 22:caption 22,"O":parent 22,1 :on_click 22,Sel_Onglet
sub_menu 23:caption 23,"P":parent 23,1 :on_click 23,Sel_Onglet
sub_menu 24:caption 24,"Q":parent 24,1 :on_click 24,Sel_Onglet
sub_menu 25:caption 25,"R":parent 25,1 :on_click 25,Sel_Onglet
sub_menu 26:caption 26,"S":parent 26,1 :on_click 26,Sel_Onglet
sub_menu 27:caption 27,"T":parent 27,1 :on_click 27,Sel_Onglet
sub_menu 28:caption 28,"U":parent 28,1 :on_click 28,Sel_Onglet
sub_menu 29:caption 29,"V":parent 29,1 :on_click 29,Sel_Onglet
sub_menu 30:caption 30,"W":parent 30,1 :on_click 30,Sel_Onglet
sub_menu 31:caption 31,"X":parent 31,1 :on_click 31,Sel_Onglet
sub_menu 32:caption 32,"Y":parent 32,1 :on_click 32,Sel_Onglet
sub_menu 33:caption 33,"Z":parent 33,1 :on_click 33,Sel_Onglet
sub_menu 34:caption 34,"A-Z":parent 34,1:on_click 34,Sel_Onglet2
sub_menu 3 :caption 3,"Ajouter":parent 3,1:on_click 3,Ajouter
sub_menu 4 :caption 4,"Quitter":parent 4,1:on_click 4,Quitter
dlist 35
list 36:top 36,10:left 36,10:height 36,260:width 36,140:font_name 36,"arial":color 36,95,250,110

alpha 37:top 37,10:left 37,400:font_name 37,"HorshamShadow":font_size 37,30:font_color 37,255,255,0
alpha 38:top 38,90:left 38,160:font_name 38,"Times new roman":font_color 38,255,255,0:font_size 38,12
alpha 39:top 39,130:left 39,190:font_name 39,"arial":font_color 39,255,255,0
alpha 40:top 40,150:left 40,190:font_name 40,"arial":font_color 40,255,255,0
alpha 41:top 41,210:left 41,300:font_name 41,"arial":font_color 41,255,255,0
alpha 42:top 42,230:left 42,300:font_name 42,"arial":font_color 42,255,255,0:cursor_point 42:hint 42,"Ouvre la boite à mail"
picture 43:height 43,130:width 43,110:top 43,70:left 43,350:color 43,0,140,0:stretch_on 43

gosub depart
on_click 3,Ajouter
on_click 4,Quitter
on_click 11,Sel_Onglet
on_click 36,fich
on_click 42,mailto

end

depart:
if file_exists("A-Z.txt")=0
file_open_write 1,"A-Z.txt"
file_close 1
end_if
return

Sel_Onglet:
clear 35
clear 36
caption 38,"":caption 39,"":caption 40,"":caption 41,"":caption 42,""
file_load 43,"ph_base.jpg"
for n=8 to 33
if clicked(n)=1 then m=n
next n
select m
case 8: id$="A"
case 9: id$="B"
case 10: id$="C"
case 11: id$="D"
case 12: id$="E"
case 13: id$="F"
case 14: id$="G"
case 15: id$="H"
case 16: id$="I"
case 17: id$="J"
case 18: id$="K"
case 19: id$="L"
case 20: id$="M"
case 21: id$="N"
case 22: id$="O"
case 23: id$="P"
case 24: id$="Q"
case 25: id$="R"
case 26: id$="S"
case 27: id$="T"
case 28: id$="U"
case 29: id$="V"
case 30: id$="W"
case 31: id$="X"
case 32: id$="Y"
case 33: id$="Z"
end_select
file_load 35,"A-Z.txt"
if count(35)>0
for L=1 to count(35)
L$=item_read$(35,L)
sep2=instr(L$,"|")
Lettre$=left$(L$,sep2-1)
L$=mid$(L$,sep2+1,len(L$)-sep2)
sep2=instr(L$,"|")
Civ$=left$(L$,sep2-1)
L$=mid$(L$,sep2+1,len(L$)-sep2)
sep2=instr(L$,"|")
Nom$=left$(L$,sep2-1)
L$=mid$(L$,sep2+1,len(L$)-sep2)
sep2=instr(L$,"|")
PNom$=left$(L$,sep2-1)
if id$=Lettre$
item_add 36,str$(L)+" | "+Nom$+" - "+PNom$
end_if
next L
end_if
caption 37,id$+" "
return

Sel_Onglet2:
clear 35
clear 36
caption 38,"":caption 39,"":caption 40,"":caption 41,"":caption 42,""
file_load 43,"ph_base.jpg"
file_load 35,"A-Z.txt"
if count(35)>0
for L=1 to count(35)
L$=item_read$(35,L)
sep2=instr(L$,"|")
Lettre$=left$(L$,sep2-1)
L$=mid$(L$,sep2+1,len(L$)-sep2)
sep2=instr(L$,"|")
Civ$=left$(L$,sep2-1)
L$=mid$(L$,sep2+1,len(L$)-sep2)
sep2=instr(L$,"|")
Nom$=left$(L$,sep2-1)
L$=mid$(L$,sep2+1,len(L$)-sep2)
sep2=instr(L$,"|")
PNom$=left$(L$,sep2-1)
item_add 36,str$(L)+" | "+Nom$+" - "+PNom$
next L
end_if
caption 37,"A-Z "
return

fich:
Ligne$=item_index$(36)
sep=instr(Ligne$,"|")
Num$=left$(Ligne$,sep-1)
Ligne2$=item_read$(35,val(Num$))
sep=instr(Ligne2$,"|")
A$=left$(Ligne2$,sep-1)
Ligne2$=mid$(Ligne2$,sep+1,len(Ligne2$)-sep)
sep=instr(Ligne2$,"|")
Civ$=left$(Ligne2$,sep-1)
Ligne2$=mid$(Ligne2$,sep+1,len(Ligne2$)-sep)
sep=instr(Ligne2$,"|")
Nom$=left$(Ligne2$,sep-1)
Ligne2$=mid$(Ligne2$,sep+1,len(Ligne2$)-sep)
sep=instr(Ligne2$,"|")
PNom$=left$(Ligne2$,sep-1)
Ligne2$=mid$(Ligne2$,sep+1,len(Ligne2$)-sep)
sep=instr(Ligne2$,"|")
Adresse$=left$(Ligne2$,sep-1)
Ligne2$=mid$(Ligne2$,sep+1,len(Ligne2$)-sep)
sep=instr(Ligne2$,"|")
CP$=left$(Ligne2$,sep-1)
Ligne2$=mid$(Ligne2$,sep+1,len(Ligne2$)-sep)
sep=instr(Ligne2$,"|")
Ville$=left$(Ligne2$,sep-1)
Ligne2$=mid$(Ligne2$,sep+1,len(Ligne2$)-sep)
sep=instr(Ligne2$,"|")
Tel$=left$(Ligne2$,sep-1)
Ligne2$=mid$(Ligne2$,sep+1,len(Ligne2$)-sep)
sep=instr(Ligne2$,"|")
A_Mail$=left$(Ligne2$,sep-1)
Ligne2$=mid$(Ligne2$,sep+1,len(Ligne2$)-sep)
sep=instr(Ligne2$,"|")
Photo$=left$(Ligne2$,sep-1)
caption 38,Civ$+" "+Nom$+" "+PNom$
caption 39,Adresse$
caption 40,CP$+" "+Ville$
caption 41,"Tel : "+Tel$
caption 42,"Mail : "+A_mail$
if Photo$<>""
file_load 43,Photo$
else
file_load 43,"ph_base.jpg"
end_if
return

Ajouter:
execute_wait "Aj_Adresse.exe"
return

mailto:
execute "mailto:"+A_mail$+"?subject=le_sujet&body=le_contenu"
return

Quitter:
terminate

puis la fonction de création de fiche:

Code:: dim cx,ad$,ad2$

if file_exists("ad.txt")=0
file_open_write 1,"ad.txt"
ad$=dir_current$
file_writeln 1,ad$
file_close 1
end_if

caption 0,"Ajouter une fiche"
height 0,400:width 0,490
color 0,0,140,0

label Photo,Ajouter,Annuler,Quit

alpha 1:caption 1,"Civ : ":top 1,15:left 1,15:font_name 1,"arial":font_color 1,255,255,0
combo 2:top 2,12:left 2,70:width 2,50:color 2,95,250,110
item_add 2,"Mme"
item_add 2,"Mlle"
item_add 2,"M"
alpha 3:caption 3,"Nom : ":top 3,50:left 3,15:font_name 3,"arial":font_color 3,255,255,0
edit 4:top 4,47:left 4,70:width 4,200:color 4,95,250,110
alpha 5:caption 5,"Prénom : ":top 5,85:left 5,15:font_name 5,"arial":font_color 5,255,255,0
edit 6:top 6,82:left 6,70:width 6,200:color 6,95,250,110
alpha 7:caption 7,"Adresse : ":top 7,120:left 7,15:font_name 7,"arial":font_color 7,255,255,0
edit 8:top 8,118:left 8,70:width 8,200:color 8,95,250,110
alpha 9:caption 9,"C.P : ":top 9,155:left 9,15:font_name 9,"arial":font_color 9,255,255,0
edit 10:top 10,152:left 10,70:width 10,40:color 10,95,250,110
alpha 11:caption 11,"Ville : ":top 11,190:left 11,15:font_name 11,"arial":font_color 11,255,255,0
edit 12:top 12,187:left 12,70:width 12,200:color 12,95,250,110
alpha 13:caption 13,"Tel : ":top 13,235:left 13,15:font_name 13,"arial":font_color 13,255,255,0
edit 14:top 14,232:left 14,70:width 14,20:color 14,95,250,110
edit 15:top 15,232:left 15,95:width 15,20:color 15,95,250,110
edit 16:top 16,232:left 16,120:width 16,20:color 16,95,250,110
edit 17:top 17,232:left 17,145:width 17,20:color 17,95,250,110
edit 18:top 18,232:left 18,170:width 18,20:color 18,95,250,110
alpha 19:caption 19,"Mail : ":top 19,260:left 19,15:font_name 19,"arial":font_color 19,255,255,0
edit 20:top 20,257:left 20,70:width 20,250:color 20,95,250,110
alpha 21:caption 21,"Photo : ":top 21,285:left 21,15:font_name 21,"arial":font_color 21,255,255,0
edit 22:top 22,282:left 22,70:width 22,350:color 22,95,250,110
button 23:caption 23,"...":width 23,30:top 23,280:left 23,430
button 24:caption 24,"Ajouter":top 24,330:left 24,385
button 25:caption 25,"Annuler":top 25,330:left 25,305
picture 26:top 26,47:left 26,290:height 26,130:width 26,110:color 26,0,140,0:stretch_on 26
dlist 28
dlist 29

file_load 29,"ad.txt"
ad2$=item_read$(29,1)
file_load 26,ad2$+"\ph_base.jpg"

on_click 23,Photo
on_click 24,Ajouter
on_click 25,Annuler
end

Photo:
open_dialog 27
text 22,file_name$(27)
file_load 26,file_name$(27)
delete 27
return

Ajouter:
cx=message_confirmation_yes_no("Voulez vous ajouter"+chr$(13)+"une autre fiche")
if cx=1
file_load 28,ad2$+"\A-Z.txt"
item_add 28,Left$(text$(4),1)+"|"+text$(2)+"|"+text$(4)+"|"+text$(6)+"|"+text$(8)+"|"+text$(10)+"|"+text$(12)+"|"+text$(14)+" . "+text$(15)+" . "+text$(16)+" . "+text$(17)+" . "+text$(18)+"|"+text$(20)+"|"+text$(22)+"|"
file_save 28,ad2$+"\A-Z.txt"
text 2,"":text 4,"":text 6,"":text 8,"":text 10,"":text 12,"":text 14,"":text 15,"":text 16,""
text 17,"":text 18,"":text 20,"":text 22,""
file_load 26,ad2$+"\ph_base.jpg"
else
file_load 28,ad2$+"\A-Z.txt"
item_add 28,Left$(text$(4),1)+"|"+text$(2)+"|"+text$(4)+"|"+text$(6)+"|"+text$(8)+"|"+text$(10)+"|"+text$(12)+"|"+text$(14)+" . "+text$(15)+" . "+text$(16)+" . "+text$(17)+" . "+text$(18)+"|"+text$(20)+"|"+text$(22)+"|"
file_save 28,ad2$+"\A-Z.txt"
text 2,"":text 4,"":text 6,"":text 8,"":text 10,"":text 12,"":text 14,"":text 15,"":text 16,""
text 17,"":text 18,"":text 20,"":text 22,""
gosub Quit
end_if
return

Annuler:
text 2,"":text 4,"":text 6,"":text 8,"":text 10,"":text 12,"":text 14,"":text 15,"":text 16,""
text 17,"":text 18,"":text 20,"":text 22,""
file_load 26,ad2$+"\ph_base.jpg"
cx=message_confirmation_yes_no("Voulez vous quitter")
if cx=1 then gosub Quit
return

Quit:
terminate

enfin voilà c fait
king

Nombre de messages : 2747 Date d'inscription : 13/09/2009

C'est très joli, mais je crois que ce n'est pas à la bonne place.
Ici, ce sont les inutilitaires.
Or, ton carnet d'adresses, il est utile, donc c'est utilitaire.
jocolor

vu l'intérêt porté à mes autres publications ,je pensais que leur place étaient plutot dans cette rubrique.

Invité

Ne soit pas gêné, par le fait que tu n'ais pas d'avis. Moi, à par le dernier, c'est presque tout le temps (sur les publications d'un programme), donc je connais.
Maintenant je ne regarde que ce que j'ai besoin, je manque énormément de temps et il m'est impossible de tout regarder. Et en plus je crois que je vais prendre des vacances quelques jours avec Panoramique, ce n'est plus gérable.
@+

Nombre de messages : 2747 Date d'inscription : 13/09/2009

Allez, faut pas désespérer !
C'est vrai qu'on se passionne souvent pour des trucs
qui n'intéressent éventuellement que soi.
Il faut dire que t'as fait fort, aussi.
Les compteurs électriques et les vaccins des chevaux de compétition, c'est quand même pointu, comme domaine !

Un carnet d'adresses, c'est plus courant, il y a des chances que tu ais quelques réponses,
mais pas tant que ça, il ne faut pas se faire d'illusions.
Il faut dire qu'on n'est pas beaucoup, sur ce site, à écrire régulièrement.
Et puis on est tous chacun dans notre truc, à programmer son petit machin à soi, à tel point que les inventions des autres paraissent parfois un peu aliens.
alien

Invité

Avant d'aller me coucher: il y a une chose a regarder de temps en temps (y a pas longtemps que je m'en suis rendu compte", c'est la où tu as mis le sujet:
https://panoramic.1fr1.net/les-inutilitaires-f9/

Il y a des compteurs, pour le nombre de fois que le sujet a été vu.

Bonne nuit

je vais mettre un frein moi aussi un gros rhume me plombe le cerveau.

j'ai vu le compteur mais bon , un petit mot fait toujours plaisir.

il y a des sujets ou moi même je n'ose m' exprimer pour ne pas troubler la discussion en autre la recherche des dimensions d' une image ou j'ai du mal à voir l'application mais ca m' interesse j'ai telecharge les pages pour voir ca a tete reposée. scratch

Un conseil pour ceux qui charge ce programme,
il faut créer un dossier (Carnet d'adresse Ygeronimi) ensuite y intégrer les 2 codes, mais attention le 2ème doit être enregistré avec ce nom Aj_Adresse et être obligatoirement transformer en exe. Ensuite créer une image 110x130 en jpg (son nom: ph_base.jpg) et l'insérer dans le dossier

Belle présentation, mais un bémol sur les textes en jaune sur fond vert.
J'ai fabriqué la même chose, au début que j'ai découvert Panoramic, pour me faire la main avec ce languange. Ce genre de petit programme, c'est excellent pour commencer. Le tien est plus réussi.
Je remarque que ta façon de programmer ressemble beaucoup à la mienne.

Pour finir, je suis d'accord avec JJN4, on a pas toujours le temps d'être sur tout les fronts à la fois. Je prends l'exemple de Cosmos qui essai de le faire et le résultat c'est qu'il doit faire une pose et il a raison. Nous ne faisons pas une compétition et il faut que la programmation reste un plaisir et non pas une galère.

Je sais que ce n'est pas agréable de publier un code et de ne pas avoir de réactions, mais c'est ainsi, il faut s'y faire.
Je constate avec plaisir que tu fais parti de ceux qui alimentent ce Forum et c'est trés bien.

Very Happy

Merci pour tes encouragements Jean Claude.

J'ai adopté la formule des modules plutot que les forms pour éviter les trucs bizarre au demarrage ou les forms s'ouvre et se ferme avec la methode hide et je trouve cela deplaisant et fait penser à un problème d'affichage. affraid

YG

Ps le dossier peut avoir le nom que l'on veut.
la ou je suis content de moi ( je flatte un peu mon ego) c d'avoir contourner le probleme de retour au dossier source apres le choix de la photo.

C'est vrai que faire plusieurs modules c'est plus simple.

Actuellement, je travaille sur un prog qui utilise des Form(s) "hidé", je commence tout juste à m'y habituer. Je le publirait dans quelques semaines. Tu pourras y puiser ma façon de faire avec ses Form(s). Car cela permet d'avoir un seul code, mais pour cela il faut passer par un MAIN_MENU (Rien n'eùpêche ensuite de faire une barre de bouttons pour raccourcir l'accès aux options du menu)

A+

Il faut dire que Jack nous a beaucoup aidé avec les onglets pour les modules c plus pratique de pouvoir faire un retour sur module de base

Vive Jack cheers

Deux nouvelles possibilités de recherche dans le fichier "mon_carnet_d_adresse.bas"

je vous mets le code du .bas :

Code:: dim Lettre$,Civ$,Nom$,PNom$,L,L$,sep2,n,m,id$,Ligne$,Lettre2$,sep,Ligne2$,Num$,Adresse$,CP$,Ville$,Tel$
dim A$,A_mail$,Photo$,cx,Name$
dim ecranL,ecranT

caption 0,"Mon carnet d'adresse":color 0,0,140,0
height 0,350:width 0,500
ecranL=(screen_x-500)/2:ecranT=(screen_y-350)/2
top 0,ecranT:left 0,ecranL

label Quitter,Ajouter,depart,Sel_Onglet,Sel_Onglet2,fich,mailto
label cherche_Nom,cherche_Tel
main_menu 1
sub_menu 8 :caption 8,"A" :parent 8,1 :on_click 8,Sel_Onglet
sub_menu 9 :caption 9,"B" :parent 9,1 :on_click 9,Sel_Onglet
sub_menu 10:caption 10,"C":parent 10,1 :on_click 10,Sel_Onglet
sub_menu 11:caption 11,"D":parent 11,1 :on_click 11,Sel_Onglet
sub_menu 12:caption 12,"E":parent 12,1 :on_click 12,Sel_Onglet
sub_menu 13:caption 13,"F":parent 13,1 :on_click 13,Sel_Onglet
sub_menu 14:caption 14,"G":parent 14,1 :on_click 14,Sel_Onglet
sub_menu 15:caption 15,"H":parent 15,1 :on_click 15,Sel_Onglet
sub_menu 16:caption 16,"I":parent 16,1 :on_click 16,Sel_Onglet
sub_menu 17:caption 17,"J":parent 17,1 :on_click 17,Sel_Onglet
sub_menu 18:caption 18,"K":parent 18,1 :on_click 18,Sel_Onglet
sub_menu 19:caption 19,"L":parent 19,1 :on_click 19,Sel_Onglet
sub_menu 20:caption 20,"M":parent 20,1 :on_click 20,Sel_Onglet
sub_menu 21:caption 21,"N":parent 21,1 :on_click 21,Sel_Onglet
sub_menu 22:caption 22,"O":parent 22,1 :on_click 22,Sel_Onglet
sub_menu 23:caption 23,"P":parent 23,1 :on_click 23,Sel_Onglet
sub_menu 24:caption 24,"Q":parent 24,1 :on_click 24,Sel_Onglet
sub_menu 25:caption 25,"R":parent 25,1 :on_click 25,Sel_Onglet
sub_menu 26:caption 26,"S":parent 26,1 :on_click 26,Sel_Onglet
sub_menu 27:caption 27,"T":parent 27,1 :on_click 27,Sel_Onglet
sub_menu 28:caption 28,"U":parent 28,1 :on_click 28,Sel_Onglet
sub_menu 29:caption 29,"V":parent 29,1 :on_click 29,Sel_Onglet
sub_menu 30:caption 30,"W":parent 30,1 :on_click 30,Sel_Onglet
sub_menu 31:caption 31,"X":parent 31,1 :on_click 31,Sel_Onglet
sub_menu 32:caption 32,"Y":parent 32,1 :on_click 32,Sel_Onglet
sub_menu 33:caption 33,"Z":parent 33,1 :on_click 33,Sel_Onglet
sub_menu 34:caption 34,"A-Z":parent 34,1:on_click 34,Sel_Onglet2
sub_menu 44:caption 44,"Rechercher":parent 44,1
sub_menu 45:caption 45,"Par Nom":parent 45,44:on_click 45,cherche_Nom
sub_menu 46:caption 46,"Par N° de Tel":parent 46,44:on_click 46,cherche_Tel
sub_menu 3 :caption 3,"Ajouter":parent 3,1:on_click 3,Ajouter
sub_menu 4 :caption 4,"Quitter":parent 4,1:on_click 4,Quitter
dlist 35
list 36:top 36,10:left 36,10:height 36,260:width 36,140:font_name 36,"arial":color 36,95,250,110

alpha 37:top 37,10:left 37,400:font_name 37,"HorshamShadow":font_size 37,30:font_color 37,255,255,0
alpha 38:top 38,90:left 38,160:font_name 38,"Times new roman":font_color 38,255,255,0:font_size 38,12
alpha 39:top 39,130:left 39,190:font_name 39,"arial":font_color 39,255,255,0
alpha 40:top 40,150:left 40,190:font_name 40,"arial":font_color 40,255,255,0
alpha 41:top 41,210:left 41,300:font_name 41,"arial":font_color 41,255,255,0
alpha 42:top 42,230:left 42,300:font_name 42,"arial":font_color 42,255,255,0:cursor_point 42:hint 42,"Ouvre la boite à mail"
picture 43:height 43,130:width 43,110:top 43,70:left 43,350:color 43,0,140,0:stretch_on 43

gosub depart
on_click 3,Ajouter
on_click 4,Quitter
on_click 11,Sel_Onglet
on_click 36,fich
on_click 42,mailto

end

depart:
if file_exists("A-Z.txt")=0
file_open_write 1,"A-Z.txt"
file_close 1
end_if
return

Sel_Onglet:
clear 35
clear 36
caption 38,"":caption 39,"":caption 40,"":caption 41,"":caption 42,""
file_load 43,"ph_base.jpg"
for n=8 to 33
if clicked(n)=1 then m=n
next n
select m
case 8: id$="A"
case 9: id$="B"
case 10: id$="C"
case 11: id$="D"
case 12: id$="E"
case 13: id$="F"
case 14: id$="G"
case 15: id$="H"
case 16: id$="I"
case 17: id$="J"
case 18: id$="K"
case 19: id$="L"
case 20: id$="M"
case 21: id$="N"
case 22: id$="O"
case 23: id$="P"
case 24: id$="Q"
case 25: id$="R"
case 26: id$="S"
case 27: id$="T"
case 28: id$="U"
case 29: id$="V"
case 30: id$="W"
case 31: id$="X"
case 32: id$="Y"
case 33: id$="Z"
end_select
file_load 35,"A-Z.txt"
if count(35)>0
for L=1 to count(35)
L$=item_read$(35,L)
sep2=instr(L$,"|")
Lettre$=left$(L$,sep2-1)
L$=mid$(L$,sep2+1,len(L$)-sep2)
sep2=instr(L$,"|")
Civ$=left$(L$,sep2-1)
L$=mid$(L$,sep2+1,len(L$)-sep2)
sep2=instr(L$,"|")
Nom$=left$(L$,sep2-1)
L$=mid$(L$,sep2+1,len(L$)-sep2)
sep2=instr(L$,"|")
PNom$=left$(L$,sep2-1)
if id$=Lettre$
item_add 36,str$(L)+" | "+Nom$+" - "+PNom$
end_if
next L
end_if
caption 37,id$+" "
return

Sel_Onglet2:
clear 35
clear 36
caption 38,"":caption 39,"":caption 40,"":caption 41,"":caption 42,""
file_load 43,"ph_base.jpg"
file_load 35,"A-Z.txt"
if count(35)>0
for L=1 to count(35)
L$=item_read$(35,L)
sep2=instr(L$,"|")
Lettre$=left$(L$,sep2-1)
L$=mid$(L$,sep2+1,len(L$)-sep2)
sep2=instr(L$,"|")
Civ$=left$(L$,sep2-1)
L$=mid$(L$,sep2+1,len(L$)-sep2)
sep2=instr(L$,"|")
Nom$=left$(L$,sep2-1)
L$=mid$(L$,sep2+1,len(L$)-sep2)
sep2=instr(L$,"|")
PNom$=left$(L$,sep2-1)
item_add 36,str$(L)+" | "+Nom$+" - "+PNom$
next L
end_if
caption 37,"A-Z "
return

fich:
Ligne$=item_index$(36)
sep=instr(Ligne$,"|")
Num$=left$(Ligne$,sep-1)
Ligne2$=item_read$(35,val(Num$))
sep=instr(Ligne2$,"|")
A$=left$(Ligne2$,sep-1)
Ligne2$=mid$(Ligne2$,sep+1,len(Ligne2$)-sep)
sep=instr(Ligne2$,"|")
Civ$=left$(Ligne2$,sep-1)
Ligne2$=mid$(Ligne2$,sep+1,len(Ligne2$)-sep)
sep=instr(Ligne2$,"|")
Nom$=left$(Ligne2$,sep-1)
Ligne2$=mid$(Ligne2$,sep+1,len(Ligne2$)-sep)
sep=instr(Ligne2$,"|")
PNom$=left$(Ligne2$,sep-1)
Ligne2$=mid$(Ligne2$,sep+1,len(Ligne2$)-sep)
sep=instr(Ligne2$,"|")
Adresse$=left$(Ligne2$,sep-1)
Ligne2$=mid$(Ligne2$,sep+1,len(Ligne2$)-sep)
sep=instr(Ligne2$,"|")
CP$=left$(Ligne2$,sep-1)
Ligne2$=mid$(Ligne2$,sep+1,len(Ligne2$)-sep)
sep=instr(Ligne2$,"|")
Ville$=left$(Ligne2$,sep-1)
Ligne2$=mid$(Ligne2$,sep+1,len(Ligne2$)-sep)
sep=instr(Ligne2$,"|")
Tel$=left$(Ligne2$,sep-1)
Ligne2$=mid$(Ligne2$,sep+1,len(Ligne2$)-sep)
sep=instr(Ligne2$,"|")
A_Mail$=left$(Ligne2$,sep-1)
Ligne2$=mid$(Ligne2$,sep+1,len(Ligne2$)-sep)
sep=instr(Ligne2$,"|")
Photo$=left$(Ligne2$,sep-1)
caption 38,Civ$+" "+Nom$+" "+PNom$
caption 39,Adresse$
caption 40,CP$+" "+Ville$
caption 41,"Tel : "+Tel$
caption 42,"Mail : "+A_mail$
if Photo$<>""
file_load 43,Photo$
else
file_load 43,"ph_base.jpg"
end_if
return

cherche_Nom:
clear 35
clear 36
caption 38,"":caption 39,"":caption 40,"":caption 41,"":caption 42,""
file_load 43,"ph_base.jpg"
file_load 35,"A-Z.txt"
if message_input("Recherche par Nom","Nom :","")=1
for L=1 to count(35)
L$=item_read$(35,L)
sep2=instr(L$,"|")
Lettre$=left$(L$,sep2-1)
L$=mid$(L$,sep2+1,len(L$)-sep2)
sep2=instr(L$,"|")
Civ$=left$(L$,sep2-1)
L$=mid$(L$,sep2+1,len(L$)-sep2)
sep2=instr(L$,"|")
Nom$=left$(L$,sep2-1)
L$=mid$(L$,sep2+1,len(L$)-sep2)
sep2=instr(L$,"|")
PNom$=left$(L$,sep2-1)
if message_text$=Nom$
item_add 36,str$(L)+" | "+Nom$+" - "+PNom$
end_if
next L
end_if
caption 37,left$(message_text$,1)
return

cherche_Tel:
clear 35
clear 36
caption 38,"":caption 39,"":caption 40,"":caption 41,"":caption 42,""
file_load 43,"ph_base.jpg"
file_load 35,"A-Z.txt"
if message_input("Recherche par Nom","Nom :","## . ## . ## . ## . ##")=1
for L=1 to count(35)
L$=item_read$(35,L)
sep2=instr(L$,"|")
Lettre$=left$(L$,sep2-1)
L$=mid$(L$,sep2+1,len(L$)-sep2)
sep2=instr(L$,"|")
Civ$=left$(L$,sep2-1)
L$=mid$(L$,sep2+1,len(L$)-sep2)
sep2=instr(L$,"|")
Nom$=left$(L$,sep2-1)
L$=mid$(L$,sep2+1,len(L$)-sep2)
sep2=instr(L$,"|")
PNom$=left$(L$,sep2-1)
L$=mid$(L$,sep2+1,len(L$)-sep2)
sep2=instr(L$,"|")
L$=mid$(L$,sep2+1,len(L$)-sep2)
sep2=instr(L$,"|")
L$=mid$(L$,sep2+1,len(L$)-sep2)
sep2=instr(L$,"|")
L$=mid$(L$,sep2+1,len(L$)-sep2)
sep2=instr(L$,"|")
Tel$=left$(L$,sep2-1)
if message_text$=Tel$
message "Ce numéro correspond à : "+chr$(13)+Civ$+" "+Nom$+" "+PNom$
exit_for
end_if
next L
end_if
caption 37,""
return

Ajouter:
execute_wait "Aj_Adresse.exe"
return

mailto:
execute "mailto:"+A_mail$+"?subject=le_sujet&body=le_contenu"
return

Quitter:
terminate

Une précision, il faut transformer en exe pour que cela fonctionne avec l'autre code.

c'est Bien fait, 2 nouvelle fonctions du programme très utiles

Bravo, A+

» Un carnet d'adresses
» Carnet d'adresse (en chantier)
» mon premier source un carnet adresse