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