串口类的DateReceived事件---发送一次指令，就会自动触发此事件接收数据

一、打开此事件的位置：

二、代码：

Private Sub Se_DateReceived(sender As Object, e As SerialDataReceivedEventArgs) Handles serialPort.DataReceived
        Dim readData As String
        readData = serialPort.ReadLine()
        Dim jsonResult As Object
        Try
            jsonResult = JsonConvert.DeserializeObject(readData) '用Newtonsoft.Json反序列json字符串
            Dim sIndex As Integer = jsonResult("LV") '提取Json字符串中的“LV”值
            RichTextBox_order.SelectionColor = Color.Green
            RichTextBox_order.AppendText("接收到的指令数据：" & readData & vbCrLf)
            'RichTextBox_order.SelectionColor = Color.Green
            'RichTextBox_order.AppendText("接收到的指令数据中‘LV’：" & sIndex & vbCrLf)

            logDemo.LogWriter(logDemo.LogTime & Space(4) & "接收到的指令数据：" & readData) '记录log
            logDemo.LogWriter(logDemo.LogTime & Space(4) & "接收到的指令数据中‘LV’：" & sIndex)
        Catch ex As Exception
            RichTextBox_order.SelectionColor = Color.Green
            RichTextBox_order.AppendText("接收数据异常" & vbCrLf)

            logDemo.LogWriter(logDemo.LogTime & Space(4) & "接收数据异常" & ex.ToString)
        End Try
    End Sub