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]]
