BitArray Class

Manages a compact array of bit values, which are represented as Booleans, where true indicates that the bit is on (1) and false indicates the bit is off (0).

Imports System.Collections
Public Class Example
 Public Shared Sub Demo(ByVal outputBlock As System.Windows.Controls.TextBlock)
 ' Creates and initializes several BitArrays.
 Dim myBA1 As New BitArray(5)
 Dim myBA2 As New BitArray(5, False)
 Dim myBytes() As Byte = {1, 2, 3, 4, 5}
 Dim myBA3 As New BitArray(myBytes)
 Dim myBools() As Boolean = {True, False, True, True, False}
 Dim myBA4 As New BitArray(myBools)
 Dim myInts() As Integer = {6, 7, 8, 9, 10}
 Dim myBA5 As New BitArray(myInts)
 ' Displays the properties and values of the BitArrays.
 outputBlock.Text &= "myBA1" & vbCrLf
 outputBlock.Text += String.Format(" Count: {0}", myBA1.Count) & vbCrLf
 outputBlock.Text += String.Format(" Length: {0}", myBA1.Length) & vbCrLf
 outputBlock.Text &= " Values:" & vbCrLf
 PrintValues(outputBlock, myBA1, 8)
 outputBlock.Text &= "myBA2" & vbCrLf
 outputBlock.Text += String.Format(" Count: {0}", myBA2.Count) & vbCrLf
 outputBlock.Text += String.Format(" Length: {0}", myBA2.Length) & vbCrLf
 outputBlock.Text &= " Values:" & vbCrLf
 PrintValues(outputBlock, myBA2, 8)
 outputBlock.Text &= "myBA3" & vbCrLf
 outputBlock.Text += String.Format(" Count: {0}", myBA3.Count) & vbCrLf
 outputBlock.Text += String.Format(" Length: {0}", myBA3.Length) & vbCrLf
 outputBlock.Text &= " Values:" & vbCrLf
 PrintValues(outputBlock, myBA3, 8)
 outputBlock.Text &= "myBA4" & vbCrLf
 outputBlock.Text += String.Format(" Count: {0}", myBA4.Count) & vbCrLf
 outputBlock.Text += String.Format(" Length: {0}", myBA4.Length) & vbCrLf
 outputBlock.Text &= " Values:" & vbCrLf
 PrintValues(outputBlock, myBA4, 8)
 outputBlock.Text &= "myBA5" & vbCrLf
 outputBlock.Text += String.Format(" Count: {0}", myBA5.Count) & vbCrLf
 outputBlock.Text += String.Format(" Length: {0}", myBA5.Length) & vbCrLf
 outputBlock.Text &= " Values:" & vbCrLf
 PrintValues(outputBlock, myBA5, 8)
 End Sub 'Main
 Public Shared Sub PrintValues(ByVal outputBlock As System.Windows.Controls.TextBlock, ByVal myList As IEnumerable, ByVal myWidth As Integer)
 Dim i As Integer = myWidth
 Dim obj As [Object]
 For Each obj In myList
 If i <= 0 Then
 i = myWidth
 outputBlock.Text &= vbCrLf
 End If
 i -= 1
 outputBlock.Text += String.Format("{0,8}", obj)
 Next obj
 outputBlock.Text &= vbCrLf
 End Sub 'PrintValues
End Class 'SamplesBitArray 
' This code produces the following output.
' 
' myBA1
' Count: 5
' Length: 5
' Values:
' False False False False False
' myBA2
' Count: 5
' Length: 5
' Values:
' False False False False False
' myBA3
' Count: 40
' Length: 40
' Values:
' True False False False False False False False
' False True False False False False False False
' True True False False False False False False
' False False True False False False False False
' True False True False False False False False
' myBA4
' Count: 5
' Length: 5
' Values:
' True False True True False
' myBA5
' Count: 160
' Length: 160
' Values:
' False True True False False False False False
' False False False False False False False False
' False False False False False False False False
' False False False False False False False False
' True True True False False False False False
' False False False False False False False False
' False False False False False False False False
' False False False False False False False False
' False False False True False False False False
' False False False False False False False False
' False False False False False False False False
' False False False False False False False False
' True False False True False False False False
' False False False False False False False False
' False False False False False False False False
' False False False False False False False False
' False True False True False False False False
' False False False False False False False False
' False False False False False False False False
' False False False False False False False False

