Criando uma porta serial em código em VB.net

Question

Eu estou tentando criar uma porta serial no VB.net usando apenas código. Porque eu estou criando uma biblioteca de classes que não posso usar o componente embutido. Eu tentei instanciar um novo objeto SeialPort (), mas isso não parece ser suficiente. Eu tenho certeza que há algo simples que eu estou ausente e qualquer ajuda seria muito apreciada! Obrigado!

P.S. Devo acrescentar que o problema que estou tendo neste momento é conseguir o código para manipular o evento DataReceived. Outros, que pode estar trabalhando, mas eu não posso dizer, porque desse problema.

Answer 1

Se você quiser usar os eventos certifique-se de declarar seu objeto SerialPort usando os 'WithEvents'. O exemplo abaixo permitirá que você se conectar a uma porta serial, e vai elevar um evento com a seqüência recebida.

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

Eu encontrei este artigo para ser muito bom.

O código i escreveu a partir dele é:

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
}

Desculpe-lo de C #, mas ...

O único problema que tenho com ele é se a porta cair enquanto ele estiver aberto, o aplicativo parece falhar na saída.

Answer 3

Obrigado a todos por sua ajuda, especialmente a resposta sobre instanciar uma classe usando a palavra-chave WithEvents.

Eu encontrei um ótimo artigo que explica como criar uma classe gerente para a porta serial. Ele também discute o envio de binário, bem como dados Hex à porta serial. Foi bastante útil.

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

Answer 4

Eu tenho usado a classe SerialPort .Net em um projeto passado e eu funcionou bem. Você realmente não precisa de mais nada. Verifique a configuração do hardware no painel de controle e verifique se você instanciar a classe com os mesmos parâmetros.