CONVERSION DÉCIMAL -> BINAIRE

Signaler
Messages postés
2
Date d'inscription
lundi 6 septembre 2004
Statut
Membre
Dernière intervention
20 septembre 2004
-
Messages postés
2
Date d'inscription
lundi 6 septembre 2004
Statut
Membre
Dernière intervention
20 septembre 2004
-
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

Messages postés
2
Date d'inscription
lundi 6 septembre 2004
Statut
Membre
Dernière intervention
20 septembre 2004

Merci pour ton exemple.

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