PC SOFT

FORUMS PROFESSIONNELS
WINDEVWEBDEV et WINDEV Mobile

Accueil → WINDEV (précédentes versions) → Décimal -> Hexadécimal
Décimal -> Hexadécimal
Débuté par Nounours, 08 jan. 2004 15:29 - 4 réponses
Posté le 08 janvier 2004 - 15:29
Salut à tous,

J'ai réussi à récupérer le numéro de série de mes disque durs mais je l'obtient
sous la forme 1123456789 et moi je le voudrait sous la forme hexadécimal
34D5E7F2 par exemple... Y'a-t'il une fonction qui permette de convertir un
entier en hexadécimal ???

Merci par avance...
Posté le 08 janvier 2004 - 16:21
NumériqueVersChaine()
--
Salutations, Christophe DEPRET <nospam_christophe.depret@capri-codec.com>

"Nounours" <Sebastien.rosete@orange.Fr> a écrit dans le message de
news:3ffd5b32@news....


Salut à tous,

J'ai réussi à récupérer le numéro de série de mes disque durs mais je

l'obtient
sous la forme 1123456789 et moi je le voudrait sous la forme hexadécimal
34D5E7F2 par exemple... Y'a-t'il une fonction qui permette de convertir un
entier en hexadécimal ???

Merci par avance...
Posté le 08 janvier 2004 - 16:21
Salut !


On 8-Jan-2004, "Nounours" <Sebastien.rosete@orange.Fr> wrote:

Salut à tous,

J'ai réussi à récupérer le numéro de série de mes disque durs mais je
l'obtient
sous la forme 1123456789 et moi je le voudrait sous la forme hexadécimal
34D5E7F2 par exemple... Y'a-t'il une fonction qui permette de convertir un
entier en hexadécimal ???

Merci par avance...




Regardes la fonction NumériqueVersChaine()
Bien à toi !


--
Marcel Berman
c/o Managing Business SPRL
Allée du Petit Paris, 11
B - 1410 - Waterloo
Tel : +32 2 351.60.64
Fax : +32 2 351.45.78
Gsm : +32 475.799.477
Posté le 08 janvier 2004 - 17:27
Si tu souhaite coder :

FONCTION pEntierVersHexa(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
Posté le 09 janvier 2004 - 10:38
"Nounours" <Sebastien.rosete@orange.Fr> wrote:


Salut à tous,

J'ai réussi à récupérer le numéro de série de mes disque durs mais je l'obtient
sous la forme 1123456789 et moi je le voudrait sous la forme hexadécimal
34D5E7F2 par exemple... Y'a-t'il une fonction qui permette de convertir

un
entier en hexadécimal ???

Merci par avance...

NoSerie est un entier=fDisqueInfo("C:",fdNumeroDeSerie)
NoHexa est une chaine=NumeriqueVersChaine(NoSerie,"X")

Bon Windev!