LDRabelo
Membros-
Total de ítens
77 -
Registro em
-
Última visita
Últimos Visitantes
1.230 visualizações
LDRabelo's Achievements
-
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!!
-
-
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; 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
-
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.Value ); ACBrBAL1.Device.Baud := StrToInt( DM.QryBalancaBAUDRATE.Value ); ACBrBAL1.Device.Porta := DM.QryBalancaPORTA.Value; Só que ocorre o seguinte erro: Invalid typecast