Fórum iniciar no delphi : dúvidas #327480
15/08/2006
0
boa tarde pessoal, bem estou iniciando a programar em dhelphi.
consegui fazer uma calculadora simple com 4 funçoes, porém há algumas falhas:
usei 3 caixas de texto, uma para o 1º valor, outra para o 2º e o último para o resultado, para isto usei o botão ´edit´ da guia ´standard´. na guia ´propriedades´ do ´objet inspector´ para ´name´ usei txtvalor1 2 e 3 sucessivamente para os 3 e para text <vazio> para os três.
para os botões das operações usei o seguinte código para os 4:
++++++++++++++++++++++++++++++++++++++
procedure TForm1.Button1Click(Sender: TObject);
var v1,v2,v3:real;
begin
v1 := strtofloat(txtvalor1.text);
v2 := strtofloat(txtvalor2.text);
v3 := v1+v2;
txtvalor3.text := floattostr(v3);
end;
+++++++++++++++++++++++++++++++++++++++
muda apenas, é lógico, os operadores v3 = v1 + v2, v3 = v1 - v2 e sucessivamente.
este projeto da simples calculadora funcionou, todavia, gostaria de eliminar algumas falhas existentes:
1º caixa de texto vazio.
2º divisão por zero.
e Alterar o código para que não seja necessário criar variáveis nos códigos dos eventos dos botões (soma, subtração, divisão e multiplicação)
e Alterar o código para que as operações possam ser realizadas em apenas uma caixa de texto, assim como em uma calculadora comum.
também gostaria de saber diferenciar o chamado “Tempo de Projeto” de “Tempo de Execução.
desde já agradeço a atenção de pelo menos lerem este assunto.
consegui fazer uma calculadora simple com 4 funçoes, porém há algumas falhas:
usei 3 caixas de texto, uma para o 1º valor, outra para o 2º e o último para o resultado, para isto usei o botão ´edit´ da guia ´standard´. na guia ´propriedades´ do ´objet inspector´ para ´name´ usei txtvalor1 2 e 3 sucessivamente para os 3 e para text <vazio> para os três.
para os botões das operações usei o seguinte código para os 4:
++++++++++++++++++++++++++++++++++++++
procedure TForm1.Button1Click(Sender: TObject);
var v1,v2,v3:real;
begin
v1 := strtofloat(txtvalor1.text);
v2 := strtofloat(txtvalor2.text);
v3 := v1+v2;
txtvalor3.text := floattostr(v3);
end;
+++++++++++++++++++++++++++++++++++++++
muda apenas, é lógico, os operadores v3 = v1 + v2, v3 = v1 - v2 e sucessivamente.
este projeto da simples calculadora funcionou, todavia, gostaria de eliminar algumas falhas existentes:
1º caixa de texto vazio.
2º divisão por zero.
e Alterar o código para que não seja necessário criar variáveis nos códigos dos eventos dos botões (soma, subtração, divisão e multiplicação)
e Alterar o código para que as operações possam ser realizadas em apenas uma caixa de texto, assim como em uma calculadora comum.
também gostaria de saber diferenciar o chamado “Tempo de Projeto” de “Tempo de Execução.
desde já agradeço a atenção de pelo menos lerem este assunto.
Jfm_one_one
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)