Jump to content

LDRabelo

Membros
  • Content Count

    77
  • Joined

  • Last visited

Community Reputation

4 Neutral

About LDRabelo

  • Rank
    Membro

Profile Information

  • Sexo
    Masculino
  • Localização
    Mato Grosso

Recent Profile Visitors

608 profile views
  1. Bom dia, deu certo com balMuller, valeu muito obrigado!! Luis
  2. http://suporte.balancascapital.com.br/manuais/BC.pdf acima o link do manual! peso no visor 260 gramas!!
  3. Colocando como filizola, não ocorre o erro, mas não traz o ultimo peso lido! Luis
  4. Estou usando o AcbrBal, quando mando ler o peso, ocorre o seguinte erro: 000260 is not a valid floating point value, o erro ocorre quando o sistema le essa procedure procedure TACBrBALClass.LeSerial(MillisecTimeOut: Integer); //nessa linha fpUltimoPesoLido := InterpretarRepostaPeso(fpUltimaResposta); Percebi que o UltimoPesoLido está vindo com #D000110 e quando vai vazer a conversão está dando esse erro de is not a valid floating point value, alguem sabe como corrigir? O componete está configurado da seguinte forma: ACBrBAL1.Modelo := balSaturno; ACBrBAL1.Device.HandShake := Nenhum; ACBrBAL1.Device.Parity := none; ACBrBAL1.Device.Stop := s1; ACBrBAL1.Device.Data := 8; ACBrBAL1.Device.Baud := StrToInt(4800 ); ACBrBAL1.Device.Porta := COM1; ACBrBAL1.ArqLOG := edLog.Text; segue o log que está sendo gerado BalLog.txt
  5. ACBrBAL1.Modelo := balSaturno; ACBrBAL1.Device.HandShake := Nenhum; ACBrBAL1.Device.Parity := none; ACBrBAL1.Device.Stop := s1; ACBrBAL1.Device.Data := 8; ACBrBAL1.Device.Baud := StrToInt(4800 ); ACBrBAL1.Device.Porta := COM1; ACBrBAL1.ArqLOG := edLog.Text; abaixo o Log que está sendo gerado BalLog.txt
  6. em anexo o Log do componente. BalLog.txt
  7. Percebi que o UltimoPesoLido está vindo com #D000110 e quando vai vazer a conversão está dando esse erro de is not a valid floating point value, alguem sabe como corrigir? Luis
  8. ACBrBAL1.Modelo := balSaturno; ACBrBAL1.Device.HandShake := Nenhum; ACBrBAL1.Device.Parity := none; ACBrBAL1.Device.Stop := s1; ACBrBAL1.Device.Data := 8; ACBrBAL1.Device.Baud := StrToInt(4800 ); ACBrBAL1.Device.Porta := COM1; ACBrBAL1.ArqLOG := edLog.Text;
  9. Estou usando o componente do exemplo do ACBRBal, apenas coloquei uma balança fiz as configurações dela conforme o manual, quando clico no botão para ler o peso ocorre esse erro. Tenho que usar outro componente Acbr??, pois estou usando somente o AcbrBal, quero apenas ler o peso e gravar no BD, nada será impresso. Luis
  10. Boa noite, Estou usando o AcbrBal, quando mando ler o peso, ocorre o seguinte erro: 000260 is not a valid floating point value, o erro ocorre quando o sistema le essa procedure procedure TACBrBALClass.LeSerial(MillisecTimeOut: Integer); //nessa linha fpUltimoPesoLido := InterpretarRepostaPeso(fpUltimaResposta); alguem poderia me ajudar. Obrigado Luis
  11. LDRabelo

    ACBrBAL1

    Você poderia me falar qual arqui olhar, já procurei e não encontrei nada que possa me ajudar!!
  12. LDRabelo

    ACBrBAL1

    Você poderia me dar um exemplo??
  13. LDRabelo

    ACBrBAL1

    Já fiz removendo a conversão, nenhum desses abaixo funciona, com ou sem conversão! ACBrBAL1.Modelo := TACBrBALModelo(DM.QryBalancaINDICADOR.Value); ACBrBAL1.Device.HandShake := TACBrHandShake('0'); ACBrBAL1.Device.Parity := TACBrSerialParity(IntToStr(DM.QryBalancaPARITY.value )); ACBrBAL1.Device.Stop := TACBrSerialStop( DM.QryBalancaSTOPBITS.value );
  14. LDRabelo

    ACBrBAL1

    Bom dia estou gravando as configurações da Balança no Banco e passando quando o sistema for aberto, fazendo da seguinte forma: if acbrBal1.Ativo then ACBrBAL1.Desativar; // configura porta de comunicação ACBrBAL1.Modelo := TACBrBALModelo(DM.QryBalancaINDICADOR.Value); ACBrBAL1.Device.HandShake := TACBrHandShake('0'); ACBrBAL1.Device.Parity := TACBrSerialParity(IntToStr(DM.QryBalancaPARITY.value )); ACBrBAL1.Device.Stop := TACBrSerialStop( DM.QryBalancaSTOPBITS.value ); ACBrBAL1.Device.Data := StrToInt( DM.QryBalancaDATABITS.Value ); ACBrBAL1.Device.Baud := StrToInt( DM.QryBalancaBAUDRATE.Value ); ACBrBAL1.Device.Porta := DM.QryBalancaPORTA.Value; Só que ocorre o seguinte erro: Invalid typecast
×
×
  • Create New...