标题: [问题求助] 求助VBS怎么获取一个 Byte 的各个 Bit 值 [打印本页]
作者: bj2008liu 时间: 2014-8-12 14:22 标题: 求助VBS怎么获取一个 Byte 的各个 Bit 值
求助一下VBS怎么获取一个 Byte 的各个 Bit 值,比如我读一个8bit的AI点,需要把这个每一个bit值都读取出来,然后通过判断每一位bit值做别的相应判断,求高手指导,谢谢!
作者: CrLf 时间: 2014-8-12 15:25
举个栗子:- Dim bit(16)
- B=AscB("A")
-
- For i=0 To 7
- bit(i)=(B And 2^i) > 0
- Next
-
- For i=0 To 7
- WScript.Echo -bit(i)
- Next
复制代码
作者: bj2008liu 时间: 2014-8-12 16:17
Sub BSButton7_OnClick()
Dim BitValue '读取值
Dim BitLoc 'bit位
BitValue = CInt(edit8.WindowText)
BitLoc = CInt(edit9.WindowText)
MsgBox ((BitValue / (2 ^ BitLoc)) and 1)
End Sub
作者: bj2008liu 时间: 2014-8-12 16:17
感谢。。。。。。
欢迎光临 批处理之家 (http://bathome.net./) |
Powered by Discuz! 7.2 |