ACBrBAL erro na leitura

[Luis Ricardo]

Bom dia,

Estou com um problema na balança Toledo 9091 rodoviária

Uso o ACBrBAL esta acontecendo o seguinte:

O componente esta lendo, mas esta ocorrendo que hora Lê hora não Lê  para resolver não sei se é o correto fiz um loop para continuar lendo até que o peso seja maior que zero.

Outro problema é quando ele captura o peso em algumas leituras o peso correto seria 29500 ele pega 2950

Alguém sabe por que ocorre isso ?

Desde já fico grato.

[Daniel Simoes]

Tentou aumentar o TimeOut ?

[Luis Ricardo]

Daniel fico grato, vou mudar e ir ate a empresa para fazer alguns teste, amanhã eu posto o resultado.

[Luis Ricardo]

Bom dia,

Daniel, estou fazendo os teste, com a sua orientação, melhorou bastante, mas ocorreu que entre 10 captura de peso uma ocorreu trazendo um peso baixo como citei e outra capturou o valor alto ex:  48510  foi para 4851 e em outra pesagem 48510 foi para 84500.

configuração entre a balança não pode ser pq o técnico da toledo esteva aqui, configurou ate comunicar com o sistema, ficou para solucionar o passei.

????????

 

 

 

[Daniel Simoes]

Analise o Log gerado pelo ACBrBAL

[Luis Ricardo]

Boa Tarde,

seque anexo o arquivo de log

GBBalanca.log

[Daniel Simoes]

Esse arquivo não parece ter sido gerado pelo ACBrBAL

[Luis Ricardo]

Bom dia na verdade no código foi criado um loop caso o peso lido for = 0 ele reconecta a capturar um peso maior que 0 (zero) se eu tira este loop não lê a porta com1 esta mandando informação fiz teste com hiper terminal .

o que fazer.

domingão trabalhando 

[Luis Ricardo]

Boa tarde, 

Acabe de fazer um teste com o exemplo do ACBrBAL esta capturando o peso configurando normalmente, mas no Ultimo peso lido ele esta contando um zero, ex:

peso no mostrador da balança  1180 kg no acbr  118,000 kg

eu creio que deveria sair 1180,000 kg no acbr 

ou não 

grato.

 

[Luis Ricardo]

Boa tarde, Daniel estou reabrindo este poste para dar continuidade ao projeto.

Modelo da Balança Toledo 9190 Rodoviário.

estou testando mas ate agora näo deu o erro de valor, fiz uma rotina abaixo o único problema é que a captura näo é instantânea

segue abaixo o codigo. 

 

 acb_Balanca.Ativar;

       try
          TimeOut := acb_balanca.Intervalo; //F_DMdados.cdsConfBalCFG_INTERVALO.AsInteger;
       except
          TimeOut := 5000 ;
       end ;

       ACB_balanca.LePeso(TimeOut);

       if (ce_valor.Value = 0) then
         begin
           if (valor = 0) and (valor > 1000) then
             begin
               valor := ce_valor.Value;
             end;

           if capitura > 100 then
             begin
               ShowMessage('Näo foi possivel conectar a balança, O Ticket será fechado, tente novamente !');
               lb_sair.OnClick(Sender);
             end
            else
             begin
               capitura := capitura+1;

               if acb_Balanca.MonitorarBalanca = False then
                 acb_balanca.MonitorarBalanca := True;

               lb_reconectar.OnClick(Sender);
             end;
         end
        else
         begin
           if (ce_valor.Value <> valor) then
             begin
               capitura := capitura+1;
               valor := ce_valor.Value;
               lb_reconectar.OnClick(Sender);
             end
           else
            begin
              gb_placa.Enabled := True;
              mk_placa.SetFocus;
            end;
         end;

 

procedure TF_Ticket.ACB_balancaLePeso(Peso: Double; Resposta: String);
var
  valid : integer;
begin
  if (not Assigned(FRespostaList)) then
    FRespostaList := TStringList.Create;

  if FRespostaList.Count > 0 then
    FRespostaList.Add(StringOfChar('-', 80));

   pn_resposta.Caption := formatFloat('######0.000', Peso);
   Me_mensagem.Text := Converte(Resposta) ;

   FRespostaList.Add(pn_resposta.Caption);

   ce_valor.Value := Peso;

   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 !' ;
           -9 : Me_mensagem.Lines.Text := 'Erro de leitura, balança Instável ';
          -10 : Me_mensagem.Lines.Text := 'Sobrepeso !' ;
         end;
     end ;
end;

 

um outro problema vai ser o mesmo modelo de balança via TCP/IP näo tenho nem ideia de como ajusta o sistema com essa condição.

grato.

 

[Daniel Simoes]

Não compreendo o que você está solicitando...

Se ele sempre lê o peso com um zero a mais... não é apenas o caso de dividir o Retorno por 10 ?

[Luis Ricardo]

o que quero dize, qdo mando capturar o peso, ex: o correto seria 10500 e retorno 1050, não da para saber quando esta correto.

em virtude disso eu criei uma checagem que lê novamente o peso e se for igual continua, mas da um pequeno delei.

e qto a conectar TCP/IP estou pesquisando mas estou confuso.

grato 

 

[Daniel Simoes]

O ACBrDevice tem suporte para portas TCP... Pensando nisso, enviei modificações para o SVN, que permitirão que o ACBrBAL use portas TCP.
Se o protocolo for o mesmo do modelo Serial, deve funcionar...

Atualize os seus fontes, e defina porta como: "TCP:ip_maquina:NumPorta".

