Clipper On Line • Ver Tópico - ler codigo de balanças
Página 1 de 1

ler codigo de balanças

MensagemEnviado: 27 Mar 2020 11:57
por carlosvieiralza
alguem tem alguma dll para ler o peso de balanças digitron ? no xharbour.

no acbrlib tem mais nao consegui achar nem a dll nem o exemplo. se alguem tiver pra me enviar
serei muito grato.

ler codigo de balanças

MensagemEnviado: 27 Mar 2020 14:32
por rubens
Boa tarde..

Na Toledo leio o peso com essa função...
Será que você não consegue adaptar para o xharbour aí e ler direto do sistema...?

********************************************************************************  
/* 
* Ler o peso informado na balanca 
* 09/03/2017 - 11:49:02 
*/ 
Function LerPeso( nQtde )

   Local nPorta    := 1
   Local cTrans    := "N"
   Local nBits    := 8
   Local nParad    := 2
   Local nVeloc    := 2400
   Local cInicia   := Chr(05)
   Local Erro       := .F.
   Local VlrPeso   := 0
   Local nVezes   := 0

   If Com_Open(nPorta,1024,1024) == .F.
      Erro := .T.
   Else
      WaitWindow('Lendo Peso !!! Aguarde...',.T.)
      nConf := Com_Init(nPorta,nVeloc,cTrans,nBits,nParad)
      While .t.
         nVezes++
         Com_Send(nPorta,cInicia)
         Inkey(0.20)
         Com_Count(nPorta)
         Inkey(0.20)
         nLeitura := Com_read(nPorta,20)
         If Substr(nLeitura,1,1)== Chr(02) .And. Right(AllTrim(nLeitura),1)==Chr(03)
            VlrPeso := Val(Substr(nLeitura,2,5))/1000
         Endif
        
         If VlrPeso > 0.000
            Exit
         ElseIf VlrPeso = 0  .and. nVezes>=3
            MsgInfo( 'Não foi possivel ler o peso !!!','Alerta')
            Erro := .t.
            Exit
         EndIf 
      EndDo
      Com_Close(nPorta)
      WaitWindow()
   Endif
   If Erro == .F.
      nQtde := VlrPeso                             
   Endif
   Return !Erro


Rubens

ler codigo de balanças

MensagemEnviado: 27 Mar 2020 16:07
por HASA
Boa tarde, Rubens melhorando sua resposta, qual seria o modelo da balança e ainda qual a lib que devo agregar para chamar as funções de leitura?

HASA

ler codigo de balanças

MensagemEnviado: 27 Mar 2020 23:27
por lucimauro
Hasa acho que não precisa de libs

ler codigo de balanças

MensagemEnviado: 28 Mar 2020 10:47
por HASA
Bom dia, interessante a chamada as funções da porta COM achei que tinha alguma lib para isso, bele não tenho como testar no momento, qualquer coisa posto aqui.
:-)
HASA

ler codigo de balanças

MensagemEnviado: 29 Mar 2020 08:00
por rubens
Bom dia...

Hasa..
É direto na porta, não precisa de lib...
na Minigui você pode colocar um timer para ficar lendo... eu prefiro setar um F qualquer coisa... dá tempo do operador colocar o produto na balança hora que ele estabiliza só pressionar o F qualquer coisa e fazer a leitura...
Só tem que ver os parâmetros da balança velocidade, stop bits etc..
Se não conseguir direto, me parece que você usa o acbrmonitor...
O Acbrmonitor tem componente para leitura de balança, de scaner serial etc....

Rubens

ler codigo de balanças

MensagemEnviado: 30 Mar 2020 11:56
por HASA
- Uso sim mas... não consegui ler uma Prix-3 novinha, até lia + ou - acho que até era error e não leitura, por isso quero ver se faço de dentro do sistema mesmo.
Valeu pela Dica.

HASA