Fórum soma e multiplicação em campos #192269

02/11/2003

0

como faço para multiplicar dois dbedit e dar o resultado num dbtext.
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

Franck.c

Responder

Posts

02/11/2003

Lois.cc

Multiplique os valores da tabela, não os DBEdits. Ex. tabela1.campo3.Value:=tabela1.campo1.Value*tabela1.campo2.Value;

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


Responder

Gostei + 0

02/11/2003

Franck.c

Não consegui fazer ainda. Este campo corresponde a q na tabela, e qual o local q eu coloko o codigo?


Responder

Gostei + 0

02/11/2003

Edilcimar

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


Responder

Gostei + 0

02/11/2003

Wagner

Olá amigos,

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


Responder

Gostei + 0

02/11/2003

Edilcimar

mais explícito que isto?????????????
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


Responder

Gostei + 0

02/11/2003

Franck.c

soh q o meu campo um eh valor unitário e o outro eh qtda, dando resultado no valor total, soh q os campo de valor unitario e valor total, na tabela tah no formato $ e não A


Responder

Gostei + 0

02/11/2003

Edilcimar

numero1 : integer;
numero2 : currency;
multiplicação : real;
qual o problema?


Responder

Gostei + 0

02/11/2003

Franck.c

onde eu coloko o codigo?


Responder

Gostei + 0

02/11/2003

Edilcimar

onde vc quiser, na saída no edit, no change do edit, no clique do botão, etc


Responder

Gostei + 0

02/11/2003

Edilcimar

veja este exemplo
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


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar