Conversion Hex/Dec/Bin

Question

Bonjour,
Je débute en VisualBasic et j'aimerais créer un convertisseur Hexa/Binaire/Décimal
La probleme est que je ne sias pas du tout quel est le code de conversion pour passer de l'hexa au decimal ou du décimal au binaire ..

par exmeple pour le france au dollarc c'est :
TxtDollar = Round(Val(TxtFranc) / Val(Combo1.Text), 2)

Mais la je sais pas du tout ??
Quelqu'un pourrait m'aider svp ?

(j'ai regarder quelques sources de créations ddans le meme genre mais j'avoue que cela m'a plus embrouiller qu'aider :p)

Merci d'avance.

cs_Siller · Answer

Bon j'ai un petit peu progresser depuis ce matin, mais il me reste quelques conversions que je n'arrive pas a faire :

Binaire => Hexa
Binaire => Decimal
Decimal => Hexa
Hexa => Binaire

Merci d'avance pour celui/celle qui m'aidera ;)

cs_rene38 · Answer

> Decimal => Hexa : Immédiat : Hexa = Hex(Decimal)

> Binaire => Decimal

Binaire = "100110..."
Longueur = Len(Binaire) 
For i = Longueur To 1 Step -1
   Decimal = Decimal + Val(Mid(Binaire, i, 1)) * 2 ^ (Longueur - i)
Next i

> (Binaire => Hexa) = (Binaire => Decimal => Hexa)

> (Hexa => Binaire) = (Hexa => Decimal => Binaire)

cs_Siller · Answer

Merci beaucoup pour ton aide :)
JE vias bientôt pouvoir finir ce 'foutu' convertisseur !

Conversion Hex/Dec/Bin

3 réponses

Discussions similaires