Programación Específica > Programación de Aplicaciones para Dispositivos

 Codigo De Barras

(1/2) > >>

Gelion:
Estoy haciendo una aplicacion para una fabrica, donde los empleados traen su tarjeta con codigo de barras, esta, la pasan por el lector y una aplicacion hecha en visualbasic guarda el ID y la hora de salida o la de ingreso

Mi pregunta es como funciona el detector de codigo de barras conectado al puerto serie, si alguien me puede ayudar, ya sea que me expliquen como funciona el hardware o en el mejor de los casos tengan algun codigo fuente en VisualBasic o C++ (yo lo emigro) se los agradeceria.

espero sus respuestas.

© Jonathan ©:
Eso depende del detector de codigos de barras... dependiendo del modelo y fabricante es como envia los mensajes a los conectores seriales o paralelos, deberias buscar las hojas de datos del detector que vos usaras. Saludos :hola:

Gelion:
Tienes razon, hablare con el jefe se sistemas de la planta o el de departamento tecnico

Gracias Jonathan

wakowarner:
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

pdjazr:
Y mejor por que no usas lectores que se conectan al teclado y te olvidas de las conexiones serie...y solo te preocupas de la aplicacionVB

saludos

http://www21.brinkster.com/pdjazr/inicio1.asp

Navegación

[0] Índice de Mensajes

[#] Página Siguiente