Ir para conteúdo
  • Cadastre-se

dev botao

ACBr Balança


Ver Solução Respondido por Aurino,
  • Este tópico foi criado há 573 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

  • Fundadores

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

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

 

  • Curtir 1
Consultor SAC ACBr

Daniel Simões de Almeida
O melhor TEF, é com o Projeto ACBr - Clique e Conheça
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Link para o comentário
Compartilhar em outros sites

  • Moderadores
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:
 

 

 

  • Curtir 1
Link para o comentário
Compartilhar em outros sites

  • Fundadores

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 

  • Curtir 1
Consultor SAC ACBr

Daniel Simões de Almeida
O melhor TEF, é com o Projeto ACBr - Clique e Conheça
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Link para o comentário
Compartilhar em outros sites

  • 1 mês depois ...

É 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]

  • Curtir 2
  • Obrigado 1
Link para o comentário
Compartilhar em outros sites

  • 3 anos depois...
  • Solution
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;

 

cca5ddad-2bfc-4a83-a22b-7c5c1d1c19fe.png

Editado por Aurino
inserido imagem do resultado com emulador.
  • Curtir 1

Aurino

 

 

Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 573 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.
Visitante
Este tópico está agora fechado para novas respostas
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.