Fórum soma e multiplicação em campos #192269
02/11/2003
0
em que lugar eu coloco os códigos? E como faço para somar quatro dbtext e dar o resultado em otro dbtext. vlw por qm me ajudar!
Franck.c
Curtir tópico
+ 0Posts
02/11/2003
Lois.cc
Já para somar, é da mesma forma, porém você vai utilizar o sinal + ao invéz de *.
Lembre que um DBText / DBEdit na verdade exibem o valor que está na tabela.
Lois.cc
Gostei + 0
02/11/2003
Franck.c
Gostei + 0
02/11/2003
Edilcimar
numero1 := strtofloat(Trim(edit1.text)) ou qualquer outro componente
except
showmessage(´isto não é um número válido´);
end
try
numero2 := strtofloat(trim(edit2.text))
except
showmessage(´isto não é um número válido´);
end;
multiplicação := numero1 * numero2
edit3.text := floattostr(multiplicação);
Gostei + 0
02/11/2003
Wagner
Tambem passo por esse mesmo problema, e esta dica parece o que eu procurava, uma logica diferente das que eu tenho encontrado, mais tambem nao entendi direito. se tiver tido um retorno de outra forma por favor divulgue
wagnernormando@ig.com.br
Gostei + 0
02/11/2003
Edilcimar
veja que vc pega o texto e transforma em um número que pode ser inteiro ou flutuante, depois faz a mesma coisa com o outro texto; de posse destes dois números que estão em duas variáveis vc efetua a multiplicação colocando o resultado em outra variável ( a qual poderá ser utilizada inclusive em outras partes do programa), então coloque o valor desta terceira variável em outro texto para exibir ao usuário
Gostei + 0
02/11/2003
Franck.c
Gostei + 0
02/11/2003
Edilcimar
numero2 : currency;
multiplicação : real;
qual o problema?
Gostei + 0
02/11/2003
Franck.c
Gostei + 0
02/11/2003
Edilcimar
Gostei + 0
02/11/2003
Edilcimar
If Edit12.Text = ´´ then Edit12.Text := FloatToStrF(0, ffFixed, 5,2);
If Edit13.Text = ´´ then Edit13.Text := FloatToStrF(0, ffFixed, 10,2);
If Edit14.Text = ´´ then Edit14.Text := FloatToStrF(0, ffFixed, 10,2);
If Edit15.Text = ´´ then Edit15.Text := FloatToStrF(0, ffFixed, 10,2);
If Edit22.Text = ´´ then Edit22.Text := FloatToStrF(0, ffFixed, 2,2);
Margem := StrToFloat(Edit12.Text);
PC := 0;
PV := 0;
If Edit13.Focuse = True then
Begin
PC := StrToFloat(Edit13.Text);
PV := PC + (PC * Margem)/100;
Edit12.Text := FloatToStrF(Margem, ffFixed,4,2);
Edit14.Text := FloatToStrF(Pv, ffFixed, 10,2);
End;
isto é utilizado para quando eu troco o preço de compra de um produto ele altera o preço de venda baseado na margem de lucro, deve fazer a mesma coisa para a troca da margem de lucro e para a troca do preço de venda
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)