ACBr Balança

[pradilsoncarlos]

Balança: balToledo9091_8530_8540

A balança está retornando esse resultado quando pesa o caminhão

)0     20    00

Alguém pode me ajudar.

 

[Daniel Simoes]

parece ser configuração diferente dos parâmetros da Serial, entre a balança e o componente

[pradilsoncarlos]

no ultimo peso lido retorna como 0.00

balToledo9091_8530_8540: fsBAL := TACBrBALToledo9091_8530_8540.Create(Self)

[pradilsoncarlos]

Boa tarde pessoal, alguém pode me ajudar com a balança ?

[pradilsoncarlos]

   sttPeso.Caption     := formatFloat('##0.000', Peso );  0
   sttResposta.Caption := Converte( Resposta ) ; #2'09398'#3

 

alguém sabe como faço a conversão ?

[Daniel Simoes]

Qual o peso que estaria descrito na balança ?

[pradilsoncarlos]

13 horas atrás, Daniel Simoes disse:

Qual o peso que estaria descrito na balança ?

Nesse caso o peso é parte desse número #2'09398'#3   ---   9,398(esse é o peso) no emulador

Na balança ele retorna esse valor:     )0     20    00

[Daniel Simoes]

Nessa caso, basta você tratar o retorno... algo como

MeuPeso := StrToInt( Trim( ACBrBAL1.UltimaResposta) ) / 1000

 

[Waldir Paim]

2 horas atrás, pradilsoncarlos disse:

Nesse caso o peso é parte desse número #2'09398'#3   ---   9,398(esse é o peso) no emulador

Na balança ele retorna esse valor:     )0     20    00

Me parece ser o mesmo problema deste post:
 

 

 

[pradilsoncarlos]

49 minutos atrás, Daniel Simoes disse:

Nessa caso, basta você tratar o retorno... algo como

MeuPeso := StrToInt( Trim( ACBrBAL1.UltimaResposta) ) / 1000

 

Dá certo no emulador, mas na balança vem 

)0     20    00

[Daniel Simoes]

Humm pensei que o retorno com o valor era da balança...

O retorno que você informou não faz muito sentido... provavelmente você não configurou  os dados seriais corretamente 

[Smaili S Amorim]

É a configuração dos dados da porta serial.

Geralmente esta balança a configuração é : 

BAUD=9600

DATA=7

PARITY=E

STOP=2

Arquivo de Log:

--------------------------------------------------------------------------------
ATIVAR - 11/07/19 15:29:45:566 - Modelo: Toledo 9091 - Porta: COM1         Device: BAUD=9600 DATA=7 PARITY=E STOP=2 HANDSHAKE= MAXBANDWIDTH=0 SENDBYTESCOUNT=0 SENDBYTESINTERVAL=0
--------------------------------------------------------------------------------

 - 15:29:45:775 RX <- [STX]+p`000068000000[CR]
              UltimoPesoLido: 6,8 - Resposta: [STX]+p`000068000000[CR]

[Aurino]

Em 11/07/2019 at 17:53, Smaili Amorim disse:

É a configuração dos dados da porta serial.

Geralmente esta balança a configuração é : 

BAUD=9600

DATA=7

PARITY=E

STOP=2

Arquivo de Log:

--------------------------------------------------------------------------------
ATIVAR - 11/07/19 15:29:45:566 - Modelo: Toledo 9091 - Porta: COM1         Device: BAUD=9600 DATA=7 PARITY=E STOP=2 HANDSHAKE= MAXBANDWIDTH=0 SENDBYTESCOUNT=0 SENDBYTESINTERVAL=0
--------------------------------------------------------------------------------

 - 15:29:45:775 RX <- [STX]+p`000068000000[CR]
              UltimoPesoLido: 6,8 - Resposta: [STX]+p`000068000000[CR]

não sei se foi resolvido mas segue sugestão para funcionar com a balança testada via emulador..

nas primeiras linhas do procedure ACBrBAL1LePeso, adicionei as 3 linhas abaixo.... 
 

procedure TForm1.ACBrBAL1LePeso(Peso: Double; Resposta: String);
var valid : integer;

begin
   {tratamento para balToledo9091_8530_8540 }
   if Trunc( StrToInt( trim(ACBrBAL1.UltimaResposta)) ) <> 0   then
   Peso :=  StrToInt( trim(ACBrBAL1.UltimaResposta))  ;


   sttPeso.Caption     := formatFloat('##0.000', Peso );
   sttResposta.Caption := Converte( Resposta ) ;

   if Peso > 0 then Memo1.Lines.Text := 'Leitura OK !'
   else
    begin
      valid := Trunc(ACBrBAL1.UltimoPesoLido);
      case valid of
         0 : Memo1.Lines.Text := 'TimeOut !'+sLineBreak+
                                 'Coloque o produto sobre a Balança!' ;
        -1 : Memo1.Lines.Text := 'Peso Instavel ! ' +sLineBreak+
                                 'Tente Nova Leitura' ;
        -2 : Memo1.Lines.Text := 'Peso Negativo !' ;
       -10 : Memo1.Lines.Text := 'Sobrepeso !' ;
      end;
    end ;
end;

 

Editado 2 Setembro, 2022 por Aurino
inserido imagem do resultado com emulador.

[Juliomar Marchetti]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.