Addon que nest pas tres long et tres simple :D
Source / Exemple :
alias adresse {
dialog -m adresse adresse
}
dialog adresse {
title "Addict - Carnet d'adresse"
size -1 -1 395 390
button "Fermer" ,1, 10 360 150 20,ok
box "Renseignements" 11,165 5 220 375
list 2,10 10 150 340.
Text "Pseudo:",13,180 27 40 20
edit %pseudo ,3,225 25 150 20
Text "Nom:",15,180 57 40 20
edit %Nom ,4,225 55 150 20
Text "Prénom:" ,16,180 87 40 20
edit %prénom ,5,225 85 150 20
text "ASV :",22, 180 303 40 20
edit %asv, 6, 225 300 150 20
text "Ville:" 17,180 117 40 20
edit %ville ,7,225 115 150 20
text "Adresse Postale:" 18, 180 145 140 20
edit %Adresse ,8,180 160 195 40 , hsbar
edit %phone ,9,240 210 135 20
text "Téléphone:" ,19, 180 212 55 20
text "e-mail:",20,180 243 40 20
edit %mail ,12,225 240 150 20
text "ICQ:",21, 180 273 40 20
edit %icq ,14, 225 270 150 20
text "URL:" 23,180 333 40 20
edit %url ,24,225 330 150 20
button "&Ajouter" 10,190 355 85 20
button "&Voir" 25,10 335 150 20
button "&Supprimer" 26,290 355 85 20
}
on *:dialog:adresse:sclick:10: {
writeini -n adresses.ini $did(3) pseudo $did(3)
writeini -n adresses.ini $did(3) nom $did(4)
writeini -n adresses.ini $did(3) prénom $did(5)
writeini -n adresses.ini $did(3) asv $did(6)
writeini -n adresses.ini $did(3) Ville $did(7)
writeini -n adresses.ini $did(3) adresse $did(8)
writeini -n adresses.ini $did(3) phone $did(9)
writeini -n adresses.ini $did(3) mail $did(12)
writeini -n adresses.ini $did(3) icq $did(14)
writeini -n adresses.ini $did(3) url $did(24)
write -a adresses.txt $did(3)
dialog -x adresse
dialog -m adresse adresse
}
on 1:dialog:adresse:sclick:25: {
set %pseudo $readini adresses.ini $did(2).seltext pseudo
set %nom $readini adresses.ini $did(2).seltext nom
set %prénom $readini adresses.ini $did(2).seltext prénom
set %ville $readini adresses.ini $did(2).seltext ville
set %adresse $readini adresses.ini $did(2).seltext adresse
set %phone $readini adresses.ini $did(2).seltext phone
set %mail $readini adresses.ini $did(2).seltext mail
set %icq $readini adresses.ini $did(2).seltext icq
set %url $readini adresses.ini $did(2).seltext url
set %asv $readini adresses.ini $did(2).seltext asv
dialog -x adresse
dialog -m adresse adresse
}
on *:dialog:adresse:init:0: {
set %nbre 1
:loop
did -a adresse 2 $read -l $+ %nbre adresses.txt
inc %nbre 1
if ( %nbre == 100 ) { goto stop }
goto loop
:stop
}
on *:dialog:adresse:sclick:26: {
set %r $did(2).seltext
write -ds $+ %r adresses.txt
dialog -x adresse
dialog -m adresse adresse
}
menu menubar,channel {
-
>> carnet d'adresse :/dialog -m adresse adresse
}
22 sept. 2008 à 15:38
et t'aurais pu mettre une case que t'aurais appellé "professionnel" et dans cette case on marque ce qu'il fait dans la vie professionnellement. enfin bref sa manque d'amélioration tout sa et t'aurais pu faire un truc qui permet d'enregistrer les coordonné du répertoire sur le pc si par exemple, on veut conserver ses informations. j'espère que la version 2.0 sortiras la prochaine fois, allez bon codage et bonne continuation, je te met 6/10 ;)
24 nov. 2005 à 00:38
DJDGE27 faut que tu ajoute le fichier adresses.txt manuellement avant de vouloir ajouter un contact et pour le supprimer tu clique sur un pseudo à gauche au préalable ;)
31 juil. 2003 à 19:47
9 avril 2003 à 11:45
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.