PC SOFT

FORUMS PROFESSIONNELS
WINDEV, WEBDEV et WINDEV Mobile

|
|
|
FR
Accueil → WINDEV 2024 → Conversion hexa vers décimale
Conversion hexa vers décimale
Débuté par bleroi, 07 fév. 2006 22:05 - 4 réponses
#1
Posté le 07 février 2006 - 22:05
Bonjour
Voila ce que j'aspire à faire :

toto est une chaine = "3c"
monnum est un entier

monnum = ???(toto) // et le résultat doit être 60 (3c en hexa = 60)

Et la je tourne en rond.
Merci de votre aide

--
BLR
#2
Posté le 08 février 2006 - 07:00
blr vient de nous annoncer :
Bonjour
Voila ce que j'aspire à faire :

toto est une chaine = "3c"
monnum est un entier

monnum = ???(toto) // et le résultat doit être 60 (3c en hexa = 60)

Et la je tourne en rond.
Merci de votre aide


bonjour
Val("3c","x")
de rien
#3
Posté le 08 février 2006 - 07:01
Tu tapes hexa dans la soucoupe et voici ce qu'il te génère :

FONCTION HexaVersEntier(ch)

ValD est un entier
ValH est une chaîne
i est un entier

ValD=0
ValH=Majuscule(ch)

// Si la chaîne n'est pas nulle
SI ValH<>"" ALORS
// Pour chaque lettre de la chaîne
POUR i=Taille(ValH) A 1 PAS -1
// On la convertit en sa valeur décimale
// et on l'ajoute au résultat en la multipliant par la puissance de 16 correspondante
SELON ValH[[Taille(ValH)+1-i]]
CAS "A": ValD*Puissance(16,i-1)+ValD
CAS "B": ValD*Puissance(16,i-1)+ValD
CAS "C": ValD*Puissance(16,i-1)+ValD
CAS "D": ValD*Puissance(16,i-1)+ValD
CAS "E": ValD*Puissance(16,i-1)+ValD
CAS "F": ValD*Puissance(16,i-1)+ValD
AUTRES CAS: ValD=Val(ValH[[Taille(ValH)+1-i]])*Puissance(16,i-1)+ValD
FIN
FIN
FIN

// Renvoie le résultat
RENVOYER ValD
#4
Posté le 08 février 2006 - 07:01
voir dans l'aide :Hexadécimal
#5
Posté le 08 février 2006 - 11:30
Vous etes presque synchro les gars :-)
→ Revenir à WINDEV 2024