|
Trouver une ressource
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !
GESTIONNAIRE DE CONTACT
Information sur la source
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
- 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
- }
- }
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
Fichier Zip
Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !
Télécharger le zip
Sources du même auteur
Sources de la même categorie
Commentaires et avis
|
Comparez les prix Nouvelle version
|