Board logo

标题: [问题求助] 求助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

举个栗子:
  1. Dim bit(16)
  2. B=AscB("A")
  3. For i=0 To 7
  4. bit(i)=(B And 2^i) > 0
  5. Next
  6. For i=0 To 7
  7. WScript.Echo -bit(i)
  8. 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