上海耀华电子磅xk3190-A9的串口代码

[string_csto]

vb读地磅信息：必须断点调试，才能读取，并且数据也不准
Private Sub MSComm1_OnComm()
On Error Resume Next
Static cnt As Integer
Dim receive_cnt As Integer
Dim i As Integer

Dim Buffer As Variant
Dim Arr() As Byte
Dim s As String
Dim str As String
Select Case MSComm1.CommEvent
Case comEvReceive
receive_cnt = MSComm1.InBufferCount

Buffer = MSComm1.Input

Arr = Buffer
s = ""
For i = 0 To receive_cnt - 1
If Arr(i) > 15 Then
s = s + Hex(Arr(i)) + " "
Else
s = s + "0" + Hex(Arr(i)) + " "
End If
cnt = cnt + 1
If i > 100 Then
DoEvents
str = str & s

End If
Next i

If cnt >= 100 Then
cnt = 0
Exit Sub
End If
Case comEvSend

End Select
End Sub

[string_csto]

那位大神如果对串口和地磅开发熟悉，可以联系我，不胜感激。

[小噤]

"断点"才能调试.估计是数据没传输完成吧. 只要用串口测试工具没有问题.那就是自己代码没弄好喽

[舉杯邀明月]

看到你的“事件过程”代码，首先就是来个On Error Resume Next， 那么出现“不正确”的现象，也是顺理成章的事。 PS：就看了“那两行”，后面我也没兴趣看了…… 毕竟最基本、却又是最重要的“通讯协议”，楼主竟然一个字都不提！

[赵4老师]

参考《编译原理》中的词法分析和有限状态自动机。