Yo tengo un codigo (en realidad son muchos), pero son muy extensos, ya que en mi trabajo utilizo muchos scanners de codigos de barras, basicamente le tienes que configurar al scanner (esto es con una hoja de programacion) el preambulo y el postambulo, la velocidad, el control de flujos (si lleva o no lleva y si es por hardware o software) , cantidad de bits, paridad par o impar, etc. pero basicamente tiene que leer de un buffer y esperar el retorno de carro (CARACTER 13) y vaciar el buffer a un variable
Te dejo un extracto de un evento OnCom de una aplicacion que tengo en Visual Basic
Private Sub MSCom_OnComm()
'//Recibe los codigos del Scaner y les da el seguimiento adecuado
Buffer = Buffer & MSCom.Input
If Right(Buffer, 1) = Chr(13) Then
Buffer = Left(Buffer, Len(Buffer) - 1)
If Len(Buffer) > 5 Then
If Pointer = 1 Then
txtBatch.Text = Buffer
Call txtBatch_KeyUP(13, 0)
Else
txtBadge.Text = Left(Buffer, Len(Buffer) - 1)
UserFlag = True
Call txtBadge_KeyUP(13, 0)
End If
Else
'**Buffer < 6, pueden escanear un lid o una cspec
End If
Buffer = "" '//Vacio buffer despues de recibir chr(13)
End If
End Sub
