建立一个序列港口,在代码中VB.net
-
11-07-2019 - |
题
我试图建立一个序列的港口VB.net 使用代码只。因为我创造一类图书馆我不能使用的内在组成部分。我已经试过实例,一个新的SeialPort()对象,但这似乎不够。我敢肯定有什么简单我是失踪和任何帮助,将不胜感激!谢谢!
P.S.我应该加入这个问题我有在这个时候得到代码处理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, 0, bytecount)
str = str & System.Text.Encoding.ASCII.GetString(byteBuffer, 0, 1)
Loop
End If
RaiseEvent ScanDataRecieved(str)
End Sub
End Class
其他提示
我找到了 这篇文章 是相当不错的。
代码我写的是:
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#但是...
唯一的问题,我已经有了它是如果港口是下降的话,它是开放的,该应用程序似乎无法在出口。
感谢大家的帮助,尤其是在回答有关使用WithEvents关键字实例化一个类。
我发现了一个真正伟大的文章,解释了如何创建一个管理器类串行端口。它还讨论发送二进制以及十六进制数据到串行端口。这是相当有帮助的。
我用一个串口.NET类在过去的项目,我工作得很好。你真的不需要其他任何东西。检查控制面板中的硬件设置,确保您实例化类具有相同的参数。
不隶属于 StackOverflow