Conversion binaire vers decimal / decimal vers binaire
Description
Exemple :
toto=dec2bin(78)
toto vaudra alors 1001110
toto=bin2dec(1001110)
toto vaudra alors 78
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
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
- Conversion binaire vers decimal / decimal vers binaire
- Decimal sql - Forum SQL
- Deux chiffre aprèla virgule - Forum SQL
- SQL Insert into de nombre décimal - Forum Visual Basic
- Conversion binaire decimal ✓ - Forum Delphi / Pascal
- Binaire en decimal ✓ - Forum Visual Basic
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.