在VB.net中的代码中创建串行端口

发布时间：2020-12-17 00:04:28 所属栏目：大数据来源：网络整理

导读：我正在尝试使用代码在VB.net中创建一个串口.因为我正在创建一个类库,所以我无法使用内置组件.我试过实例化一个新的SeialPort()对象,但这似乎还不够.我确信有一些简单的我想念,任何帮助将不胜感激！谢谢！附：我应该补充一点,我此时遇到的问题是获取代码来处

我正在尝试使用代码在VB.net中创建一个串口.因为我正在创建一个类库,所以我无法使用内置组件.我试过实例化一个新的SeialPort()对象,但这似乎还不够.我确信有一些简单的我想念,任何帮助将不胜感激！谢谢！

附：我应该补充一点,我此时遇到的问题是获取代码来处理datareceived事件.除此之外,它可能正在起作用,但由于这个问题我无法分辨.

如果要使用事件,请确保使用’withevents’声明serialPort对象.下面的示例将允许您连接到串行端口,并将使用接收的字符串引发事件.

Imports System.Threading

Imports System.IO

Imports System.Text

Imports System.IO.Ports


Public Class clsBarcodeScanner

Public Event ScanDataRecieved(ByVal data As String)
WithEvents comPort As SerialPort

Public Sub Connect()
    Try
        comPort = My.Computer.Ports.OpenSerialPort("COM5",9600)
    Catch
    End Try
End Sub

Public Sub Disconnect()

    If comPort IsNot Nothing AndAlso comPort.IsOpen Then
        comPort.Close()
    End If

End Sub

Private Sub comPort_DataReceived(ByVal sender As Object,ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles comPort.DataReceived
    Dim str As String = ""
    If e.EventType = SerialData.Chars Then
        Do
            Dim bytecount As Integer = comPort.BytesToRead

            If bytecount = 0 Then
                Exit Do
            End If
            Dim byteBuffer(bytecount) As Byte


            comPort.Read(byteBuffer,bytecount)
            str = str & System.Text.Encoding.ASCII.GetString(byteBuffer,1)

        Loop
    End If

    RaiseEvent ScanDataRecieved(str)

End Sub
End Class

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!