FoxPro/Visual FoxPro - Bascula o pesa ......No logro solucionarlo

estoy tratando de leer los datos de una bascula o pesa electronica a travez del com 1., baje un ejemplo de esta pagina , pero no funciona, lei las caracteristicas del control ole que me regula los puertos com 1 , los entendi , pero aun asi no logro hacer funcionar el sistema , baje esl siguiente codigo pero tengo problemas , me arroja errores..
Si alguien me pudiera ayudar , estoy diseñando un sistema para poder clasificar mis productos de acuerdo a un peso determinado, que tengop que leer de una pesa o bascula digital.
El modulo de clasificacion lo tengo listo, pero no logro leer e interpretar los datos de la bascula me baje varios software ejemplos pero nada , no funciona estoy trabajando con visual foxpro 9.

Este codigo me arroja errores

SET DECIMALS TO 3 && ** Si no, me redondea el peso a 2 decimales
LOCAL el_peso, eran, ns
eran = SET( 'DECIMALS', 1)
ns = SECONDS()
portopen = .T.
inputlen = 8 && LONGITUD SEGUN BASCULA
DO WHILE SECONDS()- nS < 1
output = "W" + CHR(13)
wait window " Verificando ... " nowait
FOR x = 1 TO 100000
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
WAIT WIND el_peso
EXIT
ENDIF

ENDDO
portopen=.f.
ENDWITH

SET DECIMALS TO (eran)

Cual es el error y en que linea?

hola

en la linea donde esta ENDWITH me dice que la epresion no es valida
atte ajvier

Te da error porque no tiene un WITH, estas cerrandolo pero nunca lo abres.

el codigo me lo saque de un lugar del foro , no entiendo en que parte debo abrir con WITH, tal vez le falta algo mas.Ahora no si la libreria mscomm32.ocx funciona en windows xp con foxpro 9.0?

Prueba asi (suponiendo que el objecto del mscomm32 se llama olecontrol1)

SET DECIMALS TO 3 && ** Si no, me redondea el peso a 2 decimales
LOCAL el_peso, eran, ns
eran = SET( 'DECIMALS', 1)
ns = SECONDS()
Thisform.olecontrol1.portopen = .T.
Thisform.olecontrol1.inputlen = 8 && LONGITUD SEGUN BASCULA
DO WHILE SECONDS()- nS < 1
Thisform.olecontrol1.output = "W" + CHR(13)
wait window " Verificando ... " nowait
FOR x = 1 TO 100000
ENDFOR
wait window " Ok " nowait
el_peso = Thisform.olecontrol1.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
WAIT WIND el_peso
EXIT
ENDIF

ENDDO
Thisform.olecontrol1.portopen=.f.

instale foxpro 6.0 y Solucione el problema, gracias por tu ayuda.

Atte Javier

enviame los datos tecnicos del indicador digital, yo tengo varias rutinas de comunicacion para bascula que funcionan en fox 9.0