Repertoire adresse

4/5 (4 avis)

Snippet vu 2 948 fois - Téléchargée 26 fois

Contenu du snippet

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 
}

A voir également

Ajouter un commentaire Commentaires
griffondorr Messages postés 427 Date d'inscription dimanche 6 juillet 2008 Statut Membre Dernière intervention 4 mai 2009
22 sept. 2008 à 15:38
on peut pas mettre ni l'âge t'aurais pu mettre une case "date de naissance" ou "age" pour qu'on puisse se souvenir de l'age de la personne, l'adresse postale t'aurais pu faire une case plus grande pour qu'on mette plus de chose dans la case pour par exemple si on veut mettre une adresse complète. t'aurais pu faire un truc aussi pour par exemple, si il manque des renseignement dans le formulaire qu'on puisse le remplire plus tard.
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 ;)
No_ImPoRtAnZ Messages postés 24 Date d'inscription samedi 30 avril 2005 Statut Membre Dernière intervention 25 juin 2007
24 nov. 2005 à 00:38
il manques quelques petits details du style préciser qu'il faut remplir tout les champs avant de vouloir ajouter un contact, mais cependant ton code est pas mal je te mets 6/10

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 ;)
djdge27 Messages postés 24 Date d'inscription lundi 28 juillet 2003 Statut Membre Dernière intervention 23 octobre 2003
31 juil. 2003 à 19:47
marche pas ton truc!! enfin dumoins pour supprimer un contact ca marche pas c'est normal?
NitriX Messages postés 21 Date d'inscription mercredi 12 mars 2003 Statut Membre Dernière intervention 9 avril 2003
9 avril 2003 à 11:45
C'est de la balle ton truc!!! merci

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.