vb.net 写的串口通信类

 本人在工作中经常要编程控制仪器，所以就要经常会用到串口通信，GPIB通信，网线接口通讯，和PCI总线通讯方面的知识。自己在刚开始学习摸索时走了很多弯路，所以今天把自己写的一个串口通信类放在这里，我知道，在.net中实现串口通讯已经非常简单了，只需把控件放在窗体上，然后进行相关设置就可以进行基本的读写操作了。我只是稍微进行封装了一下，写在自己常用的类库里，方便调用使用。希望对大家小有帮助！话不多说，看内容：

 

#Region "SerialPort NI Control" '串口控制    ''' <summary>    ''' 初始化串口    ''' </summary>    ''' <param name="PortName">串口名称</param>    ''' <param name="BaudRate">波特率</param>    ''' <param name="DataBitsLength">数据位的长度</param>    ''' <param name="StopBits">停止位</param>    ''' <param name="Handshake">握手协议</param>    ''' <param name="Parity">优先级</param>    ''' <param name="ReadTimeOut">连接超时时间</param>    ''' <remarks>初始化串口</remarks>    Public Sub SerialPortInit(ByVal PortName As String, ByVal BaudRate As Integer, ByVal DataBitsLength As Integer, ByVal StopBits As StopBits, ByVal Handshake As Handshake, ByVal Parity As Parity, Optional ByVal ReadTimeOut As Integer = 1000)        SerialPort = New SerialPort        SerialPort.PortName = PortName '串口名称        SerialPort.BaudRate = BaudRate '波特率        SerialPort.DataBits = DataBitsLength '数据位的长度        SerialPort.StopBits = StopBits '停止位        SerialPort.Handshake = Handshake '握手协议        SerialPort.Parity = Parity '优先级        SerialPort.ReadTimeout = ReadTimeOut    End Sub    ''' <summary>    ''' 载入串口名称    ''' </summary>    ''' <param name="ComboxSerialPortName">串口容器</param>    ''' <remarks>载入串口名称</remarks>    Public Sub SerialPortLoadSerialPortPortName(ByVal ComboxSerialPortName As ComboBox)        Try            ComboxSerialPortName.Items.Clear()            For Each PortName As String In IO.Ports.SerialPort.GetPortNames                ComboxSerialPortName.Items.Add(PortName)            Next            ComboxSerialPortName.SelectedIndex = 0        Catch ex As Exception            Throw New Exception("仪器串口与电脑串口为连接通：" & ex.Message)        End Try    End Sub    ''' <summary>    ''' 打开串口    ''' </summary>    ''' <remarks>打开串口</remarks>    Public Sub SerialPortOpenPort()        Try            If Not SerialPort.IsOpen = True Then                SerialPort.Open()            Else                MsgBox("通讯端口打开错误或者通讯端口未打开", MsgBoxStyle.Information, "系统提示")            End If        Catch ex As Exception            MsgBox(ex.ToString)        End Try    End Sub    ''' <summary>    ''' 关闭串口    ''' </summary>    ''' <remarks>关闭串口</remarks>    Public Sub SerialPortClosePort()        Try            If SerialPort Is Nothing OrElse Not SerialPort.IsOpen Then                MsgBox("通讯端口还未打开", MsgBoxStyle.Information, "系统提示")                Exit Sub            Else                SerialPort.Close()                SerialPort = Nothing            End If        Catch ex As Exception            MsgBox(ex.ToString)        End Try    End Sub    ''' <summary>    ''' 从缓冲区中读取制定的字节    ''' </summary>    ''' <param name="Buffer">缓存字节</param>    ''' <param name="Offset">偏移字节数量</param>    ''' <param name="Count">读取数量</param>    ''' <returns>返回从缓冲区中读取制定的字节</returns>    ''' <remarks>从缓冲区中读取制定的字节</remarks>    Public Overloads Function SerialPortRead(ByVal Buffer() As Byte, ByVal Offset As Integer, ByVal Count As Integer) As Integer        Return SerialPort.Read(Buffer, Offset, Count)    End Function    ''' <summary>    ''' 从缓冲区中读取制定的字符    ''' </summary>    ''' <param name="Buffer">缓存字节数</param>    ''' <param name="Offset">偏移量</param>    ''' <param name="Count">读取字节个数</param>    ''' <returns>返回从缓冲区中读取制定的字符</returns>    ''' <remarks>从缓冲区中读取制定的字符</remarks>    Public Overloads Function SerialPortRead(ByVal Buffer() As Char, ByVal Offset As Integer, ByVal Count As Integer) As Integer        Return SerialPort.Read(Buffer, Offset, Count)    End Function    ''' <summary>    ''' 从缓冲区中异步读取一个字节    ''' </summary>    ''' <returns>返回从缓冲区中异步读取一个字节</returns>    ''' <remarks>从缓冲区中异步读取一个字节</remarks>    Public Overloads Function SerialPortReadByte() As Integer        Return SerialPort.ReadByte()    End Function    ''' <summary>    ''' 从缓冲区中异步读取一个字符    ''' </summary>    ''' <returns>返回从缓冲区中异步读取一个字符</returns>    ''' <remarks>从缓冲区中异步读取一个字符</remarks>    Public Overloads Function SerialPortReadChar() As Integer        Return SerialPort.ReadChar()    End Function    ''' <summary>    ''' 读取缓冲区中立即可用的字符    ''' </summary>    ''' <returns>返回读取缓冲区中立即可用的字符</returns>    ''' <remarks>读取缓冲区中立即可用的字符</remarks>    Public Overloads Function SerialPortReadExisting() As String        Return SerialPort.ReadExisting    End Function    ''' <summary>    ''' 读取输入缓冲区NewLine之前的内容    ''' </summary>    ''' <returns>返回读取输入缓冲区NewLine之前的内容</returns>    ''' <remarks>读取输入缓冲区NewLine之前的内容</remarks>    Public Overloads Function SerialPortReadLine() As String        Return SerialPort.ReadLine    End Function    ''' <summary>    ''' 写入命令字符串    ''' </summary>    ''' <param name="SerialPortmandStr">命令内容</param>    ''' <remarks>写入命令字符串</remarks>    Public Overloads Sub SerialPortWrite(ByVal SerialPortmandStr As String)        SerialPort.Write(SerialPortmandStr)    End Sub    ''' <summary>    ''' 写入指定数量的命令字节到缓存    ''' </summary>    ''' <param name="Buffer">缓存字节</param>    ''' <param name="Offset">字节偏移量</param>    ''' <param name="Count">写入字节个数</param>    ''' <remarks>写入指定数量的命令字节到缓存</remarks>    Public Overloads Sub SerialPortWrite(ByVal Buffer() As Byte, ByVal Offset As Integer, ByVal Count As Integer)        SerialPort.Write(Buffer, Offset, Count)     End Sub    ''' <summary>    ''' 写入指定数量的命令字符到缓存    ''' </summary>    ''' <param name="Buffer">缓存字符</param>    ''' <param name="Offset">字节偏移量</param>    ''' <param name="Count">写入字符个数</param>    ''' <remarks>写入指定数量的命令字符到缓存</remarks>    Public Overloads Sub SerialPortWrite(ByVal Buffer() As Char, ByVal Offset As Integer, ByVal Count As Integer)        SerialPort.Write(Buffer, Offset, Count)    End Sub#End Region