Conversion binaire vers decimal / decimal vers binaire

Soyez le premier à donner votre avis sur cette source.

Vue 5 649 fois - Téléchargée 304 fois

Description

Exemple :
toto=dec2bin(78)
toto vaudra alors 1001110

toto=bin2dec(1001110)
toto vaudra alors 78

Source / Exemple :


Public Function dec2bin(nombre As Long) As Long
i = 0: dec2bin = 0
Do While (nombre / 2 > 0)
    dec2bin = dec2bin + (nombre Mod 2) * (10 ^ i)
    nombre = Int(nombre / 2)
    i = i + 1
Loop
End Function

Public Function bin2dec(nombre As Long) As Long
i = 0: bin2dec = 0
Do While (nombre >= 1)
    bin2dec = bin2dec + (nombre Mod 10) * (2 ^ i)
    nombre = Int(nombre / 10)
    i = i + 1
Loop
End Function

Conclusion :


Attention pour dec2bin, le paramètre d'entrée doit être inferieur à 1024
pour bin2dec, le paramètre d'entrée doit être inferieur à 11 1111 1111
Ceci est du à la limite du format Long

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

cs_laestrella
Messages postés
93
Date d'inscription
lundi 16 juin 2003
Statut
Membre
Dernière intervention
27 juin 2003
-
C'est bien tout ça mais dans un zip cela aurai été encore mieux
Si tu peut en mettre un je te remercie d'avance
TheSin
Messages postés
331
Date d'inscription
mardi 12 novembre 2002
Statut
Membre
Dernière intervention
10 février 2009
-
pour ton bin2dec(nombre As Long), au lieu de mettre as long, prend plutôt une variable de type String, parce que le type long ne va permettre qu'un certain nombre de caractères, à savoir 10, si je ne me trompe.
cs_laestrella
Messages postés
93
Date d'inscription
lundi 16 juin 2003
Statut
Membre
Dernière intervention
27 juin 2003
-
Je ne suis pas sur mais je crois que le type long permet de mettre plus de 10 caractères c'est pas de - à 2 147 483 648 ???
Je ne sais plus mais je crois que c'est ça.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.