Codeur décodeur

Soyez le premier à donner votre avis sur cette source.

Snippet vu 8 925 fois - Téléchargée 19 fois

Contenu du snippet

Encore un Codeur/Décodeur

il est peut être plus.. dévloppé peut être à vous de voir ;)

Source / Exemple :


dialog codeur {
  title "Codeur \ Décodeur"
  size -1 -1 189 143
  option dbu
  tab "Codeur", 1, 5 34 175 99
  text "Texte :", 2, 10 61 25 8, tab 1
  edit "", 3, 34 60 143 10, tab 1 return autohs autovs
  button "Valider", 4, 58 78 37 12, tab 1
  edit "", 5, 12 106 164 10, tab 1 read return autohs autovs
  button "Le Dire", 13, 66 118 37 12, tab 1
  tab "Décodeur", 7
  text "Texte", 8, 8 59 25 8, tab 7
  edit "", 9, 31 57 145 10, tab 7 return autohs autovs
  button "Valider", 10, 69 73 37 12, tab 7
  edit "", 11, 15 105 158 10, tab 7 read return autohs autovs
  button "Le Dire", 12, 67 118 37 12, tab 7
  text "Codeur / Décodeur", 6, 68 13 53 12, nowrap center
}

On *:dialog:codeur:sclick:4: { 
  set %mott $did(3)
  did -ra codeur 5 $encode( %mott ,m)
}
On *:dialog:codeur:sclick:13: { 
  msg $active $encode( %mott ,m)
}
On *:dialog:codeur:sclick:10: { 
  set %mottt $did(9)
  did -ra codeur 11 $decode( %mottt ,m)
}
On *:dialog:codeur:sclick:12: { 
  msg $active $decode( %mottt ,m)
}

Conclusion :


By Dragon`Night

A voir également

Ajouter un commentaire

Commentaires

Messages postés
1
Date d'inscription
mercredi 11 juin 2008
Statut
Membre
Dernière intervention
12 juin 2008

ve le telecharger mer ou
Messages postés
26
Date d'inscription
samedi 23 décembre 2006
Statut
Membre
Dernière intervention
19 mai 2007

Bon ton code n'est pas térible ( méme moi qui suit archis débutant j'arive a l'optimisé un peu ) méme si le code est inutile il ppeut y avoir des choses intéréssente dedans mais la on voit juste que tu sais faire un dialog et le coder basiquement. Regarde pour regrouper
les dialog tu aurai put faire sa:
On *:dialog:codeur:sclick:*: {
if ( $did == 4 ) { set %mott $did(3) | did -ra codeur 5 $encode( %mott ,m) }
if ( $did == 13 ) { msg $active $encode( %mott ,m) }
if ( $did == 10 ) { set %mottt $did(9) | did -ra codeur 11 $decode( %mottt ,m) }
if ( $did == 12 ) { msg $active $decode( %mottt ,m) }
}

Sa marche... et c'est moin long et ton mirc ramera moin. Mais on peut faire mieux par exemple si tu click directement deux fois sur valider le texte pourait automatiquement s'afficher.Trouve un moyen de l'amélioré...

PS: la prochaine foi que tu poste un truck vérifie que tu la fait le mieux possible et demande a un user d'ircfr si ta source peut étre posté ou pas selon sa qualité
Messages postés
16
Date d'inscription
jeudi 14 juillet 2005
Statut
Membre
Dernière intervention
15 janvier 2007

euh ... la source est de moi ;)
Messages postés
243
Date d'inscription
mercredi 22 janvier 2003
Statut
Membre
Dernière intervention
28 décembre 2008

faudrait regrouper tous les On *:dialog
Messages postés
24
Date d'inscription
mercredi 15 juin 2005
Statut
Membre
Dernière intervention
21 avril 2009

Quelle est l'utilité de poster la source d'un autre ?

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.