如何：在 Visual Basic 中接收來自序列埠的字串

  • 發行項

本主題描述如何在 Visual Basic 中使用 My.Computer.Ports 來接收來自電腦序列埠的字串。

接收來自序列埠的字串

  1. 將傳回字串初始化。

    Dim returnStr As String = ""

  2. 判斷會由哪個序列埠提供字串。 此範例假設會是 COM1。

  3. 請使用 My.Computer.Ports.OpenSerialPort 方法取得連接埠的參考。 如需詳細資訊，請參閱OpenSerialPort。

    Try...Catch...Finally 區塊允許應用程式即使產生例外狀況，也可關閉序列埠。 所有管理序列埠的程式碼都應該出現在此區塊內。

    Dim com1 As IO.Ports.SerialPort = Nothing
Try
    com1 = My.Computer.Ports.OpenSerialPort("COM1")
    com1.ReadTimeout = 10000

Catch ex As TimeoutException
    returnStr = "Error: Serial Port read timed out."
Finally
    If com1 IsNot Nothing Then com1.Close()
End Try

  4. 建立 Do 迴圈以讀取多行文字，直到再也沒有可用的文字行為止。

    Do
Loop

  5. 使用 ReadLine() 方法來讀取來自序列埠的下一行可用文字。

    Dim Incoming As String = com1.ReadLine()

  6. 使用 If 陳述式來判斷 ReadLine() 方法是否會傳回 Nothing (表示再也沒有可用的文字)。 如果它確實傳回 Nothing，請結束 Do 迴圈。

    If Incoming Is Nothing Then
    Exit Do
End If

  7. 將 Else 區塊新增至 If 陳述式，以便處理實際讀取到字串的情況。 此區塊會將來自序列埠的字串附加至傳回字串。

    Else
    returnStr &= Incoming & vbCrLf

  8. 傳回字串。

    Return returnStr

範例

Function ReceiveSerialData() As String
    ' Receive strings from a serial port.
    Dim returnStr As String = ""

    Dim com1 As IO.Ports.SerialPort = Nothing
    Try
        com1 = My.Computer.Ports.OpenSerialPort("COM1")
        com1.ReadTimeout = 10000
        Do
            Dim Incoming As String = com1.ReadLine()
            If Incoming Is Nothing Then
                Exit Do
            Else
                returnStr &= Incoming & vbCrLf
            End If
        Loop
    Catch ex As TimeoutException
        returnStr = "Error: Serial Port read timed out."
    Finally
        If com1 IsNot Nothing Then com1.Close()
    End Try

    Return returnStr
End Function

這個程式碼範例也可用為 IntelliSense 程式碼片段。 在程式碼片段選擇器中，該程式碼片段會位於 [連接和網路] 中。 如需詳細資訊，請參閱 Code Snippets。

編譯程式碼

此範例假設電腦使用的是 COM1。

穩固程式設計

此範例假設電腦使用的是 COM1。 為了具有更大的彈性，程式碼應該允許使用者從可用序列埠清單中選取想要的序列埠。 如需詳細資訊，請參閱如何：顯示可用的序列埠。

此範例使用 Try...Catch...Finally 區塊以確保應用程式會關閉序列埠，並攔截任何逾時例外狀況。 如需詳細資訊，請參閱 Try...Catch...Finally 陳述式。

另請參閱