Convertisseur de code asc en code chr et vice versa

Soyez le premier à donner votre avis sur cette source.

Snippet vu 9 008 fois - Téléchargée 25 fois

Contenu du snippet

ben ça convertit les code asc en code chr ou les code che en asc

par exemple

64 = $asc(@)
@ = $chr(64)

Source / Exemple :


#convertisseur asc chr

alias convert { dialog -dm ascii.chr ascii.chr }
dialog ascii.chr {
  title convertisseur ascii\chr
  size -1 -1 200 110
  box "$chr" ,5, 5 10 180 40
  edit "" ,1, 10 25 80 20
  edit "" ,2, 95 25 80 20 ,read center
  box "$asc" ,6,5 55 180 40
  edit "" ,3, 10 70 80 20
  edit "" ,4, 95 70 80 20 ,read center
  button "ok",7,1000 1000 1 1 ,ok
}

on *:dialog:ascii.chr:edit:1: {
  did -ra ascii.chr 2 $chr($did(1))
}

on *:dialog:ascii.chr:edit:3: {
  did -ra ascii.chr 4 $asc($did(3))
}

Conclusion :


voila :)
pratique quand on utilise beaucoup les tokken

A voir également

Ajouter un commentaire Commentaire
Messages postés
58
Date d'inscription
mardi 2 novembre 2004
Statut
Membre
Dernière intervention
20 septembre 2005

Assez simple, pouvant être parfois utile
Petite amélioration :

on *:dialog:ascii.chr:edit:*: {
if ($did == 1) did -ra ascii.chr 2 $chr($did(1))
if ($did == 3) did -ra ascii.chr 4 $asc($did(3))
}
Plus simple et plus clair, prends l'habitude de regrouper, car, a force tu vas completement te perdre dans tes programmes (si ce n'est pas déjà le cas a la vue de tous x) ), car c'est un peu ce qui m'arrive dans d'autre langages
voilà ++

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.