Problemas al leer peso de la báscula

Creo que la velocidad de transmision es muy baja, (es muy rapido el "1 To config.tiempo " y no le
da tiempo)
creo que 9600 seria una velocidad mas adecuada . Ademas controla las veces de lectura con un delay
entre mediciones.
saludos


Ernesto R. Leonardelli
Mar del Plata
Argentina

"Desarrollo" escribió en el mensaje
news:
De antemano gracias por todos los comentarios recibidos, soy nuevo en esto
de los puertos y de la programacion visualen pocas palabras soy NOVATO

Tengo un problema al querer leer el peso de la báscula, en ocaciones se lee
el peso correcto pero en ocaciones se lee incorrecto.

peso indicado en el lector: 35780KG
peso leido del puerto: 35780 correcto
: 780 incorrecto
: 0 incorrecto
: 3 incorrecto
: 578 incorrecto

El lector de la báscula que estoy utilizando es un GSE-455

Este código lo tome de la pagina de portalfox y lo inserte en el clic de un
boton.
Local cvalor
Thisform.olebascula.commport=Thisform.conte.combo5.ListItemId && seria el
COM1
Thisform.olebascula.settings Thisform.conte.combo1.Value+","+Thisform.paridad(Thisform.conte.combo3.ListI
temId)+","+Thisform.conte.combo2.Value+","+ ;
thisform.conte.combo4.Value
** 1200,n,7,2
Thisform.olebascula.inputMode=0
Thisform.olebascula.portOpen=.T.
Thisform.olebascula.inputLen=0
cvalor=""
For i=1 To config.tiempo && doden config.tempo es de 1 a xnúmero (1 a 2500)
cvalor=cvalor+Thisform.olebascula.Input
Endfor
Thisform.olebascula.portOpen=.F.
thisform.txtpeso.Value=VAL(substr(cvalor,at(chr(2),cvalor)+1,8))
replace bascula.peso WITH thisform.txtpeso.Value

El programa donde se capturan los datos esta hecho en clipper
USE BASCULA
DO WHILE .T.
PATI=PESO
@ 13,23 SAY PATI PICTURE "999,999,999"
SKIP
TECLA=INKEY()
IF TECLA
EXIT
ENDIF
GO BOTTOM
ENDDO
USE


Este es mi pequeño gran problema, espero comentarios al respecto y nuvamente
les doy las gracias por los comentarios recibidos ...

Gracias, hare las pruebas necesarias ...


saludos

Otra cosita... investiga si el seteo es el correcto, lo normal es n,8,1 o se 8 bit de datos y
uno de paridad

Saludos
Ernesto R. Leonardelli
Mar del Plata
Argentina
"Desarrollo" escribió en el mensaje
news:
De antemano gracias por todos los comentarios recibidos, soy nuevo en esto
de los puertos y de la programacion visualen pocas palabras soy NOVATO

Tengo un problema al querer leer el peso de la báscula, en ocaciones se lee
el peso correcto pero en ocaciones se lee incorrecto.

peso indicado en el lector: 35780KG
peso leido del puerto: 35780 correcto
: 780 incorrecto
: 0 incorrecto
: 3 incorrecto
: 578 incorrecto

El lector de la báscula que estoy utilizando es un GSE-455

Este código lo tome de la pagina de portalfox y lo inserte en el clic de un
boton.
Local cvalor
Thisform.olebascula.commport=Thisform.conte.combo5.ListItemId && seria el
COM1
Thisform.olebascula.settings Thisform.conte.combo1.Value+","+Thisform.paridad(Thisform.conte.combo3.ListI
temId)+","+Thisform.conte.combo2.Value+","+ ;
thisform.conte.combo4.Value
** 1200,n,7,2
Thisform.olebascula.inputMode=0
Thisform.olebascula.portOpen=.T.
Thisform.olebascula.inputLen=0
cvalor=""
For i=1 To config.tiempo && doden config.tempo es de 1 a xnúmero (1 a 2500)
cvalor=cvalor+Thisform.olebascula.Input
Endfor
Thisform.olebascula.portOpen=.F.
thisform.txtpeso.Value=VAL(substr(cvalor,at(chr(2),cvalor)+1,8))
replace bascula.peso WITH thisform.txtpeso.Value

El programa donde se capturan los datos esta hecho en clipper
USE BASCULA
DO WHILE .T.
PATI=PESO
@ 13,23 SAY PATI PICTURE "999,999,999"
SKIP
TECLA=INKEY()
IF TECLA
EXIT
ENDIF
GO BOTTOM
ENDDO
USE


Este es mi pequeño gran problema, espero comentarios al respecto y nuvamente
les doy las gracias por los comentarios recibidos ...

Otra cosita... investiga si el seteo es el correcto, lo normal es n,8,1 ... pero depende de tu
aplicacion

Saludos
Ernesto R. Leonardelli
Mar del Plata
Argentina
"Desarrollo" escribió en el mensaje
news:
De antemano gracias por todos los comentarios recibidos, soy nuevo en esto
de los puertos y de la programacion visualen pocas palabras soy NOVATO

Tengo un problema al querer leer el peso de la báscula, en ocaciones se lee
el peso correcto pero en ocaciones se lee incorrecto.

peso indicado en el lector: 35780KG
peso leido del puerto: 35780 correcto
: 780 incorrecto
: 0 incorrecto
: 3 incorrecto
: 578 incorrecto

El lector de la báscula que estoy utilizando es un GSE-455

Este código lo tome de la pagina de portalfox y lo inserte en el clic de un
boton.
Local cvalor
Thisform.olebascula.commport=Thisform.conte.combo5.ListItemId && seria el
COM1
Thisform.olebascula.settings Thisform.conte.combo1.Value+","+Thisform.paridad(Thisform.conte.combo3.ListI
temId)+","+Thisform.conte.combo2.Value+","+ ;
thisform.conte.combo4.Value
** 1200,n,7,2
Thisform.olebascula.inputMode=0
Thisform.olebascula.portOpen=.T.
Thisform.olebascula.inputLen=0
cvalor=""
For i=1 To config.tiempo && doden config.tempo es de 1 a xnúmero (1 a 2500)
cvalor=cvalor+Thisform.olebascula.Input
Endfor
Thisform.olebascula.portOpen=.F.
thisform.txtpeso.Value=VAL(substr(cvalor,at(chr(2),cvalor)+1,8))
replace bascula.peso WITH thisform.txtpeso.Value

El programa donde se capturan los datos esta hecho en clipper
USE BASCULA
DO WHILE .T.
PATI=PESO
@ 13,23 SAY PATI PICTURE "999,999,999"
SKIP
TECLA=INKEY()
IF TECLA
EXIT
ENDIF
GO BOTTOM
ENDDO
USE


Este es mi pequeño gran problema, espero comentarios al respecto y nuvamente
les doy las gracias por los comentarios recibidos ...