Transformer un tableau de boolean en un tableau de byte
Contenu du snippet
Public Function BooleansToByteArray(ByVal tBool() As Boolean) As Byte() Dim BLength As Integer = CInt(System.Math.Ceiling(tBool.Length / 8)) Dim tB() As Byte = CType(System.Array.CreateInstance(GetType(Byte), BLength), Byte()) Dim iB As Integer = 0 For iBool As Integer = 0 To tBool.Length - 1 Step 8 Dim B As Byte = 0 For i As Integer = 0 To 7 If iBool + i < tBool.Length Then B += CByte(System.Math.Abs(CInt(tBool(iBool + i))) * CInt(System.Math.Pow(2, i))) End If Next i tB(iB) = B iB += 1 Next iBool Return tB End Function
Compatibilité : VB 2005, VB.NET 1.x
Disponible dans d'autres langages :
A voir également
- Transformer un tableau de boolean en un tableau de byte
- Afficher un tableau php en html - Conseils pratiques -PHP
- Tableau de turbo 2 - Forum C / C++ / C++.NET
- Etablir toutes les combinaisons possibles du Lotto - Forum VB.NET
- Afficher un tableau php - Forum PHP
- TURBO C++ et blocks que choisir ✓ - Forum C
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.