Re: chaine vers Hexa comme dans le débugeur | Sujet: Re: chaine vers Hexa comme dans le débugeur par Vince sur 28/7/2008 15:06:41
Bonjour,
Voir code que donne la soucoupe de windev:
//-- début code généré par l'assistant --
// Conversion du décimal 1203 en hexadécimal
Info("1203 = "+EntierVersHexa(1203))
//--fin code généré par l'assistant --
FONCTION EntierVersHexa(Num)
ValD est un entier
ValH est une chaîne
Reste est un entier
ValD=Num
Boucle
// On récupère le reste de la division par 16
Reste=Modulo(ValD,16)
// On le convertit en chiffre hexadécimal
// et on le place au début du résultat
Selon Reste
CAS 10: ValH="A"+ValH
CAS 11: ValH="B"+ValH
CAS 12: ValH="C"+ValH
CAS 13: ValH="D"+ValH
CAS 14: ValH="E"+ValH
CAS 15: ValH="F"+ValH
Autres cas: ValH=Reste+ValH
fin
// On récupère la partie entière de la division par 16
ValD=ValD/16
// On arrête quand on arrive à 0
si ValD=0 alors sortir
fin
// Renvoie le résultat
RENVOYER ValH
Bonne journée
Vince http://vroy1.free.fr/wpfr/
|
|
Connexion
Menu
Chercher WDForge
Chercher Web
Partenaires
|