LDRabelo

Bom dia, deu certo com balMuller, valeu muito obrigado!! Luis

http://suporte.balancascapital.com.br/manuais/BC.pdf acima o link do manual! peso no visor 260 gramas!!

Colocando como filizola, não ocorre o erro, mas não traz o ultimo peso lido! Luis

BC Controller 3.0 Balanças Capital, antiga Saturno

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; AC

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

em anexo o Log do componente. BalLog.txt

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

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;

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

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

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

Você poderia me dar um exemplo??

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 );

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.V