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
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.