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
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.