Página 1 de 1
ler codigo de balanças
Enviado: 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
Enviado: 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...?
Código: Selecionar todos
********************************************************************************
/*
* 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
Enviado: 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
Enviado: 27 Mar 2020 23:27
por lucimauro
Hasa acho que não precisa de libs
ler codigo de balanças
Enviado: 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
Enviado: 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
Enviado: 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