ler codigo de balanças

[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.

[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

[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

[lucimauro]

Hasa acho que não precisa de libs

[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

[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

[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