FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC

Développement d'applications avec le langage Panoramic
 
AccueilAccueil  FAQFAQ  RechercherRechercher  S'enregistrerS'enregistrer  MembresMembres  GroupesGroupes  Connexion  
Derniers sujets
» KGF_dll - nouvelles versions
par Klaus Aujourd'hui à 23:33

» KGF.dll - demandes ou suggestions de modifications ou ajouts
par Pedro Alvarez Aujourd'hui à 22:45

» StratégoV8
par Jean Claude Aujourd'hui à 19:55

» probleme de touche (verr num)
par pascal10000 Aujourd'hui à 16:20

» Mah-Jong européen new-look
par jjn4 Aujourd'hui à 15:58

» track_bar circulaire
par Klaus Hier à 21:41

» Gestionnaire de Projets Panoramic
par Jean Claude Hier à 20:41

» Gestion de l'Unicode
par jean_debord Hier à 11:21

» Button_picture
par pascal10000 Jeu 14 Déc 2017 - 11:41

» Pourquoi le compilateur stagne
par Minibug Jeu 14 Déc 2017 - 11:09

» 4 (en analyse): SYNEDIT_TARGET_IS_OBJECT devient inactif
par Jack Jeu 14 Déc 2017 - 10:09

» 3 (en analyse): Mauvaise interprétation du string "THEN"
par Jack Jeu 14 Déc 2017 - 10:03

» API Windows
par Klaus Mar 12 Déc 2017 - 3:21

» Cartes de voeux, menus, etc.
par JL35 Lun 11 Déc 2017 - 17:48

» a l'aide klaus
par Minibug Lun 11 Déc 2017 - 11:42

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Décembre 2017
LunMarMerJeuVenSamDim
    123
45678910
11121314151617
18192021222324
25262728293031
CalendrierCalendrier

Partagez | 
 

 Mon carnet d'adresse

Voir le sujet précédent Voir le sujet suivant Aller en bas 
AuteurMessage
Yannick

avatar

Nombre de messages : 8002
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: Mon carnet d'adresse   Sam 3 Avr 2010 - 21:38

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
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
jjn4

avatar

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

MessageSujet: +++   Sam 3 Avr 2010 - 23:28

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
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://jjn4.e-monsite.com
Yannick

avatar

Nombre de messages : 8002
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: Re: Mon carnet d'adresse   Sam 3 Avr 2010 - 23:38

vu l'intérêt porté à mes autres publications ,je pensais que leur place étaient plutot dans cette rubrique.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Invité
Invité



MessageSujet: Re: Mon carnet d'adresse   Dim 4 Avr 2010 - 2:09

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.
@+
Revenir en haut Aller en bas
jjn4

avatar

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

MessageSujet: +++   Dim 4 Avr 2010 - 2:14

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 Laughing
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://jjn4.e-monsite.com
Invité
Invité



MessageSujet: Re: Mon carnet d'adresse   Dim 4 Avr 2010 - 2:20

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:
http://panoramic.free-boards.net/les-inutilitaires-f9/

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

Bonne nuit
Revenir en haut Aller en bas
Yannick

avatar

Nombre de messages : 8002
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: Re: Mon carnet d'adresse   Dim 4 Avr 2010 - 2:21

je vais mettre un frein moi aussi un gros rhume me plombe le cerveau.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Yannick

avatar

Nombre de messages : 8002
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: Re: Mon carnet d'adresse   Dim 4 Avr 2010 - 2:26

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
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jean Claude

avatar

Nombre de messages : 5089
Age : 63
Localisation : 83 Var
Date d'inscription : 07/05/2009

MessageSujet: Re: Mon carnet d'adresse   Dim 4 Avr 2010 - 11:05

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
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Yannick

avatar

Nombre de messages : 8002
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: Re: Mon carnet d'adresse   Dim 4 Avr 2010 - 11:24

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 confused


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.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jean Claude

avatar

Nombre de messages : 5089
Age : 63
Localisation : 83 Var
Date d'inscription : 07/05/2009

MessageSujet: Re: Mon carnet d'adresse   Dim 4 Avr 2010 - 12:31

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+
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Yannick

avatar

Nombre de messages : 8002
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: Re: Mon carnet d'adresse   Dim 4 Avr 2010 - 12:45

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
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Yannick

avatar

Nombre de messages : 8002
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: Re: Mon carnet d'adresse   Mar 6 Avr 2010 - 19:03

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
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jean Claude

avatar

Nombre de messages : 5089
Age : 63
Localisation : 83 Var
Date d'inscription : 07/05/2009

MessageSujet: Re: Mon carnet d'adresse   Mar 6 Avr 2010 - 22:29

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+
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Contenu sponsorisé




MessageSujet: Re: Mon carnet d'adresse   

Revenir en haut Aller en bas
 
Mon carnet d'adresse
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» [Résolu] OE6 : problème carnet d'adresse + OE qui ne s'ouvre plus
» Carnet d'adresse (en chantier)
» Carnet d'adresses
» [Résolu] Transfert carnet d'adresses (OL vers Windows Live Mail)
» [Résolu] Perdu liste contact Windows Live Mail (carnet d'adresse)

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: PANORAMIC :: Les inutilitaires-
Sauter vers: