Cómo utilizar VB para crear un verificador de código de barras simple y una entrada de pistola de escaneo. . Ver imagen para más detalles.
La entrada del escáner que he usado es la entrada com. Simplemente agregue el control MSComm en VB. Seleccione el com que se identifica como com en el administrador de dispositivos.
Al escanear, el control MSComm tiene un evento comEvReceive, que se puede utilizar como evento desencadenante. Por ejemplo, el nombre del control es MSComm1
Si hay un evento desencadenante en MSComm1_OnComm. (), puede declarar un tipo de carácter para aceptar MSComm1.input
Es posible que esta entrada deba procesarse según los diferentes escáneres para obtener el valor real del código de barras que necesita
Por supuesto, ¿Qué te da exactamente la pistola de código de barras? Puedes ir al Hyper Terminal que viene con Windows y ver
Con este valor de código de barras, puedes escribir el título correspondiente en otro cuadro de texto o controles de etiqueta en la segunda tabla. correspondiente a tu imagen, no es más que un juicio de caso
No es tan complicado si no agregas una conexión a la base de datos
No es suficiente hablar con palabras sencillas. Lo siguiente se basa en el valor del código de barras de Motorora Symbol P370/470. Parte del procesamiento se escribe directamente en OnComm. Process_no es el juicio de ver este número y realizar el procesamiento correspondiente. Puede comenzar desde cero y escribir una llamada cuando llegue el momento. viene
Sub privada MSComm1_OnComm()
Dim st como cadena
Si MSComm1.CommEvent = comEvReceive Entonces
st = MSComm1. Entrada
Si st <> Chr(3) Entonces
st_all = st_all + st
De lo contrario
Txt_Pt.Text = Trim( Mid(st_all, InStr(st_all, Chr(2)) + 1, 10))
st_all = ""
Process_no
Fin si
End If
End Sub
Los anteriores son solo ejemplos de eventos y valores que reciben com. No es necesario consultarlos para juzgar. lea los valores recibidos en st y luego asigne un valor a la variable global st_all (de lo contrario, no habrá lugar para registrar el valor del código de barras que usará más adelante)
No podemos hacer nada por personas que no son com entradas