FoxPro/Visual FoxPro - Balanza con puerto Serial

 
Vista:

Balanza con puerto Serial

Publicado por Nelson Ayala (1 intervención) el 25/10/2003 19:44:19
Deseo saber como obtener un dato de una balanza que posee un puerto serial, para luego pasarlo a un text de un formulario.
Les agradeceria mucho.
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

RE:Balanza con puerto Serial

Publicado por Adolfo Vanegas R (11 intervenciones) el 25/10/2003 21:30:55
Este proceso..no es facil..en Visual F..ya que no se puede manejar directo..el entorno..de la balanza..y el puerto..serial

Lo mejor en en C++..el resultado de la balanza..lo manejas..desde ahi a un archivo .TXT..y ese....lo lees..desde Visual F..lo unico..es que debes de hacer..en C++..es un while..que lea el puerto siempre ..para que lo que de el display muestra en la balanza..se pase al texto..y el texto..lo lea Visual F
con esto ese archivo TXT..se renueva..siempre..cada que el peso cambie en la balanza
o no usar Visual F..si no todo en C++..depende
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
-1
Comentar

RE:Balanza con puerto Serial

Publicado por Plinio (7841 intervenciones) el 27/10/2003 02:44:09
Si puedes usar Visual foxpro, chequea en la ayuda el activex mscomm32
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Balanza con puerto Serial

Publicado por Paulo Devai (6 intervenciones) el 25/11/2003 21:57:44
Es muy fácil leer un puerto COM desde VFP, usando el siguiendo código:
1
2
3
4
5
6
7
8
oCom = CreateObject('MSCOMMLIB.MSCOMM')
oCom.CommPort = 1		&& Número del puerto
oCom.Settings	= "1200,N,8,1"  && Seteo de velocidad,paridad,bit de datos,bit stop
oCom.PortOpen	= .T.		&& Abre el puerto
oCom.InBufferCount = 0
Wait TimeOut 1			&& Lee durante 1 segundo
lcPeso = oCom.Input  		&& Almacena la lectura en una variable
oCom.PortOpen = .F.		&& Cierra el puerto

Nota: debe estar presente en el sistema la librería MSCOMM32.OCX

Después se debe tener en cuenta la longitud de datos que tiene la balanza, para extraer de la variable la parte que representa el peso.
Espero que aun sea de ayuda.

Paulo Devai
[email protected]
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar

RE:Balanza con puerto Serial

Publicado por CARLOS CUBILLOS (2 intervenciones) el 28/07/2015 01:59:47
MUCHAS GRACIAS. DIOS TE BENDIGA.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Balanza con puerto Serial

Publicado por Luis (1 intervención) el 05/02/2019 19:43:26
Gracias!!!!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Balanza con puerto Serial

Publicado por Daniel (3 intervenciones) el 16/09/2019 17:11:07
Perfecto el código, muchas gracias.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar