委托方式 接收串口



Public Class Form1

    Dim mSTR As String

    Dim strData As String

    Dim strDat As String

    Dim mRecvByte() As Byte

    Dim Hexsj As String

    Dim form2 As Form

 

    Private Sub SerialPort1_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived

        Dim mSize As Integer = Me.SerialPort1.BytesToRead

        ReDim mRecvByte(mSize - 1)

        SerialPort1.Read(mRecvByte, 0, mSize)

        BeginInvoke(New EventHandler(AddressOf ONMLoadA), SerialPort1.BytesToRead()) '使用委托方式显示接收到的字符串

    End Sub

 

    Sub ONMLoadA(ByVal sender As System.Object, ByVal e As System.EventArgs) '委托

        strDat = ""

        TextBox1.Text = ""

        Dim i As Integer

        For i = 0 To UBound(mRecvByte) 'mSize - 1

            strData = strData & IIf(mRecvByte(i) > 15, Hex(mRecvByte(i)), "0" & Hex(mRecvByte(i))) & " "

        Next

        Dim sj As Byte

        For i = 1 To Len(strData) Step 3 '处理为ASCII字符

            sj = Val("&H" & Mid(strData, i, 2))

            If sj < 32 Or sj > 128 Then '当接收字节中有Chr(0)时，其后字符被切割

                strDat = strDat & "."

            Else

                strDat = strDat & Chr(sj)

            End If

        Next

        TextBox1.Text = strDat '显示字符

        TextBox2.Text = strData '显示为16进制

        TextBox3.Text = Len(strData) / 3

    End Sub