CONVERSION DÉCIMAL -> BINAIRE
cs_KAC
Messages postés
2
Date d'inscription
lundi 6 septembre 2004
Statut
Membre
Dernière intervention
20 septembre 2004
-
20 sept. 2004 à 14:26
cs_KAC Messages postés 2 Date d'inscription lundi 6 septembre 2004 Statut Membre Dernière intervention 20 septembre 2004 - 20 sept. 2004 à 14:26
cs_KAC Messages postés 2 Date d'inscription lundi 6 septembre 2004 Statut Membre Dernière intervention 20 septembre 2004 - 20 sept. 2004 à 14:26
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/8560-conversion-decimal-gt-binaire
https://codes-sources.commentcamarche.net/source/8560-conversion-decimal-gt-binaire
20 sept. 2004 à 14:26
Voici la fonction que j'ai créée à partir de ton exemple.
Inumber est le nombre à convertir
iNbBit est le nombre de bit du résultat binaire.
Public Function ConvertIntBin(iNumber As Integer, iNbBit As Integer) As String
Dim sMot As String
Dim i As Integer
sMot = ""
i = iNbBit + 1
While i >= 0
If iNumber / (2 ^ i) < 1 Then sMot sMot & "0" Else sMot sMot & "1"
If iNumber / (2 ^ i) >1 Then iNumber iNumber - (2 ^ i)
i = i - 1
Wend
ConvertIntBin = sMot
End Function
Il y a certainement des choses plus simples.
J'avais besoin de cette conversion pour tester la valeur d'un bit précis d'un nombre. Je n'ai pas trouvé de fonctions standarts via un format ou un test binaire...