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
uj5u.com熱心網友回復：
那位大神如果對串口和地磅開發熟悉，可以聯系我，不勝感激。uj5u.com熱心網友回復：
"斷點"才能除錯.估計是資料沒傳輸完成吧.只要用串口測驗工具沒有問題.那就是自己代碼沒弄好嘍
uj5u.com熱心網友回復：
看到你的“事件程序”代碼，首先就是來個On Error Resume Next，那么出現“不正確”的現象，也是順理成章的事。
PS：就看了“那兩行”，后面我也沒興趣看了……
畢竟最基本、卻又是最重要的“通訊協議”，樓主竟然一個字都不提！
uj5u.com熱心網友回復：
參考《編譯原理》中的詞法分析和有限狀態自動機。轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/49988.html
標籤：VB基礎類