几段VB.Net串口通讯的源代码

枚举本机可用串口的代码：

1. 
   
2. 
   
3. Sub GetSerialPortNames()
   
4.     ' 枚举本机可用串口
   
5.     For Each sp As String In My.Computer.Ports.SerialPortNames
   
6.         ListBox1.Items.Add(sp)
   
7.     Next
   
8. End Sub
   

复制代码

发送一个字符串到指定串口的代码：

1. Sub SendSerialData(ByVal data As String)
   
2.     ' 发送一个字符串到指定串口com1
   
3.     Using com1 As IO.Ports.SerialPort = _
   
4.             My.Computer.Ports.OpenSerialPort("COM1")
   
5.         com1.WriteLine(data)
   
6.     End Using
   
7. End Sub

复制代码

从指定串口获取字符串并返回值的代码：

1. Function ReceiveSerialData() As String
   
2.     ' 从串口获取字符串并返回值
   
3.     Dim returnStr As String = ""
   
4. 
   
5.     Using com1 As IO.Ports.SerialPort = _
   
6.             My.Computer.Ports.OpenSerialPort("COM1")
   
7.         Do
   
8.             Dim Incoming As String = com1.ReadLine()
   
9.             If Incoming Is Nothing Then
   
10.                 Exit Do
    
11.             Else
    
12.                 returnStr &= Incoming & vbCrLf
    
13.             End If
    
14.         Loop
    
15.     End Using
    
16. 
    
17.     Return returnStr
    
18. End Function

复制代码

{:soso_e178:}这个我就要学了。收藏下先