Consulta sobre conectar una balanza digital
Marcelo Barberis
Ing.Daniel Bojorge
Saludos,
(Juan 15:7 DHH)
Bendito el varón que se fía en el SEÑOR, y cuya confianza es el SEÑOR.
(Jeremías 17:7 RV2000)
Marcelo Barberis
Marcelo Barberis
El puerto de comunicaciones no puede estar compartido. Si la otra aplicación esta ejecutandose, no te dejara abrier el puerto con la aplicación en VFP
Luis María Guayán
Tucumán, Argentina
_____________________________
http://comunidadvfp.blogspot.com
Luis Maria Guayan
Con esos datos debes configurar el objeto mscomm y tomar los datos retornados por la balanza.
Marcelo Barberis
Ahora para instalar el producto seguimos los siguientes pasos:
en la unidad C crear una nueva carpeta que se llame: Sistema Frigorifico
dentro de ella descomprimir la base de datos y la carpeta conexion
de modo que que quede asi:
C:\Sistema Frigorifico
C:\Sistema Frigorifico\db.accdr ----> para la base de datos
carpeta conexion tiene estos archivos
C:\Sistema Frigorifico\conexion\ABRIR.txt -----> para la conexion a la base de datos
C:\Sistema Frigorifico\conexion\BAUD.txt ------->para dar la velocidad del puerto
C:\Sistema Frigorifico\conexion\PUERTO.txt -------->para dar con qué puero se esta conectando
Lparameters loForm
Try
*!* Verifico que si el puerto está abierto y lo cierro
If Thisform.oleBascula.portOpen Then
Thisform.oleBascula.portOpen =.F.
ENDIF
DOEVENTS FORCE
*!* CARGO LA CONFIGURACIÓN PARA LA BASCULA
*!* Configuro el número del puerto COM
lcIniFile = Sys(5) + Curdir() + "SifProInI.Ini"
lcAux = Alltrim(ReadFileIni(lcIniFile,"Bascula","lnPuertoBascula"))
If Isnull(lcAux) .Or. Empty(lcAux)
lcAux = 1
Endif
Thisform.oleBascula.CommPort = lcAux
*!* Configuro los parámetros para settings
lcAux = Alltrim(ReadFileIni(lcIniFile,"Bascula","lcSettingsBascula"))
If Isnull(lcAux) .Or. Empty(lcAux)
lcAux = "9600,n,8,1"
Endif
Thisform.oleBascula.settings = lcAux
*!* Configuro el número de decimales para el peso si la bascula envía con decimales o no
lcAux = Alltrim(ReadFileIni(lcIniFile,"Bascula","lnDecimalesBascula"))
If Isnull(lcAux) .Or. Empty(lcAux)
lcAux = 0
Endif
If Val(lcAux) > 0
Thisform.txtpeso.InputMask = '9999.' + Replicate('9',Val(lcAux))
Else
Thisform.txtpeso.InputMask = '9999'
Endif
*!* Inicio las variables
Thisform.txtpeso.Value = 0
Thisform.pesocontinuo = 0
Thisform.oleBascula.inputlen = 0
*!* Abro el puerto para e inicio la recepción de datos
Thisform.oleBascula.portOpen=.T.
DOEVENTS FORCE
ThisForm.VecesPesosCero = 0
ThisForm.tmrFrecuencia.Enabled = .T.
Catch To ex
=MessageboxOf("Ocurrio un error al iniciar la báscula, verifique e intente nuevamente...",0+16,"== ERROR DE COMUNICACION ==")
*!* Thisform.timer1.Enabled= .F.
*!* Thisform.timer2.Enabled= .F.
Endtry
Carlos Alfaro
Estimado amigo Marcelo:
Me parece que en la forma que estas trabajando, tenés muchas dudas que resolver.
Te recomiendo que realices los siguientes pasos:
1. Conseguir el manual técnico de la balanza digital.
2. Entender el protocolo de comunicación de la balanza.
3. Conocer las opciones de comunicación de la balanza.
4. Usar un programa genérico de acceso al puerto serial, por ejemplo: Hyperterminal.
5. Al lograr interactuar con la balanza, trabajar y afinar tu programa de comunicación.
Qué pasos de estos has podido realizar?
Por supuesto que podes contar con nuestra ayuda, pero se nos hará mas fácil ayudarte, sabiendo que conoces y que te falta, el mencionar que tenés un error es difícil de guiarte sin saber que camino has recorrido.
Buen día.
Carlos Alfaro
Carlos Alfaro
Después de revisar las balanzas de esa marca, me da la impresión de que 50 Hz son los ciclos de corriente alterna con que trabaja.
From: publice...@googlegroups.com [mailto:publice...@googlegroups.com] On Behalf Of Marcelo Barberis
Sent: jueves, 02 de abril de 2015 09:36 a.m.
To: publicesvfoxpro
Subject: Re: [vfp] Consulta sobre conectar una balanza digital
amigo la balanza digital es TREBOL 50 Hz
El 2 de abril de 2015, 8:50, Ing.Daniel Bojorge <debs....@gmail.com> escribió:
¿Qué tipo, marca o modelo de balanza es?
El miércoles, 1 de abril de 2015, Marcelo Barberis <alexm...@gmail.com> escribió:
Estimados amigos
Tengo que consultarles, miren diseñe un form para capturar el peso de la carne de un frigorifico y pasarlo a un texbox para luego guardarlo en mi bd de mysql.
El tema es que esta balanza esta funcionando con un sistema o softwarwe de presicion llamado ZELADA parece que fue hecho en visualbasic pero alhora ellos me hablaron(no zelada claro) para que le desarrollo un sistema mas amplio y lo hice en vfp9sp1. los usuarios de esta balanza
Ahora mi consulta, le comento que al ejecutar el form para capturar el peso me genera error de comunicacion. por ahi me comentaban que puede ser que la balanza no usa el mscomm32.ocx nose, sino una dll, pero queria saber si algunos de ustedes les paso algo similar o algo si, y como pudieron solucionar este problema.
--
Marcelo Barberis Gutierrez
Sistemas Informaticos
Villa Montes - Bolivia
Telef.: +591-76831064
--
Dios L@s Bendiga
Saludos,
| |||
| |||
|
Nicaragua
"Si ustedes permanecen unidos a mí, y si permanecen fieles a mis enseñanzas, pidan lo que quieran y se les dará.
(Juan 15:7 DHH)
Bendito el varón que se fía en el SEÑOR, y cuya confianza es el SEÑOR.
(Jeremías 17:7 RV2000)
Esteban H
Hola Marcelo.
X más q tengas esa info sobre la balanza no vas a lograr leer el peso sino sabes q cadena retorna x cada ciclo.
Cómo puedes obtener esta información? De 2 formas conozco yo, una fácil y otra difícil, la primera es con el manual de la balanza, y la otra es a través de una osciloscopio digital mirando el cable serial (esta opción no es p cualquiera debes conocer de electrónica). Una vez q uno sabe cómo es la cadena q devuelve, cantidad de caracteres q tiene, solo hay q desasnar el peso donde está dentro de la misma.
Saludos.
Esteban.
Luis Maria Guayan
Luis María Guayán
Tucumán, Argentina
_____________________________
http://comunidadvfp.blogspot.com