Conversion binaire dans les deux sens
Contenu du snippet
Protected Function FromBin(ByVal Number As String) As Long
Dim i As Integer, p As Integer = 0, Result As Long = 0
For i = Number.Length - 1 To 0 Step -1
If "01".IndexOf(Number(i).ToString()) = -1 Then
Throw New Exception("Invalid parameter !")
Exit Function
End If
Result += Number(i).ToString() * 2 ^ p
p += 1
Next i
Return Result
End Function
Protected Function ToBin(ByVal Number As Long) As String
Dim Result As String = ""
Do
Result = (Number Mod 2).ToString() & Result
Number \= 2
Loop While Number > 0
If Result.Length = 0 Then Result = "0"
Return Result
End Function
Une fois optimisées c'est mieux ...
Compatibilité : VB 2005, VB 2008
Disponible dans d'autres langages :
A voir également
- Conversion binaire dans les deux sens
- Calculatrice binaire - Forum C / C++ / C++.NET
- Addition binaire - Forum C / C++ / C++.NET
- Conversion binaire decimal ✓ - Forum Delphi / Pascal
- Conversion degre pourcentage - Forum VB.NET
- Ephéméride entre deux dates ✓ - Forum PHP
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.