如何：在 Visual Basic 中从串行端口接收字符串

项目
08/12/2011

本主题描述在 Visual Basic 中如何使用 My.Computer.Ports 从计算机的串行端口接收字符串。

从串行端口接收字符串

初始化返回字符串。
```
Dim returnStr As String = ""
```
确定应由哪个串行端口提供字符串。此示例假定它为 COM1。
使用 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
```
创建一个 Do 循环，用于读取文本行，一直读到没有可用行为止。
```
Do
Loop
```
使用 ReadLine 方法从串行端口读取下一行可用文本。
```
Dim Incoming As String = com1.ReadLine()
```
使用 If 语句来确定 ReadLine 方法是否返回 Nothing（表示不再有可用文本）。如果返回 Nothing，则退出 Do 循环。
```
If Incoming Is Nothing Then
    Exit Do
End If
```
将一个 Else 块添加到 If 语句，以处理实际读取到字符串的情况。该块将串行端口中的字符串追加到返回字符串。
```
Else
    returnStr &= Incoming & vbCrLf
```
返回字符串。
```
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 代码段。在代码段选择器中，此代码示例位于**“连接和网络”**中。有关更多信息，请参见如何：插入 IntelliSense 代码段。