| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 830 人关注过本帖, 1 人收藏
标题:vb 串口通迅问题!!
只看楼主 加入收藏
wgl2691
Rank: 1
等 级:新手上路
帖 子:23
专家分:0
注 册:2008-5-26
收藏(1)
 问题点数:0 回复次数:2 
vb 串口通迅问题!!
请高手看这段程序:我明明关闭了接收事件,可刚运行到*号处,接收事件又触发了,搞了很久了!!整不明白啊!
Private Sub MSComm1_OnComm()           '数据接收
sum_inputdata = 0       '累积和清"0"
 Select Case '‘判断MSComm1通信事件
        Case comEvReceive '‘收到Rthreshold个字节产生的接收事件
        av = MSComm1.Input      '‘读取第一个接收字节
         MSComm1.RThreshold = 0 '‘关闭OnComm事件接收
        inputdata(0) = av(0) '为数据帧起始标志(0f0h)
        If inputdata(0) = &HF0 Then '‘判断是否为数据开始标志
           sum_inputdata = inputdata(0)
           av = MSComm1.Input ' ‘读取第二个数据字节
           inputdata(1) = av(0)  '为数据类型识别码
           sum_inputdata = inputdata(1) + sum_inputdata '累加    *
           av = MSComm1.Input '‘读取第三个数据字节
           inputdata(2) = av(0)  '为数据高字节
            sum_inputdata = inputdata(2) + sum_inputdata '累加
           av = MSComm1.Input '‘读取第四个数据字节
           inputdata(3) = av(0) '为数据低字节
            sum_inputdata = inputdata(3) + sum_inputdata '累加
             sum_inputdata = sum_inputdata Mod 256       '取余操作
            av = MSComm1.Input '‘读取第五个数据字节
           inputdata(4) = av(0) '为校验和识别码
'-----------------------------------------------------------------
           If inputdata(4) = sum_inputdata Then  '校验和正确则显示
'-----------------------------------------------------------------
             b1 = inputdata(2) * 256 + inputdata(3) '转换为十进制数
           If inputdata(1) = &HA3 Then '叛断数据类型(&ha3=力值实时值)
                 Textid.Text = Format(b1, "00000") 'Format(WW, "0.00")
                Else
                  Textname.Text = Format(b1, "00000")
                End If
            End If
         End If
 Case Else
   MSComm1.RThreshold = 5 '‘打开MSComm1事件接收
 End Select
End Sub
谢谢啊!

[[it] 本帖最后由 wgl2691 于 2008-6-18 14:02 编辑 [/it]]
搜索更多相关主题的帖子: 串口 
2008-06-18 13:57
simpson
Rank: 3Rank: 3
等 级:论坛游民
威 望:7
帖 子:863
专家分:17
注 册:2006-11-16
收藏
得分:0 
这个没什么问题   可能其他地方引起的吧

全国最大的 Java专业电子书免费分享[url]http:///in.asp?id=xrmao[/url]
2008-06-19 10:09
aiwa0311
Rank: 1
等 级:新手上路
帖 子:11
专家分:0
注 册:2007-4-2
收藏
得分:0 
我也在做串口程序
2008-06-20 20:04
快速回复:vb 串口通迅问题!!
数据加载中...
 
   



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

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