Message de rapport:
 

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
Visualiser tous les Partenaires...
WinDev, WebDev, WinDev Mobile et HyperFile sont des marques déposées par PCSoft. |  Voter |  Legal |  Contact |   XOOPS 2.0.13.2