آرایه ای از بیت ها BitArray و BitVector32

لینک کمکی به MSDN برای BitArray

آرایه بیتی ، آرایه ای از Boolean ها است

نحوه تعریف آرایه بیتی به روشهای مختلف عبارت است از:

Imports System
Imports System.Collections

Dim BA 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)

نحوه خواندن اطلاعات تیز به صورت زیر است:

 MsgBox(myBA.Item(2))

Count و Length نیز تعداد و طول رشته بیتی را برمیگرداند

MsgBox(BA.Count)
MsgBox(BA.Length)

لینک کمکی به MSDN برای BitVector32

ساختاری از آرایه از 0 و 1 ها که 32 از حافظه را میگیرد

Imports System.Collections.Specialized

'ساخت یک BitVector با تمام خانه های False

Dim myBV As New BitVector32(0)

Dim myBit2 As Integer = BitVector32.CreateMask(myBit1)
Dim myBit3 As Integer = BitVector32.CreateMask(myBit2)
Dim myBit4 As Integer = BitVector32.CreateMask(myBit3)
Dim myBit5 As Integer = BitVector32.CreateMask(myBit4)

'نحوه نمایش آنها

MsgBox(myBV.ToString())

myBV(myBit1) = True
MsgBox(myBV.ToString())
myBV(myBit3) = True
MsgBox(myBV.ToString())
myBV(myBit5) = True
MsgBox(myBV.ToString())