Exemplo: TCP:192.168.0.15:3434

[Luis Ricardo]

Daniel, vou fazer as atualizações e um teste, assim que tiver resultados posto o mesmo.

[Luis Ricardo]

Daniel, fiz um teste na balança do cliente. obtive as seguintes informações.

a principio parece que esta encontrando a balança, porque me retornou um erro dizendo  peso instável com valor -9, caso näo desse conexão o erro seria outro.

coloque os paramentos de que me passaram 

TRANSMISSAO = 9600

BIT = 8

PARIDADE = pEven

PARADA = s2

FLUXO = hsNenhum

INTERVALO = 5000

MONITORAR = S

SERIAL = TCP:192.168.0.189:8880

vou verificar com a toledo

ou sera que tem algo mais para configurar neste caso ?

[Daniel Simoes]

Sendo TCP, apenas isso é importante:  "TCP:192.168.0.189:8880" 

Os demais parâmetros são utilizados apenas em portas Seriais...

[Luis Ricardo]

Ok, vou faze novas verificações.

 

[Daniel Simoes]

Tente aumentar o TimeOut... observe que o ACBrBAL, gera um Log de comunicação.. ele pode ser útil para saber se houve resposta da balança, e qual o conteúdo...

[Luis Ricardo]

no arquivo apareceu conforme abaixo

-9

----------------------------------------------------------------------------------------------------------

-9

 

[Daniel Simoes]

Acredito que você não ativou a geração do LOG corretamente... o conteúdo arquivo deveria se parecer com algo como:

--------------------------------------------------------------------------------
ATIVAR - 23/10/15 01:36:38:748 - Modelo: Filizola - Porta: tcp:localhost:3434         Device: BAUD=9600 DATA=8 PARITY=N STOP=1 HANDSHAKE= MAXBANDWIDTH=0
--------------------------------------------------------------------------------

- 01:36:56:221 TX -> [ENQ]
- 01:36:56:425 RX <- OK
              UltimoPesoLido: 0 , Resposta: OK

O Log acima foi gerado usando o Demo do ACBrBAL conectado no Demo do ACBrTCPServer

[Luis Ricardo]

Bom dia,

desculpe, a configuração do arquivo de log no meu caso a propriedade do componente ArqLOG esta em branco, deixei assim.

outra duvida que surgiu, foi o ACBrBAL no TCP tem que ser conectado com o ACBrTCServer ou não, mas vou tentar com a configuração acima, estou aguardando o técnico da Toledo, passar os parâmetros.

grato.   

 

[Daniel Simoes]

O método "Ativar" irá fazer a conexão com o equipamento...

Usei o Demo do ACBrTCPServer apenas para simular a presença de um equipamento...

[Fabrício Melo]

Bom dia.

Estou tentando usar o ACBrBal em um cliente transportadora.

Testei o Demo com uma balança comum de supermercado e funcionou sem problemas.

No Cliente é uma Toledo para pesagem de caminhões.

O log fica sempre assim:

   2 --------------------------------------------------------------------------------    
   3 ATIVAR - 30/10/15 11:22:48:329 - Modelo: Toledo - Porta: COM1         Device: BAUD=9600 DATA=8 PARITY=N STOP=1 HA NDSHAKE= MAXBANDWIDTH=0    
   4 --------------------------------------------------------------------------------    
   5    
   6 - 11:22:48:532 RX <- [24][224][ACK][30]x[NUL]~[128]x[128]x[128]xx[30][224]x[128]x[128]x[128]x[128]x[128]x[128]x[1 28]x[30]~[230]    
   7               UltimoPesoLido: 0 , Resposta: x[NUL]~[128] - Protocolo A    
 

A mesma coisa em diante.

UltimoPesoLido: 0 , Resposta: x[NUL]~[128] - Protocolo A    ...

Sei que funciona porque um amigo meu usa já a um bom tempo em uma mineradora sem problemas, mas não consegui fazer o meu funcionar.

O Sistema Guardian da Toledo funciona sem problemas, então comunicação da porta esta 100%.

Tem alguma configuração em específico que estou deixando de fazer?

Grato.

Fabrício Melo.

Editado 30 Outubro, 2015 por bilogyn
Ajustar os espaços

[Daniel Simoes]

Parece ser configuração da Serial errada (lixo na transmissão)... Verifique as características da Serial do equipamento

[Fabrício Melo]

Consegui pegar a configuração do sistema da Toledo, porem ele tem uma diferença do nosso "Paridade = Par", o resto fiz igual, parou de dar erro ao "Ler Peso", só que o peso sempre vem zero.

O Log também mudou:

- 14:42:57:873 RX <- [STX]q0 050320000000[CR]f
              UltimoPesoLido: 0 , Resposta: q0 050320000000 - Protocolo C
- 14:42:58:076 RX <- [STX]q0 050320000000[CR]f
              UltimoPesoLido: 0 , Resposta: q0 050320000000 - Protocolo C
- 14:42:58:280 RX <- [STX]q0 050320000000[CR]f[STX]q8 050240000000[CR]]
              UltimoPesoLido: 0 , Resposta: 0 0503 - Protocolo A
- 14:42:58:483 RX <- [STX]q8 049960000000[CR]L
              UltimoPesoLido: 0 , Resposta: q8 049960000000 - Protocolo C
- 14:42:58:686 RX <- [STX]q8 049360000000[CR]R
              UltimoPesoLido: 0 , Resposta: q8 049360000000 - Protocolo C

...