这是我按下秤上的按钮时的代码：
Private Sub SerialPort1_DataReceived(sender As Object, e As SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
If comOpen Then
Try
readBuffer = SerialPort1.ReadExisting()
Me.Invoke(New EventHandler(AddressOf DoUpdate))
Catch ex As Exception
MsgBox("read " & ex.Message)
End Try
End If
End Sub
Public Sub DoUpdate(ByVal sender As Object, ByVal e As System.EventArgs)
TxtIn.AppendText(readBuffer)
End Sub
最后我发现我卡住了
Private Sub BtnSend_Click(sender As Object, e As EventArgs) Handles BtnSend.Click
SerialPort1.WriteLine("SI" & vbCrLf)
End Sub
那是代码命令 SI 和 CrLf
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句