批处理之家 - Powered by Discuz! Board

标题: [问题求助] 求助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://bbs.bathome.net/)