Conversion Hex/Dec/Bin

Signaler
Messages postés
20
Date d'inscription
vendredi 21 février 2003
Statut
Membre
Dernière intervention
8 avril 2003
-
Messages postés
20
Date d'inscription
vendredi 21 février 2003
Statut
Membre
Dernière intervention
8 avril 2003
-
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.

3 réponses

Messages postés
20
Date d'inscription
vendredi 21 février 2003
Statut
Membre
Dernière intervention
8 avril 2003

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 ;)
Messages postés
1858
Date d'inscription
samedi 29 juin 2002
Statut
Membre
Dernière intervention
17 octobre 2013
10
> 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)
Messages postés
20
Date d'inscription
vendredi 21 février 2003
Statut
Membre
Dernière intervention
8 avril 2003

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