mscomm32.ocx - Una Verdadera Odisea

10/02/2005 - 02:49 por Juan Tavare | Informe spam
Hola Grupo, Cordial Saludo

A quien me pueda ayudar

Tengo un Pos en un supermercado, el cual no he podido poner a funcionar los
los lectores de barras metrologic 860i, debido a que he intentado por todos
los medios de configurarle a mi formulario el control MsComm32 y no he
podido, quien me pueda ayudar con un ejemplo lo mas completo posible muchas
gracias, de verdad que me saca de muchos problemas, las instrucciones
aplicadas son las siguientes:

en el init del formulario agregue las siguientes instrucciones

*-
* PARAMETROS PARA ACTIVAR LECTOR DE BARRAS
*-
ThisForm.LectorBarras.CommPort = TCONFIG.Commport && 1
ThisForm.LectorBarras.Settings = ALLTRIM(TCONFIG.Settings) &&"9600,n,8,1"
ThisForm.LectorBarras.RThreshold = 13
Thisform.LectorBarras.InBufferSize = 1024
Thisform.LectorBarras.OutBufferSize = 1024
Thisform.LectorBarras.InputLen = 13
ThisForm.LectorBarras.PortOpen = .T.
*-

En el mscom32, en el onComm tengo:

IF ThisForm.LectorBarras.commevent = 2
THISFORM.Operacion.VALUE = ALLTRIM(THISFORM.LECTORBARRAS.INPUT)
ENDIF

pero cuando paso un producto por el lector, el sistema no lee absolutamente
nada


gracias a quien me pueda ayudar


Juan T.
 

Leer las respuestas

#1 Luis María Guayán
10/02/2005 - 12:40 | Informe spam
Mira esta clase, tiene un formulario de ejemplo con lectura de una pistola.

http://www.portalfox.com/modules.ph...ls&lid6&ttitle=ViewComm

Luis María Guayán
Tucumán, Argentina
________________________________
SysOp de www.PortalFox.com
Microsoft Visual FoxPro MVP
________________________________
La palabra imposible solo figura
en el diccionario de los tontos

"Juan Tavare" escribió en el mensaje
news:
Hola Grupo, Cordial Saludo

A quien me pueda ayudar

Tengo un Pos en un supermercado, el cual no he podido poner a funcionar


los
los lectores de barras metrologic 860i, debido a que he intentado por


todos
los medios de configurarle a mi formulario el control MsComm32 y no he
podido, quien me pueda ayudar con un ejemplo lo mas completo posible


muchas
gracias, de verdad que me saca de muchos problemas, las instrucciones
aplicadas son las siguientes:

en el init del formulario agregue las siguientes instrucciones

*-
* PARAMETROS PARA ACTIVAR LECTOR DE BARRAS
*-
ThisForm.LectorBarras.CommPort = TCONFIG.Commport && 1
ThisForm.LectorBarras.Settings = ALLTRIM(TCONFIG.Settings) &&"9600,n,8,1"
ThisForm.LectorBarras.RThreshold = 13
Thisform.LectorBarras.InBufferSize = 1024
Thisform.LectorBarras.OutBufferSize = 1024
Thisform.LectorBarras.InputLen = 13
ThisForm.LectorBarras.PortOpen = .T.
*-

En el mscom32, en el onComm tengo:

IF ThisForm.LectorBarras.commevent = 2
THISFORM.Operacion.VALUE = ALLTRIM(THISFORM.LECTORBARRAS.INPUT)
ENDIF

pero cuando paso un producto por el lector, el sistema no lee


absolutamente
nada


gracias a quien me pueda ayudar


Juan T.

Preguntas similares