Fórum multiplicação de campos e soma de campos #192184
01/11/2003
0
eu quero multiplicar a quantidade pelo valor unitário e dar o valor total e somar os campos de totais para dar o valor total final. quem poder me ajudar eu agradeço.
PS. é tudo em dbedit.
Franck.c
Curtir tópico
+ 0Posts
01/11/2003
Henry
// para multiplicar
var
num1, num2, num3: real;
begin
num1:= FloatToStr(dbedit1.text);
num2:= FloatToStr(dbedit2.text);
num3:= (num1*num2);
edit1.text:= StrToFloat(num3);
Usei o edit1.text, como um edit que mostra o resultado da operação matematica realizada. Para somar e subtrair, use os sinais padrão de + ou -. E para dividir, vc usa /, ou a palavra reservada div(para casos especificos).
Brother, qualquer coisa me da um toque, um abraço, Henry.
Gostei + 0
01/11/2003
Franck.c
Gostei + 0
03/11/2003
Henry
Gostei + 0
06/11/2003
Wagner
No meu caso eu quero apenas somar e obter o resultado em outro campo (edit ou qualquer coisar que puder)
var
num1, num2, num3, num4, num5, num6: real;
begin
num1:= FloatToStr(dbedit3.text);
num2:= FloatToStr(dbedit10.text);
num3:= FloatToStr(dbedit12.text);
num4:= FloatToStr(dbedit14.text);
num5:= FloatToStr(dbedit18.text);
num6:= (num1+num2+num3+num4+num5);
dbedit16.text:= StrToFloat(num6);
Obrigado
Gostei + 0
06/11/2003
Henry
var
num1, num2, num3, num4, num5, num6: real;
begin
num1:= StrToFloat(dbedit3.text);
num2:= StrToFloat(dbedit10.text);
num3:= StrToFloat(dbedit12.text);
num4:= StrToFloat(dbedit14.text);
num5:= StrToFloat(dbedit18.text);
num6:= (num1+num2+num3+num4+num5);
dbedit16.text:= FloatToStr(num6);
Ao meu ver assim da, vc tava invertendo a ordem de conversão das variaveis veja, num1 é uma variavel do tipo Real logo ela é float, dbedit1.text é uma variavel do tipo String, logo vc quer fazer passar um dado de string para Real vc usa StrToFloat, entendeu? Qualquer coisa brother, pode me da um toque que a gente faz o que da, blz?
Um abraço, Henry.
Gostei + 0
08/11/2003
Wagner
Caro amigo Henry, ainda nao deu certo, vou te da mais detalhes
tenho uma tabela paradox meus valores e tipo N e nao $ (sera esse o problema) bom! mais o que acontece e que ele esta assumindo o ultimo valor dando o resultado da soma
valor1 3,00
valor2 3,00
valor3 1,50
valor4 2,50
valor5 1,00
valor total 5,00 (ele assume 1,00 para os valores anteriores)
Obs. Os valores que uso nessa tabela já vem do cadastrado em outra eu chamo o produto e já me apareçe o valor dai eu queria a cada produto chamado somando os valores e o resultao me aparecendo em valor total (por favor, sou iniciante onde devo usar que evento, botoes e etc)
Obrigado Frank
Gostei + 0
08/11/2003
Wagner
Acho que achei parte da solução. O problema e que so da certo como edit. Com dbedit e valores definidos na tabela não esta funcionando ´valor especificado nao eh valido....alguma coisa assim´ e ta me dando valores erredondados por ex: 1,50 + 1,00 = 2,00 eu quero que ele me de 2,50
edit8.text := IntToStr(Table1[´Valor´] + Table1[´Valor1´] + table1[´valor2´] + table1[´valor3´] + TABLE1[´VALOR4´]);
Um abraço colegas, vamos ver se da pra resolver o resto
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)