無法解碼串口資料

我試圖通過串口從醫療“邁瑞 bs 200”設備接收資料。資料已接收但無法讀取。無法找到資料加密的種類。

這是接收資料的代碼

Private Sub comPort_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles comPort.DataReceived
    Dim str As String = ""
    If e.EventType = SerialData.Chars Then
        Do
            Dim bytecount As Integer = comPort.BytesToRead
            If bytecount = 0 Then
                Exit Do
            End If
            Dim byteBuffer(bytecount) As Byte

            comPort.Encoding = Encoding.GetEncoding(28591)
            ' comPort.Encoding = Encoding.GetEncoding(1252)
            'comPort.Encoding = Encoding.GetEncoding("Windows-1252")
            comPort.Read(byteBuffer, 0, bytecount)
            str = str & System.Text.Encoding.ASCII.GetString(byteBuffer, 0, 1)
            ' The str looks like
        Loop
    End If
    RaiseEvent ScanDataRecieved(str)
End Sub

這是收到的資料????????????????????????????????????????????? ?????????????????????????????????????????????????????? ？？？？？？？？？？？？？？？？？？？X？？？？？？？？？？？？？？？？？？？

uj5u.com熱心網友回復：

雖然不是針對此特定設備，但

表格1.vb

注意：在下面的代碼中，您需要helper.Connect("COM1")使用正確的 COM 埠進行更新。

Public Class Form1
    Private helper As HelperSerialPort = New HelperSerialPort()
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Disconnect()
        If helper IsNot Nothing Then
            'unsubscribe from event(s)
            RemoveHandler helper.DataReceived, AddressOf Helper_DataReceived
            RemoveHandler helper.ErrorReceived, AddressOf Helper_ErrorReceived

            helper.Dispose()
            helper = Nothing
        End If
    End Sub

    Private Sub btnConnectDisconnect_Click(sender As Object, e As EventArgs) Handles btnConnectDisconnect.Click
        If helper Is Nothing Then
            'create new instance
            helper = New HelperSerialPort()
        End If

        If btnConnectDisconnect.Text = "Connect" Then
            'clear existing data
            RichTextBox1.Clear()

            'ToDo: change to your desired COM port
            helper.Connect("COM1")

            'subscribe to event(s)
            AddHandler helper.DataReceived, AddressOf Helper_DataReceived
            AddHandler helper.ErrorReceived, AddressOf Helper_ErrorReceived

            'set text
            btnConnectDisconnect.Text = "Disconnect"
            btnConnectDisconnect.Refresh()
        Else
            Disconnect()

            'set text
            btnConnectDisconnect.Text = "Connect"
            btnConnectDisconnect.Refresh()
        End If
    End Sub

    Private Sub Helper_DataReceived(ByVal sender As Object, ByVal data As String)
        'ToDo: add desired code
        System.Diagnostics.Debug.WriteLine(DateTime.Now.ToString("HH:mm:ss") & " - Helper_DataReceived: " & data)

        'append data to RichTextBox
        RichTextBox1.Invoke(New MethodInvoker(Sub()
                                                  RichTextBox1.AppendText(DateTime.Now.ToString("yyyy/MM/dd HH:mm:ss.fff") & " - " & data)
                                              End Sub))
    End Sub

    Private Sub Helper_ErrorReceived(ByVal sender As Object, ByVal errMsg As String)
        'ToDo: add desired code
        System.Diagnostics.Debug.WriteLine(DateTime.Now.ToString("HH:mm:ss") & " - Helper_ErrorReceived: " & errMsg)

        'append error message to RichTextBox
        RichTextBox1.Invoke(New MethodInvoker(Sub()
                                                  RichTextBox1.AppendText(errMsg)
                                              End Sub))
    End Sub

    Private Sub Form1_FormClosed(sender As Object, e As FormClosedEventArgs) Handles MyBase.FormClosed
        Disconnect()
    End Sub
End Class

資源：

• 主機介面手冊
• HL7 版本 2.3.1
• 調制解調器控制信號

標籤：网络 视觉工作室-2010

上一篇：在樹莓派上使用python2.7搜索從未完成的shell行程回傳的運算式

下一篇：如何在aspnetcorewebAPI上正確地將串列轉換為IQueryable