VB上位机如何获取一个字节的每个位是0还是1

在单片机配合上位机的工程项目中，经常需要用到字节的每个位。如题，上位机如何获取一个字节的每个位是0还是1？这里有一种方法，透露给大家。我们知道，一个字节是8个位，每个位不是0就是1。

例如，单片机控制8个继电器，用一个字节的8个位的0和1来表示继电器的开和关，1表示断开，0表示吸合，即0000 0100就代表第3个继电器断开。单片机通过串口发送一个字节给上位机，那么上位机如何知道每个位是0还是1呢？

这里以VB程序为例，其它上位机软件算法是通用的。

Dim a As Byte ? ?'定义一个字节a
Dim buf(7) As Byte ?'定义一个数组，共8个字节
用a获取到需要拆分位的字节
For I = 7 To 0 Step -1  'I从7到0，递减
If a / (2 ^ I) >= 1 Then '如果a除以2的I次方大于等于1，那么
buf(I) = 1 'buf数组的第I个字节就等于1
a = a - 2 ^ I '重新计算a
Else '如果a除以2的I次方小于1，那么
buf(I) = 0 'buf数组的第I个字节就等于0
End If '结束if语句
Next I '下一个I

执行完程序以后，buf[0]就是字节a的位0，buf[1]就是字节a的位1，以此类推。你现在可以带进去一个数验证一下。