Leer Codigo de barras VB. Net



#Region "COMM Port"
'//Verificamos si se encuentra abierto el puerto COMM y si es así lo cerramos para abrirlo con
'// las características específicas de nuestro lector
Public Sub OpenPort()
If SerialPort.IsOpen Then
SerialPort.Close() 'Se evalua si esta abierto el puerto para cerrarlo
End If

'Se trata de realizar la apertura del puerto en base a las siguientes características
Try
With SerialPort
.PortName = "COM1"
.BaudRate = 9600
.Parity = IO.Ports.Parity.None
.DataBits = 8
.StopBits = IO.Ports.StopBits.One
End With
SerialPort.Open() 'Se abre el puerto
'En caso de alguna falla mandamos llamar una excepción
Catch ex As Exception
MsgBox(ex.ToString)
End Try
End Sub

'//Aquí vamos a manejar los datos recibidos al pasar el lector por el código de barras
Private Sub DataReceived( _
ByVal sender As Object, _
ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) _
Handles SerialPort.DataReceived

Try
txtBarCode.Invoke(New _
myDelegate(AddressOf updateTextBox), _
New Object() {}) 'En este caso el txtBarCode es quien recibira la info
Catch exp As Exception
MessageBox.Show("Error al crear la instancia del puerto", "Reporte de Rastreabilidad", _
MessageBoxButtons.OK, _
MessageBoxIcon.Error)
End Try
End Sub

'//Al usar Invoke se requiere usar un Delegado (myDelegate)
Public Delegate Sub myDelegate() 'Función usada para recibir

'//Función empleada para mostrar el numero de gafete escaneado (txtEmpNum)
Public Sub updateTextBox()
With txtBarCode
.ResetText() 'Borramos el contenido, en caso que lo pasen dos veces
.AppendText(SerialPort.ReadLine) 'Leemos la línea de codigo de barras
.ScrollToCaret()
End With
ValidateEmployee() 'Llamo a la función para validar al empleado
End Sub
#End Region

Algoritmo genetico hecho en java, de haber algun error me gustaria que lo comentaran para poder realizar las correcciones y ayudar a mas personas con este aporte :P

Clic Aqui