using System;
using System.Collections;
public class Example
{
 public static void Demo(System.Windows.Controls.TextBlock outputBlock)
 {
 // Creates and initializes several BitArrays.
 BitArray myBA1 = new BitArray(5);
 BitArray myBA2 = new BitArray(5, false);
 byte[] myBytes = new byte[5] { 1, 2, 3, 4, 5 };
 BitArray myBA3 = new BitArray(myBytes);
 bool[] myBools = new bool[5] { true, false, true, true, false };
 BitArray myBA4 = new BitArray(myBools);
 int[] myInts = new int[5] { 6, 7, 8, 9, 10 };
 BitArray myBA5 = new BitArray(myInts);
 // Displays the properties and values of the BitArrays.
 outputBlock.Text += "myBA1" + "\n";
 outputBlock.Text += String.Format(" Count: {0}", myBA1.Count) + "\n";
 outputBlock.Text += String.Format(" Length: {0}", myBA1.Length) + "\n";
 outputBlock.Text += " Values:" + "\n";
 PrintValues(outputBlock, myBA1, 8);
 outputBlock.Text += "myBA2" + "\n";
 outputBlock.Text += String.Format(" Count: {0}", myBA2.Count) + "\n";
 outputBlock.Text += String.Format(" Length: {0}", myBA2.Length) + "\n";
 outputBlock.Text += " Values:" + "\n";
 PrintValues(outputBlock, myBA2, 8);
 outputBlock.Text += "myBA3" + "\n";
 outputBlock.Text += String.Format(" Count: {0}", myBA3.Count) + "\n";
 outputBlock.Text += String.Format(" Length: {0}", myBA3.Length) + "\n";
 outputBlock.Text += " Values:" + "\n";
 PrintValues(outputBlock, myBA3, 8);
 outputBlock.Text += "myBA4" + "\n";
 outputBlock.Text += String.Format(" Count: {0}", myBA4.Count) + "\n";
 outputBlock.Text += String.Format(" Length: {0}", myBA4.Length) + "\n";
 outputBlock.Text += " Values:" + "\n";
 PrintValues(outputBlock, myBA4, 8);
 outputBlock.Text += "myBA5" + "\n";
 outputBlock.Text += String.Format(" Count: {0}", myBA5.Count) + "\n";
 outputBlock.Text += String.Format(" Length: {0}", myBA5.Length) + "\n";
 outputBlock.Text += " Values:" + "\n";
 PrintValues(outputBlock, myBA5, 8);
 }
 public static void PrintValues(System.Windows.Controls.TextBlock outputBlock, IEnumerable myList, int myWidth)
 {
 int i = myWidth;
 foreach (Object obj in myList)
 {
 if (i <= 0)
 {
 i = myWidth;
 outputBlock.Text += "\n";
 }
 i--;
 outputBlock.Text += String.Format("{0,8}", obj);
 }
 outputBlock.Text += "\n";
 }
}
/* 
This code produces the following output.
myBA1
 Count: 5
 Length: 5
 Values:
 False False False False False
myBA2
 Count: 5
 Length: 5
 Values:
 False False False False False
myBA3
 Count: 40
 Length: 40
 Values:
 True False False False False False False False
 False True False False False False False False
 True True False False False False False False
 False False True False False False False False
 True False True False False False False False
myBA4
 Count: 5
 Length: 5
 Values:
 True False True True False
myBA5
 Count: 160
 Length: 160
 Values:
 False True True False False False False False
 False False False False False False False False
 False False False False False False False False
 False False False False False False False False
 True True True False False False False False
 False False False False False False False False
 False False False False False False False False
 False False False False False False False False
 False False False True False False False False
 False False False False False False False False
 False False False False False False False False
 False False False False False False False False
 True False False True False False False False
 False False False False False False False False
 False False False False False False False False
 False False False False False False False False
 False True False True False False False False
 False False False False False False False False
 False False False False False False False False
 False False False False False False False False
*/

System.Collections Namespace

System.Collections.Generic