Gestionnaire de contact

Soyez le premier à donner votre avis sur cette source.

Vue 3 602 fois - Téléchargée 149 fois

Description

C'est un gestionaire de contact, Crée un dossier ami et placer y un fichier ami.txt et ami.ini ( telecharger le zip tout y est )

Source / Exemple :


dialog aa {
  title "Ajouter/Editer/Voir contact"
  size -1 -1 161 93
  option dbu
  box "Info", 1, 2 3 157 75
  text "Prénom", 2, 86 12 20 8
  edit "", 3, 106 11 50 10, autohs
  text "Nom", 4, 5 23 19 8
  edit "", 5, 30 22 126 10
  text "Age", 6, 100 34 25 8
  edit "", 7, 125 33 31 10
  text "Date de Naissance", 8, 5 34 47 8
  edit "", 9, 52 33 47 10
  text "Adresse", 10, 5 45 25 8
  edit "", 11, 33 44 123 10, autohs
  button "Ajouter", 12, 2 79 89 12
  text "Pseudo", 13, 5 12 25 8
  edit "", 14, 30 11 51 10
  text "Note perso", 15, 5 56 28 8
  edit "", 16, 33 55 123 10
  button "Editer", 17, 91 79 67 12, disable
  text "Mail", 18, 5 66 25 8
  edit "", 19, 33 65 123 10
}
dialog ga {
  title "Contact"
  size -1 -1 64 146
  option dbu
  box "Amis", 8, 1 3 62 87
  list 4, 3 11 57 75, size
  button "Ajouter", 1, 1 91 31 12
  button "Suprimer", 5, 32 91 31 12
  box "Envoyer un(e)", 2, 1 116 62 27
  button "msg", 3, 4 125 28 12
  button "notice", 6, 32 125 29 12
  button "Whoiser", 7, 1 103 62 12
}
menu * {
  -
  Gestoinaire de Contact:/ga 
}
alias ga dialog -m ga ga
alias jlm { 
  var %a 1
  while ($read(ami/ami.txt,%a)) {
    did -a ga 4 $read(ami/ami.txt,%a)
    inc %a
  }
}
alias vw {
  dialog -m aa aa 
  did -a aa 14 $readini(ami/ami.ini,%kml,Pseudo)
  did -a aa 3 $readini(ami/ami.ini,%kml,Prenom)
  did -a aa 5 $readini(ami/ami.ini,%kml,Nom)
  did -a aa 7 $readini(ami/ami.ini,%kml,Age)
  did -a aa 9 $readini(ami/ami.ini,%kml,date)
  did -a aa 11 $readini(ami/ami.ini,%kml,Adresse)
  did -a aa 16 $readini(ami/ami.ini,%kml,note)
  did -a aa 19 $readini(ami/ami.ini,%kml,mail)
  did -b aa 14,3,5,7,9,11,16,12,19
  did -e aa 17
}
on *:dialog:ga:*:*:{
  if $devent == init {
    jlm
  }
  if $devent == dclick { if $did == 4 { set %kml $did(4).seltext | vw | set %klm $did(4).sel } } 
  if $devent == sclick {
    if $did == 7 { dialog -m wh wh }
    if $did == 3 { msg %kml $?="quel message ?" }
    if $did == 6 { notice %kml $?="Quel message ?" }
    if $did == 1 { dialog -m aa aa }
    if $did == 4 { set %kml $did(4).seltext | set %klm $did(4).sel }
    if $did == 5 { did -d ga 4 %klm | write -d ami/ami.txt %klm | remini ami/ami.ini %kml | did -a }
  }
}
on *:dialog:aa:*:*:{
  if $devent == sclick { 
    if $did == 12 {
      if $did(12) == modifier {
        writeini -n ami/ami.ini $remove($did(14),$chr(32)) Pseudo $did(14)
        if $did(3) != $null  { writeini -n ami/ami.ini $remove($did(14),$chr(32)) Prenom $did(3) }
        if $did(5) != $null  {  writeini -n ami/ami.ini $remove($did(14),$chr(32)) Nom $did(5) }
        if $did(7) != $null  {  writeini -n ami/ami.ini $remove($did(14),$chr(32)) Age $did(7) }
        if $did(9) != $null  { writeini -n ami/ami.ini $remove($did(14),$chr(32)) Date $did(9) }
        if $did(11) != $null  {  writeini -n ami/ami.ini $remove($did(14),$chr(32)) Adresse $did(11) }
        if $did(16) != $null  { writeini -n ami/ami.ini $remove($did(14),$chr(32)) Note $did(16) }
        if $did(19) != $null  { writeini -n ami/ami.ini $remove($did(14),$chr(32)) Mail $did(19) }
        if $did(14) != %kml { remini ami/ami.ini %kml | write -d ami/ami.txt %klm | write ami/ami.txt $remove($did(14),$chr(32)) | did -d ga 4 %klm | did -a ga 4 $remove($did(14),$chr(32)) }
        dialog -x aa aa
      }
      else { 
        writeini -n ami/ami.ini $remove($did(14),$chr(32)) Pseudo $did(14)
        if $did(3) != $null  { writeini -n ami/ami.ini $remove($did(14),$chr(32)) Prenom $did(3) }
        if $did(5) != $null  {  writeini -n ami/ami.ini $remove($did(14),$chr(32)) Nom $did(5) }
        if $did(7) != $null  {  writeini -n ami/ami.ini $remove($did(14),$chr(32)) Age $did(7) }
        if $did(9) != $null  { writeini -n ami/ami.ini $remove($did(14),$chr(32)) Date $did(9) }
        if $did(11) != $null  {  writeini -n ami/ami.ini $remove($did(14),$chr(32)) Adresse $did(11) }
        if $did(16) != $null  { writeini -n ami/ami.ini $remove($did(14),$chr(32)) Note $did(16) }
        if $did(19) != $null  { writeini -n ami/ami.ini $remove($did(14),$chr(32)) Mail $did(19) }
        did -a ga 4 $remove($did(14),$chr(32))
        write ami/ami.txt $remove($did(14),$chr(32))
        dialog -x aa aa
      }
    }
    if $did == 17 {
      did -b aa 17
      did -ra aa 12 Modifier
      did -e aa 14,3,5,7,9,11,16,12,19
    }
  }
}
dialog wh {
  title "Whois"
  size -1 -1 83 106
  option dbu
  text "Nick", 1, 4 7 25 8
  edit "", 2, 29 5 50 10, read autohs
  text "Host", 3, 4 17 25 8
  edit "", 4, 29 15 50 10, read autohs
  box "Salon ou il est:", 5, 2 29 78 74
  text "Owner", 6, 5 39 18 8
  edit "", 7, 24 38 50 10, read autohs
  text "Sop", 8, 5 49 18 8
  edit "", 9, 24 48 50 10, read autohs
  text "Op", 10, 5 58 16 8
  edit "", 11, 24 58 50 10, read autohs
  text "Halfop", 12, 5 69 17 8
  edit "", 13, 24 68 50 10, read autohs
  text "Voice", 14, 5 79 19 8
  edit "", 15, 24 78 50 10, read autohs
  text "Autre", 16, 5 89 17 8
  edit "", 17, 24 88 50 10, read autohs 
}
on *:dialog:wh:init:*:{ whois %kml }
Raw 311:*:{ 
  if $dialog(wh) != $null {
    did -ra wh 2 $2 
    did -ra wh 4 $3 $+ @ $+ $4 
    haltdef
  }
}
raw 319:*:{
  if $dialog(wh) != $null {
    var %a $0,%b 3,%c,%d,%ow,%cs,%o,%h,%v,%r
    while %b <= %a {
      %c = $gettok($ [ $+ [ %b ] ],1,35)
      %d = $remove($ [ $+ [ %b ] ],%c)
      if $len(%d) == 1 { %d = $+(%d,%c) | %c = }
      if * isin %c || ~ isin %c { %ow = $whs(%ow,%d) }
      elseif ^ isin %c || & isin %c || ! isin %c { %cs = $whs(%cs,%d) }
      elseif @ isin %c { %o = $whs(%o,%d) }
      elseif % isin %c { %h = $whs(%h,%d) }
      elseif + isin %c { %v = $whs(%v,%d) }
      else { %r = $whs(%r,%d) } 
      inc %b
    }
    if %ow {     did -ra wh 7 %ow }
    if %cs {     did -ra wh 9 %cs }
    if %o {     did -ra wh 11 %o }
    if %h {     did -ra wh 13 %h }
    if %v {     did -ra wh 15 %v }
    if %r {     did -ra wh17 %r }
    haltdef
  }
}

Conclusion :


Voili Voilou

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
22
Date d'inscription
mardi 23 décembre 2003
Statut
Membre
Dernière intervention
10 mars 2004

:)
Messages postés
2084
Date d'inscription
jeudi 12 décembre 2002
Statut
Modérateur
Dernière intervention
30 janvier 2011
8
L'idée n'est pas trop mal, même si la notify list fait la même chose. (à part pour les infos personnelles)

Et si on veut effectuer une autre action qu'un msg ou une notice sur notre contact ? rajoute un edit, pour pouvoir mettre une action de son choix.
Messages postés
228
Date d'inscription
mercredi 24 septembre 2003
Statut
Membre
Dernière intervention
26 octobre 2004

( double click suir le pseudo, pour le voir et l'editer =) )

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.