使用 vb.net 获取和设置字节数组中的单个位

Imports System

Module Module1
    Sub Main()
        ' 创建一个字节数组
        Dim bytes(7) As Byte
        bytes(0) = &H55
        bytes(1) = &HAA
        bytes(2) = &H3F
        bytes(3) = &H80
        bytes(4) = &H01
        bytes(5) = &H02
        bytes(6) = &H04
        bytes(7) = &H08

        ' 获取第 2 个字节中的第 3 位
        Dim bitIndex As Integer = 2 * 8 + 3
        Dim bitValue As Integer = (bytes(bitIndex \ 8) And (1 << (bitIndex Mod 8))) \ (1 << (bitIndex Mod 8))
        Console.WriteLine("Bit at index {0} is {1}", bitIndex, bitValue)

        ' 设置第 4 个字节中的第 5 位为 1
        bitIndex = 4 * 8 + 5
        bytes(bitIndex \ 8) = bytes(bitIndex \ 8) Or (1 << (bitIndex Mod 8))
        Console.WriteLine("New byte array: {0}", BitConverter.ToString(bytes))
    End Sub
End Module