Básculas Torrey LSQ-40

[Franklin Maza Pineda]

Amigos del grupo alguien sabe si es posible leer los datos de las Básculas Torrey LSQ-40 por el puerto Serial. GRACIAS

[Carlos Alfaro]

Saludos cordiales:

 

Por lo que se, esas basculas tienen su propio software y no tiene SDK para que uno pueda crear uno propio para administrarlas.

 

Buen día.

 

 

Carlos Alfaro

[Diego Fazio]

Usualmente las balanzas tienen un protocolo similar por compatibilidad. Trabaje con varias marcas y modelos y no encontre alguna que no cumpliera con esto que te comento. Especificamente la tuya no la conozco. Pero te paso un formato que lo podrias comprobar conectando tu balanza al puerto serie y visualizar con algun monitor si el formato se asemeja. 8N1 suele ser la configuracion por defecto del puerto serie. 

• ”el05” < estatus >< peso >< CR >< estatus > 1byte :

7 6 5 4 3 2 1 0 No de bit

0 1 0 · · · · X 0 = Peso Bruto / 1 = Peso Neto

0 1 0 · · · X · 1 = Centro de Cero divisi´on

0 1 0 · · X · · 0 = Peso en movimiento / 1 = Peso en Equilibrio

0 1 0 · X · · · 0 = Peso positivo / 1 = Peso negativo

0 1 0 X · · · · 0 = funcionamiento normal / 1 = Fuera de Rango

<peso>: 6 caracteres sin punto decimal, con ceros a la izquierda

<CR> : 0Dh

• ”cond”(Condec) < STX >< pol >< peso >< K/L >< G/N >< estatus >< CR >< LF >

<TX>: 02h

<pol>: espacio (20h) = peso positivo / signo - (2Dh) = peso negativo

<peso>: 7 caracteres justificados a la derecha, con punto decimal (2Eh), y ceros a la izquierda transmitidos

como espacios (20h) excepto el cero que precede al punto decimal.

Ejemplo: ··123.4 / ···0.00 / ······0

<K/L> K = kilogramo / L = libra

<G/N> G = peso bruto / N = peso neto

<estatus> O = overfl ow / M = movimiento / espacio (20h) = peso valido

<CR> <LF> 0Dh 0Ah

Diego.

[Diego Fazio]

Te agrego este link donde detalla algo respecto al formato del los datos que se envian especificamente de la marca de la balanza que comentas. 

http://www.torrey.net/docs/mexico/fabatsa/leq/276-leq-manual-usuario.pdf

Diego.

[Juan Pablo Iparraguirre Iparraguirre]

Prueba con este codigo compatible con torrey, lo tengo en produccion.

oCom = CreateObject('MSCOMMLIB.MSCOMM')
oCom.CommPort = 5 && Puerto COM conectado a la balanza
oCom.Settings = "9600,N,8,1" &&Configuracion de COM de la balanza
oCom.PortOpen = .T. && Abrimos la comunicacion
oCom.Output = 'P' &&Envio peticion de datos
WAIT '' TimeOut 0.1
Thisform.edt2.value = oCom.Input && Capturo los datos
Thisform.txt5.Value = CAST(VAL(Thisform.edt2.Value) as n(10,3)) && Transformo los datos
oCom.PortOpen = .F. &&Cierro la conexion.
RELEASE oCom

[Franklin Maza Pineda]

Hola amigo

HE probado el codigo

Pero me retorna 0.00

[Carlos Alfaro]

Saludos cordiales:

 

En Thisform.edt2.value te muestra 0.00?

 

Aunque es posible, son pocos los equipos que se limitan a enviar solo eso.

 

Buen día.

 

 

Carlos Alfaro

 

From: publice...@googlegroups.com [mailto:publice...@googlegroups.com] On Behalf Of Franklin Maza Pineda

Sent: martes, 13 de noviembre de 2018 08:51 a.m.
To: Comunidad de Visual Foxpro en Español

Subject: [vfp] Re: Básculas Torrey LSQ-40

 

Hola amigo

HE probado el codigo

Pero me retorna 0.00

 

 

El viernes, 9 de noviembre de 2018, 18:31:42 (UTC-5), Juan Pablo Iparraguirre Iparraguirre escribió:

Prueba con este codigo compatible con torrey, lo tengo en produccion.

 

oCom = CreateObject('MSCOMMLIBMSCOMM')

oCom.CommPort = 5 && Puerto COM conectado a la balanza
oCom.Settings = "9600,N,8,1" &&Configuracion de COM de la balanza
oCom.PortOpen = .T. && Abrimos la comunicacion
oCom.Output = 'P' &&Envio peticion de datos
WAIT '' TimeOut 0.1
Thisform.edt2.value = oCom.Input && Capturo los datos
Thisform.txt5.Value = CAST(VAL(Thisform.edt2.Value) as n(10,3)) && Transformo los datos
oCom.PortOpen = .F. &&Cierro la conexion.
RELEASE oCom

 

El martes, 23 de octubre de 2018, 10:10:03 (UTC-5), Franklin Maza Pineda escribió:

Amigos del grupo alguien sabe si es posible leer los datos de las Básculas Torrey LSQ-40 por el puerto Serial. GRACIAS