Que tal amigos, como les va en esta carrera tan pensante jeje. Desde hace unos dias me entregaron un CM1000 para que le creara un sistema sencillo, este equipo viene con un sistema de inventario sencillo que no permite leer a través del scanner menos de 8 caracteres, wow, resulta que necesitabamos leer uno de 6 caracteres. Investigando, les coloco aqui los pasos y detalles de herramientas utilizadas:
Herramientas utilizadas
1.- Visual basic .Net 2003 (se que es antiguo pero era lo que tenia a mano para poder programar rapido, cero instaladera :-)), pueden realizarlo con la version mas actualizada que tengan.
2.-Descargar el EMDK de Symbol, estas son las librerías que nos permiten activar el scanner en visual basic. Lo descargué aqui https://docs.symbol.com/KanisaPlatform/Publishing/853/12262_f.html, es una version mas antigua por la utilización del VB2003, pero ustedes deben descargar la version segun el VB que esten utilizando.
3.-Descargar de la pagina de microsoft el .net compact framework.
Pasos:
1.-Instalación del EMDK en la máquina: una vez instalado ir a visual basic->hacer click en la barra de controles->agregar o quitar elementos -> "ruta instacion VB2003" -> compactframeworksdk->"laversioncorrespondiente"->windowsce->designer-> Seleccionar el Symbol.barcode.design.dll -> Abrir. Esto nos permite agregar el control para activar el scanner en nuestro programa.
2.-Instalar el compact framewor en la maquina, durante el proceso de instalacion el programa (valga la redundancia) instalara en el dispositivo los archivos necesarios, deben estar pendiente a los mensajes en pantalla.
Myreader es el control barcodereader que agreque.
Private Sub codigotxt_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles codigotxt.LostFocus
MyReader.Stop() 'si el foco se va del formulario desactivo scanner
MyReader.Dispose()
End Sub
Private Sub codigotxt_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles codigotxt.GotFocus
Me.MyReader = New Symbol.Barcode.BarcodeReader 'si el foco esta en el codigo activo scanner
MyReader.Start()
End Sub
'En este sub paso la data del scanner al textbox
Private Sub MyReader_ListChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ListChangedEventArgs) Handles MyReader.ListChanged
codigotxt.Text = MyReader.ReaderData.Text()
End Sub
Luego, para probarlo en visual basic, le digo implentar en dispositivo. Hay que tener mucho cuidado cuando se instalan las librerias, porque me sucedio que tuve que reinstalar desde la pc porque no tomaba los cambios.
Esta es una explicacion un poco rapida, cualquier cosa, escribanme con gusto tratare de ayudarles.
