[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
bj2008liu

Rank: 1

帖子
4 
积分
16 
技术
0  
捐助
0  
注册时间
2014-8-10 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 2014-8-12 14:22 | 只看该作者

[问题求助] 求助VBS怎么获取一个 Byte 的各个 Bit 值

求助一下VBS怎么获取一个 Byte 的各个 Bit 值，比如我读一个8bit的AI点，需要把这个每一个bit值都读取出来，然后通过判断每一位bit值做别的相应判断，求高手指导，谢谢！
收藏 分享

CrLf

Rank: 8Rank: 8

帖子
6388 
积分
18837 
技术
980  
捐助
100  
注册时间
2010-10-9 
2楼
发表于 2014-8-12 15:25 | 只看该作者
举个栗子：
  1. Dim bit(16)

  2. B=AscB("A")

  3. 

  4. For i=0 To 7

  5. 	bit(i)=(B And 2^i) > 0

  6. Next

  7. 

  8. For i=0 To 7

  9. 	WScript.Echo -bit(i)

  10. Next
复制代码
链接：在线第三方命令行工具下载   bat、vbs、js 原生混编

TOP

bj2008liu

Rank: 1

帖子
4 
积分
16 
技术
0  
捐助
0  
注册时间
2014-8-10 
3楼
发表于 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

TOP

bj2008liu

Rank: 1

帖子
4 
积分
16 
技术
0  
捐助
0  
注册时间
2014-8-10 
4楼
发表于 2014-8-12 16:17 | 只看该作者
感谢。。。。。。

TOP

返回列表