ler o peso da balança com componente ACBrBal
Bom Dia!
Estou utilizando ACBrBal. Já fiz todas as configurações:
Informações passadas pelo técnico da Toledo
Balança Rodoviária 60 TN mod 9091
Configurações:
Baud = 4800
Data = 7
HandShake = hsNenhum
Parity = pEven
Stop = s2
Quando tento ler o peso no campo mensagem ele retorna
TimeOut!
Coloque o produto sobre a Balança!
No evento onLePeso do componente esta assim;
procedure TF_Ticket.ACB_balancaLePeso(Peso: Double; Resposta: String);
var valid : integer;
begin
la_peso.Caption := formatFloat('##0', Peso );
ce_valor.Value := StrToFloat(la_peso.Caption);
ed_resposta.Text := Converte(Resposta) ;
if Peso > 0 then
begin
Me_mensagem.Lines.Text := 'Leitura OK !';
end
else
begin
valid := Trunc(ACB_balanca.UltimoPesoLido);
case valid of
0 : Me_mensagem.Lines.Text := 'TimeOut !'+sLineBreak+
'Coloque o produto sobre a Balança!' ;
-1 : Me_mensagem.Lines.Text := 'Peso Instavel ! ' +sLineBreak+
'Tente Nova Leitura' ;
-2 : Me_mensagem.Lines.Text := 'Peso Negativo !' ;
-10 : Me_mensagem.Lines.Text := 'Sobrepeso !' ;
end;
end ;
end;
o que estou fazendo errado.
Estou utilizando ACBrBal. Já fiz todas as configurações:
Informações passadas pelo técnico da Toledo
Balança Rodoviária 60 TN mod 9091
Configurações:
Baud = 4800
Data = 7
HandShake = hsNenhum
Parity = pEven
Stop = s2
Quando tento ler o peso no campo mensagem ele retorna
TimeOut!
Coloque o produto sobre a Balança!
No evento onLePeso do componente esta assim;
procedure TF_Ticket.ACB_balancaLePeso(Peso: Double; Resposta: String);
var valid : integer;
begin
la_peso.Caption := formatFloat('##0', Peso );
ce_valor.Value := StrToFloat(la_peso.Caption);
ed_resposta.Text := Converte(Resposta) ;
if Peso > 0 then
begin
Me_mensagem.Lines.Text := 'Leitura OK !';
end
else
begin
valid := Trunc(ACB_balanca.UltimoPesoLido);
case valid of
0 : Me_mensagem.Lines.Text := 'TimeOut !'+sLineBreak+
'Coloque o produto sobre a Balança!' ;
-1 : Me_mensagem.Lines.Text := 'Peso Instavel ! ' +sLineBreak+
'Tente Nova Leitura' ;
-2 : Me_mensagem.Lines.Text := 'Peso Negativo !' ;
-10 : Me_mensagem.Lines.Text := 'Sobrepeso !' ;
end;
end ;
end;
o que estou fazendo errado.
Luiz Estevam
Curtidas 0
Respostas
Luiz Estevam
21/12/2012
Alguem pode ajudar ?
GOSTEI 0
Deivison Melo
21/12/2012
Você chegou a verificar os exemplos que acompanham o ACbr?
GOSTEI 0
Luiz Estevam
21/12/2012
sim, já fiz um teste, da o mesmo resultado.
GOSTEI 0
Luiz Estevam
21/12/2012
nada resolvido, help!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
GOSTEI 0
Deivison Melo
21/12/2012
Além do AcBr (não testei devido não usar o delphi aqui no ambiente de trabalho, mas em casa irei verificar se realmente não tem, pois essa balança é antiga)
tem uma dll chamada: "PCLINK6.DLL"
Éssa dll é muito utilizada, já usei ela até com Forms and Reports da Oracle
Dá uma olhada no link:
[url]http://www.4shared.com/get/mij2FKiV/pclink6_-_desenvolvedor.html [/url]
Abração e bons códigos!!
tem uma dll chamada: "PCLINK6.DLL"
Éssa dll é muito utilizada, já usei ela até com Forms and Reports da Oracle
Dá uma olhada no link:
[url]http://www.4shared.com/get/mij2FKiV/pclink6_-_desenvolvedor.html [/url]
Abração e bons códigos!!
GOSTEI 0
Deivison Melo
21/12/2012
Caso queira investir dinheiro nisso, recomendo contactar o pessoal da TKS Softwares que são especialistas em automação industrial e no leque de produtos deles existem produtos destinados a conexão com balanças toledo.
[url]http://www.igara.com.br/conexao-com-balancas-toledo/[/url]
Abração e bons códigos!
[url]http://www.igara.com.br/conexao-com-balancas-toledo/[/url]
Abração e bons códigos!
GOSTEI 0
Deivison Melo
21/12/2012
[url]http://campeche.inf.furb.br/tccs/1999-I/1999-1marciomarcosmachadojuniorvf.pdf[/url]
GOSTEI 0