Fórum multiplicação de campos e soma de campos #192184

01/11/2003

0

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

Responder

Posts

01/11/2003

Henry

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.


Responder

Gostei + 0

01/11/2003

Franck.c

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


Responder

Gostei + 0

03/11/2003

Henry

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


Responder

Gostei + 0

06/11/2003

Wagner

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


Responder

Gostei + 0

06/11/2003

Henry

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.


Responder

Gostei + 0

08/11/2003

Wagner

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


Responder

Gostei + 0

08/11/2003

Wagner

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


Responder

Gostei + 0

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

Aceitar