| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 2535 人关注过本帖
标题:pb串口通信-电子秤接口中MSComm控件OnComm 事件中关于testbit()的问题
只看楼主 加入收藏
ytliuhaibo
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2007-5-14
收藏
 问题点数:0 回复次数:1 
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-05-14 16:37
ytliuhaibo
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2007-5-14
收藏
得分:0 

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

2007-05-15 12:45
快速回复:pb串口通信-电子秤接口中MSComm控件OnComm 事件中关于testbit()的问题
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.035442 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved