| 编程中国 | 业界新闻 | 技术文章 | 视频教程 | 下载频道 | 程序源码 | 个人空间 | 编程论坛
全能ASP/PHP/ASP.NET主机,支持月付专业 MSSQL 数据库空间,支持月付专业 MySQL 数据库空间,支持月付赛孚耐:软件保护加密专家
身份认证令牌USB KEY   
共有 824 人关注过本帖
标题:pb串口通信-电子秤接口中MSComm控件OnComm 事件中关于testbit()的问题
收藏  订阅  推荐  打印 
ytliuhaibo
Rank: 1
等级:新手上路
帖子:2
积分:120
注册:2007-5-14
pb串口通信-电子秤接口中MSComm控件OnComm 事件中关于testbit()的问题

这是我们公司软件中关于电子秤接口中MSComm控件OnComm 事件中的代码,程序没有问题。但是已经没有人知道
testbit()函数的意思,请帮忙!谢谢!我只知道这是一个位操作函数。
long i
String s
ole_1.object.InputLen = 0
s = ole_1.object.Input
For i = 1 To Len(s)
If Asc(Mid(s, i, 1)) = 2 Then//这一句是什么意思?是不是ole_1.object.commevent=2的意思?
If testbit(Asc(Mid(s, i + 2, 1)),2) =1 Then exit//这一句是什么意思?
If testbit(Asc(Mid(s, i + 2, 1)),3) =1 Then//这一句是什么意思?
dw_1.object.mrp_rkd_mxb_x_cd[tmp_i] =dec(Mid(s, i + 5, 5))
Else
If testbit(Asc(Mid(s, i + 2, 1)),1) =1 Then
dw_1.object.mrp_rkd_mxb_x_cd[tmp_i] =-dec(Mid(s, i + 5, 5))
End If
Exit
End If
End If
Next
搜索更多相关主题的帖子: 电子秤  串口  MSComm  OnComm  testbit  
2007-5-14 16:37
ytliuhaibo
Rank: 1
等级:新手上路
帖子:2
积分:120
注册:2007-5-14

对不起,以上问题原来有误!这是一段上个世纪写的代码,今天发现,testbit()是一个命名不规范的自定义函数。此问题已结贴!谢谢!

2007-5-15 12:45
关于我们 | 广告合作 | 编程中国 | 清除Cookies | Archiver | WAP | TOP

编程中国 版权所有,并保留所有权利。鲁ICP备08000592号
Powered by Discuz, Processed in 0.053846 second(s), 9 queries.
Copyright©2004-2008, BCCN.NET, All Rights Reserved