Pesquisar na Comunidade
Showing results for tags 'balanca digitron'.
Encontrado 2 registros
-
boa tarde, alterei o pacote ACBrSerial -> ACBrBAL, fiz uma implementação de um novo modelo de balança marca "Digitron" modelo UL, alguém poderia validar e adicionar no repositório ? ACBrBAL.pas ACBrBALDigitron_UL.pas manual digitron_UL.rar
-
Boa tarde, comecei a usar o ACBrBal com a balança Digitron (configurada para 2 casas decimais) e notei que não estava trazendo o último dígito, invés de aparecer 5,35, aparece 5,30 (o último zero é da máscara ###,00). Na unit ACBrBALDigitron, na function TACBrBALDigitron.InterpretarRepostaPeso(aResposta: AnsiString): Double; que faz o tratamento do retorno da balança, teria que trocar a linha: wResposta := Trim(Copy(aResposta, 2, 7)); por wResposta := Trim(Copy(aResposta, 2, 8)); ou melhor, fazer semelhante a unit ACBrBALFilizola, trocando a linha: wResposta := Trim(Copy(aResposta, 2, 7)); por { Retira STX, ETX } if (Copy(wResposta, 1, 1) = STX) then wResposta := Copy(wResposta, 2, Length(wResposta)); //Deverá buscar a primeira ocorrencia do TX e trarar a Sting. if pos(ETX,wResposta) > 0 then wResposta := Copy(wResposta, 1, pos(ETX,wResposta) - 1); if (wResposta = EmptyStr) then Exit; qual o procedimento para atualização dos fontes, podem analisar e pegar o trecho de código que descrevi ? Obrigado Jean Alysson Ambrosio
