Criando Calculadora no Delphi 7 09.12.10 21:22
Caculadora de Soma:
Tutorial:
Crie um novo Form
No form coloque 1 botão e 3 Edit
posicione nesta ordem:
Edit1
Edit2
Edit3
Botão
Tire o Texto dos 3 Edit
Mude o Text do Botão para o nome de +
clique 2 vezes no botao apague tudo que tiver e digite :
Depois de um f9 ou clique em play e é so testar.
_____________________________________________________________
Caculadora de Multiplicação
Tutorial:
Faça o procedimento que o anteriror so mude:
Caculadora de Divisão
Tutorial:
Faça o procedimento que o anteriror so mude:
Caculadora de Subtração
Tutorial:
Faça o procedimento que o anteriror so mude:
Divudas?Pergunte! :study:
Tutorial:
Crie um novo Form
No form coloque 1 botão e 3 Edit
posicione nesta ordem:
Edit1
Edit2
Edit3
Botão
Tire o Texto dos 3 Edit
Mude o Text do Botão para o nome de +
clique 2 vezes no botao apague tudo que tiver e digite :
- Código:
procedure TForm1.Button1Click(Sender: TObject);
var
A : Real;
B : Real;
C : Real;
begin
A := StrToFloat(Edit1.Text);
B := StrToFloat(Edit2.Text);
C := a + b;
edit3.Text:= FloatToStr(c);
end;
end.
Depois de um f9 ou clique em play e é so testar.
_____________________________________________________________
Caculadora de Multiplicação
Tutorial:
Faça o procedimento que o anteriror so mude:
- Código:
C := a * b;
Caculadora de Divisão
Tutorial:
Faça o procedimento que o anteriror so mude:
- Código:
C := a / b;
Caculadora de Subtração
Tutorial:
Faça o procedimento que o anteriror so mude:
- Código:
C := a - b;
Divudas?Pergunte! :study: