Ajuda para fazer um calculo com Multiplicação, divisão e adição.
Boa tarde pessoal
Estou tendo dificuldades em fazer um calculo em uma DBEdit
É o seguinte, tenho 4 DBedite:
Na DBEdite 1, eu digito o valor 12
Na DBEdite 2, eu digito o valor 8
Na BDEdite 3, eu digito o valor 14
E na BDedite 4, quero um evento que ao eu dar um TAB me mostre o valor.
O Calculo que to querendo fazer é assim: 12 * 8 / 10 + 14 = 23,6
OBs> A Multiplicação das DBEdit's 1 e 2, tem que ser dividido por 10, o valor soma mais a DBEdit 3 e o resultado tem que sair na DBEdit 4.
Estou utilizando o Delphi 10 + SQL Server 208
Me ajudem.
Estou tendo dificuldades em fazer um calculo em uma DBEdit
É o seguinte, tenho 4 DBedite:
Na DBEdite 1, eu digito o valor 12
Na DBEdite 2, eu digito o valor 8
Na BDEdite 3, eu digito o valor 14
E na BDedite 4, quero um evento que ao eu dar um TAB me mostre o valor.
O Calculo que to querendo fazer é assim: 12 * 8 / 10 + 14 = 23,6
OBs> A Multiplicação das DBEdit's 1 e 2, tem que ser dividido por 10, o valor soma mais a DBEdit 3 e o resultado tem que sair na DBEdit 4.
Estou utilizando o Delphi 10 + SQL Server 208
Me ajudem.
Rubens Pena
Curtidas 0
Respostas
Cleverson.
03/09/2014
var
v1,v2,v3,res:Real;
begin
v1:=StrToFloat(Edit1.Text);
v2:=StrToFloat(Edit2.Text);
v3:=StrToFloat(Edit3.Text);
res:=((v1*v2)/10)+v3;
Edit4.Text:=FloatToStr(res);
end;
v1,v2,v3,res:Real;
begin
v1:=StrToFloat(Edit1.Text);
v2:=StrToFloat(Edit2.Text);
v3:=StrToFloat(Edit3.Text);
res:=((v1*v2)/10)+v3;
Edit4.Text:=FloatToStr(res);
end;
GOSTEI 0
Rubens Pena
03/09/2014
Obrigado Cleverson pela ajuda. Deu certo.
Tem um outro probleminha se puder me ajudar:
Tenho
1 DBComboBox e
1 DBEdit
Gostaria de quando eu inserisse algo no DBComboBox ele me desse um valor no DBEdit
EX:
Eu digito a palavra (carro) no DBComboBox entao no DBEdit ele automaticamente colocava um numero (1)
Eu digito a palavra (bicicleta) no DBComboBox entao no DBEdit ele automaticamente colocava um numero (2)
Mais na frente eu digito novamente a palavra (carro) é para o DBEdit puxar novamente o numero (1)
Se você puder me ajudar, ou outro membro do forum.
Fico no aguardo.
No momento estou aprendendo, um dia sera minha vez de tirar duvidas... :)
Tem um outro probleminha se puder me ajudar:
Tenho
1 DBComboBox e
1 DBEdit
Gostaria de quando eu inserisse algo no DBComboBox ele me desse um valor no DBEdit
EX:
Eu digito a palavra (carro) no DBComboBox entao no DBEdit ele automaticamente colocava um numero (1)
Eu digito a palavra (bicicleta) no DBComboBox entao no DBEdit ele automaticamente colocava um numero (2)
Mais na frente eu digito novamente a palavra (carro) é para o DBEdit puxar novamente o numero (1)
Se você puder me ajudar, ou outro membro do forum.
Fico no aguardo.
No momento estou aprendendo, um dia sera minha vez de tirar duvidas... :)
GOSTEI 0
Cleverson.
03/09/2014
Vc está usando ClientDataset?
GOSTEI 0
Rubens Pena
03/09/2014
Boa noite. Estou usando sim
GOSTEI 0
Cleverson.
03/09/2014
Vc está criando algum aplicativo ou é para fins didático?
Só para ver uma situação mais interessante.
Só para ver uma situação mais interessante.
GOSTEI 0
Cleverson.
03/09/2014
Se tiver skype me adiciona aí: cmecontato@gmail.com
GOSTEI 0
Cleverson.
03/09/2014
Vc pode fazer assim: troca o DBCombobox pelo Combobox somente.
O Sql ficaria assim:
select CODIGO, NOME from TABELA
where nome containing :nom
E no evento onEXit do Combobox faz assim:
ClientDataSet1.Close;
ClientDataSet1.FetchParams;
ClientDataSet1.Params.ParamByName('nom').AsString:=ComboBox1.Text;
ClientDataSet1.Open;
O Sql ficaria assim:
select CODIGO, NOME from TABELA
where nome containing :nom
E no evento onEXit do Combobox faz assim:
ClientDataSet1.Close;
ClientDataSet1.FetchParams;
ClientDataSet1.Params.ParamByName('nom').AsString:=ComboBox1.Text;
ClientDataSet1.Open;
GOSTEI 0
Rubens Pena
03/09/2014
Olá Boa noite!
E só um aplicativo caseiro que estou fazendo pois estou fazendo um curso mais o instrutor não ensina legal, então na apostila e na Internet respostas para meu problema, e vi que aqui vocês gostam muito de ajudar os iniciantes. Estou correndo atrás e com a ajuda de vocês serei um ótimo programador.
Vou te adicionar, você tem raid Call?
E só um aplicativo caseiro que estou fazendo pois estou fazendo um curso mais o instrutor não ensina legal, então na apostila e na Internet respostas para meu problema, e vi que aqui vocês gostam muito de ajudar os iniciantes. Estou correndo atrás e com a ajuda de vocês serei um ótimo programador.
Vou te adicionar, você tem raid Call?
GOSTEI 0