BitArray

[anyany]

Hi ich wollte gerne mal wissen wie man in VB eine BitArray anlegt, weil ich ichsowas für meine nächste Arbeit brauche. Ich hab 58 Bits die ich seriell einlese.

 

[Alex F.]

Ich würde das mit dem Datentyp Boolean realisieren

dim meinBitArray(58) as boolean


'oder alternativ dynamisch

Dim meinBitArray () as Boolean
Dim i as long  

i = 40 +18
Redim meinBitArray(i)

Grüsse bb

 

[MonkDoc]

Wie bekommst du denn das Array bzw. die Bits ? Wohl Bitweise von irgendeiner Hardware ..
Praktisch wäre es dann wohl eine Klasse zu schreiben welche die Werte der Bits in Boolean oder gar in zwei Long Variablen aufnimmt.

Das hier ist nur ein Ansatz ich Brauch so was wahrscheinlich auch bald melde mich wen es t.

Der große Praxis Wert ist das man so auch Register mit Low und High je 32 Bit lang oder andere größen einlese modi bauen könnte Kann beim Bit Geschiebe super Struktur rein Bringen!:suspekt:

Dim BitArrayData(1) As Long

Property Let Bit(ByVal nIndex As Integer, nValue As Boolean)

    Dim a As Byte

    If nIndex > 31 Then
        a = 1
        nIndex = nIndex - 31
    Else
        a = 0
    End If
    
     If nValue Then
        BitArrayData(a) = BitArrayData(a) Or (2 ^ nIndex)
     Else
        BitArrayData(a) = BitArrayData(a) And Not (2 ^ nIndex)
     End If
End Property

Property Get Bit(nIndex As Integer) As Boolean
    ....
    
End Property