|
PROFESSIONAL NEWSGROUPS
WINDEV, WEBDEV and WINDEV Mobile |
| | | | | |
| Started by Sebastien.rosete, Jan., 08 2004 3:29 PM - 4 replies |
| |
| | | |
|
| |
| Posted on January, 08 2004 - 3:29 PM |
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... |
| |
| |
| | | |
|
| | |
| |
| Posted on January, 08 2004 - 4:21 PM |
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...
|
| |
| |
| | | |
|
| | |
| |
| Posted on January, 08 2004 - 4:21 PM |
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 |
| |
| |
| | | |
|
| | |
| |
| Posted on January, 08 2004 - 5:27 PM |
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 |
| |
| |
| | | |
|
| | |
| |
| Posted on January, 09 2004 - 10:38 AM |
"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! |
| |
| |
| | | |
|
| | | | |
| | |
| | |
| |
|
|
|