建立一个序列港口，在代码中VB.net

Question

我试图建立一个序列的港口VB.net 使用代码只。因为我创造一类图书馆我不能使用的内在组成部分。我已经试过实例，一个新的SeialPort()对象，但这似乎不够。我敢肯定有什么简单我是失踪和任何帮助，将不胜感激！谢谢！

P.S.我应该加入这个问题我有在这个时候得到代码处理datareceived事件。除此之外，它可以工作，但是我不能告诉因为这一问题。

Answer 1

如果你想使用的事件，确保您声明使用“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, 0, bytecount)
            str = str & System.Text.Encoding.ASCII.GetString(byteBuffer, 0, 1)

        Loop
    End If

    RaiseEvent ScanDataRecieved(str)

End Sub
End Class

Answer 2

我找到了 这篇文章 是相当不错的。

代码我写的是：

port = new System.IO.Ports.SerialPort(name, 4800, System.IO.Ports.Parity.None, 8, System.IO.Ports.StopBits.One);
port.DataReceived += new System.IO.Ports.SerialDataReceivedEventHandler(port_DataReceived);
port.Open();

void port_DataReceived(object sender, System.IO.Ports.SerialDataReceivedEventArgs e)
{
    buffer = port.ReadLine();
    // process line
}

对不起这是C#但是...

唯一的问题，我已经有了它是如果港口是下降的话，它是开放的，该应用程序似乎无法在出口。

Answer 3

感谢大家的帮助，尤其是在回答有关使用WithEvents关键字实例化一个类。

我发现了一个真正伟大的文章，解释了如何创建一个管理器类串行端口。它还讨论发送二进制以及十六进制数据到串行端口。这是相当有帮助的。

http://www.dreamincode.net/forums/showtopic37361.htm

Answer 4

我用一个串口.NET类在过去的项目，我工作得很好。你真的不需要其他任何东西。检查控制面板中的硬件设置，确保您实例化类具有相同的参数。