multiplicação de campos e soma de campos

Delphi

01/11/2003

eu estou fazendu um sistema de pedido, estou com problema no seguinte
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

Franck.c

Curtidas 0

Respostas

Henry

Henry

01/11/2003

Brother, vc tem que criar variaveis para fazer a conta, tenta assim:

// 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
Franck.c

Franck.c

01/11/2003

não consegui fazer, o que é para colocar no lugar do num1 num 2 e num3? não consegui entender.


GOSTEI 0
Henry

Henry

01/11/2003

Franck, vc não bota nada no lugar dos num, como vc pode v no começo do codigo, eles sào variaveis.


GOSTEI 0
Wagner

Wagner

01/11/2003

Caro colega desculpe-me mais uma vez me intrometer e que eu estou com um problema parecido e pela sua dica fiz dessa forma mais não deu certo, em que eu estou errado? Em que evento ou propriedade ou qualquer outro lugar devo colocar.

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
Henry

Henry

01/11/2003

Wagner, ja tentou fazer assim??

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
Wagner

Wagner

01/11/2003

Caro amigo Frank me desculpe mais uma vez me intrometer, mais acho que essa dica esta ajudando nos dois. Caso esteja te atrapalhando me da um tok certo!

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
Wagner

Wagner

01/11/2003

Frank e Henry

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
POSTAR