Nombre en binaire

Commenter

Contenu du snippet

Source classique. Transforme un nombre INTEGER LONG ou CURRENCY en binaire et permet d'obtenir une chaine de bits sur X bits.

Source / Exemple : 


Function Num_Bin(ByVal nombre As Currency, Nombre_de_Bits As Integer) As String

Dim binaire As String, z As Currency, x As Currency
binaire = ""
z = 0
x = 0

Do Until nombre < 1
x = nombre - (Int(nombre / 2) * 2)
nombre = Fix(nombre / 2)
binaire = CStr(x) + binaire
Loop

If Nombre_de_Bits > Len(binaire) Then
binaire = String(Nombre_de_Bits - Len(binaire), Chr(48)) + binaire
End If

Num_Bin = binaire
End Function

Conclusion :


Pas de bug connu. Cette source fonctionne parfaitement.

A voir également

S'inscrire maintenant

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.

Du même auteur (ericigor)