Visual Basic - Codigo de Barras

Life is soft - evento anual de software empresarial
 
Vista:

Codigo de Barras

Publicado por Earnhardth JR. (5 intervenciones) el 26/06/2006 03:43:13
Hola
Alguna idea,
estoy haciendo un sistema para un super.
tengo un lector de codigo de barras lo que quiero es que cuando sea leido el codigo y aparescan los 13 numeros en el texbox se procese la accion de busqueda en la bd automaticamente

"q se introdusca automaticamente. "
"esta accion sin hacer click en un boton de comando aceptar codigo"

NO C SI ME ENTIENDEN q al hacer bip el codigo se introdusca automatico desaparesca qde listo para el sig producto.

lo de la busqueda en la bd y todo lo demas ya lo tengo realizado..

MIL GRACIAS
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Codigo de Barras

Publicado por llo_mysm4 (28 intervenciones) el 26/06/2006 10:44:20
en el evento change del cuadro de texto, donde se escribe lo que lee el lector, le pones:
if len(text1.text) = 13 then consulta
13 sería la longitud de los códigos de barras...
y una vez que el lector escriba 13 caracteres te procederá a realizar la consulta
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Codigo de Barras

Publicado por DANIEL (27 intervenciones) el 27/06/2006 00:00:26
Debes considerar 2 cosas
la primera:
el lector de codigo de barras, debe estar configurado de tal manera que al hacer el beep haga un retorno de carro o comunmente que al hacer Beep sea como si se diera un ENTER.

La segunda:
en el text debes programar su evento KeyPress este envento tiene la funcion de ejecutar codIgo una vez que identifica que la tecla que presionas EJEMPLO enter (no necesariamente la tienes que teclear en fisico)

+EJEMPLO PUEDES COPIAR ESTO A UN FORM
CON UN TEXT Y UN COMMAND

Private Sub Command1_Click()
MsgBox "CODIGO DE BUSQUEDA"

End Sub

Private Sub Text1_Change()

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
'LLAMAS AL CODIGO DE UN BOTON (ES COMO SI DIERAS UN ENTER)
Call Command1_Click
'LLAMAS EL CODIGO DE UNA FUNCION ( AQUI PUEDES TRABAJAR CON
'PARAMETROS)
'Call FUNCION_BUSCAR
End If

End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar