FoxPro/Visual FoxPro - CODIGO PARA LEER EL PESO DE BASCULA

   
Vista:

CODIGO PARA LEER EL PESO DE BASCULA

Publicado por HUGO (207 intervenciones) el 21/03/2010 06:40:41
Amigos de la web, llevo toda una semana buscando haciendo pruebas con varios codigos para que me pueda dar la bascula como resultado el "PESO" del producto y no me da ningun resultado

1.- Tengo la bascula Torrey MFQ
2.- Cable serial RS-232
3.- MSCOMM

Este es el codigo que tengo en una forma en un boton y en el evento Click:

Nota: no da ningun error pero tampoco da resultado del Pesaje.

que me falta.?

SET DECIMALS TO 3 && ** Si no, me redondea el peso a 2 decimales
LOCAL el_peso, eran, ns

eran = SET( 'DECIMALS', 1)

WITH THISFORM.oleBascula && *** el nombre del objeto MSCOMM32

ns = SECONDS()
.portopen = .T.
.inputlen = 8 && LONGITUD SEGUN BASCULA

DO WHILE SECONDS()- nS < 1 && ** Un loop para leer el puerto
.output = "W" + CHR(13) && ** La orden que exige el fabricante de la bascula
&& es parte del estandar NCI
wait window " Verificando ... " nowait
FOR x = 1 TO 100000 && ** Haciendo tiempo y esperando...

ENDFOR

* wait window " Ok " nowait
el_peso = .input && ** Aqui esta el peso medido
el_peso = RIGHT( el_peso, LEN( el_peso) - 1)
el_peso = INT(VAL( LEFT( el_peso, 7)))

IF el_peso > 0
THISFORM.txtPeso.Value = el_peso

EXIT
ENDIF

ENDDO
.portopen=.f.
ENDWITH

SET DECIMALS TO (eran)
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