Conversion binaire dans les deux sens

Soyez le premier à donner votre avis sur cette source.

Snippet vu 10 329 fois - Téléchargée 7 fois

Contenu du snippet

VB.NET
Public Function FromBin(ByVal Number As String) As Integer
    Dim pos As Integer = 1, l As Integer = Number.Length
    Dim Result As Integer, Current As Byte
    Do
        Current = Conversion.Int(Mid(Number, pos, 1))
        Result += (Current * 2 ^ (l - pos))
        pos += 1
    Loop While pos <= l
    Return Result
End Function
Public Function ToBin(ByVal Number As Integer) As String
    Dim Rest As Integer, Result As String = ""
    Do
        Rest = Number Mod 2
        Number = Number \ 2
        Result = Rest.ToString() & Result
    Loop While Number > 0
    Return Result
End Function

VB6
Public Function FromBin(ByVal Number As String) As Integer
    Dim pos As Integer, l As Integer
    Dim Result As Integer, Current As Byte
    pos = 1
    l = Len(Number)
    Do
        Current = CByte(Mid(Number, pos, 1))
        Result = Result + (Current * 2 ^ (l - pos))
        pos = pos + 1
    Loop While pos <= l
    FromBin = Result
End Function
Public Function ToBin(ByVal Number As Integer) As String
    Dim Rest As Integer, Result As String
    Do
        Rest = Number Mod 2
        Number = Number \ 2
        Result = CStr(Rest) & Result
    Loop While Number > 0
    ToBin = Result
End Function

VBS
Public Function FromBin(Number)
    Dim pos, l
    Dim Result, Current
    pos = 1
    l = Len(Number)
    Do
        Current = CByte(Mid(Number, pos, 1))
        Result = Result + (Current * 2 ^ (l - pos))
        pos = pos + 1
    Loop While pos <= l
    FromBin = Result
End Function
Public Function ToBin(Number)
    Dim Rest, Result
    Do
        Rest = Number Mod 2
        Number = Number \ 2
        Result = CStr(Rest) & Result
    Loop While Number > 0
    ToBin = Result
End Function


Compatibilité : VB 2005, VB6, VBScript

Disponible dans d'autres langages :

A voir également

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.