16,722
社区成员




Dim com_data As String
Private Sub mySerialPort_DataReceived(ByVal sender As System.Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles mySerialPort.DataReceived
Try
com_data = mySerialPort.ReadLine
Catch ex As Exception
com_data = ""
End Try
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If com_data <> "" Then
Me.Timer1.Enabled = False
msgbox(com_data)
'使用读得的信息
Timer1.Enabled = True
End If
com_data = ""
End Sub