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.

Moderador: Moderadores
********************************************************************************
/*
* 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
Retornar para Contribuições, Dicas e Tutoriais
Usuários vendo este fórum: Nenhum usuário registrado online e 18 visitantes