Criando uma calculadora simples (Somente adição!)

[thigu007 0]

Olá pessoal, irei ensinar a vocês como criar uma calculadora nodelphi 7.

 

Como a maioria ja sabe, sou inicante no delphi, então só vou ensinar a vocês como criar uma calculadora de adição (+)

 

 

 

Primeiramente: Abra seu delphi, dps coloque:

 

2edit e 2 button

 

Obs: Não mude o Edit ainda!! Não apague, espere.

 

Segundo: Clique uma vez no button e coloka o nome de Calcular (Para o tutorial)

e no segundo button Ajuda?!

 

 

Terceiro: Ajuste a posição dos Edit.

 

Agora clique duas vezes no button Calcular,

 

Em cima do begin coloque os seguintes códigos:

 

A :Real;

B :Real;

 

E embaixo do Begin:

 

A := StrToFloat(Edit1.Text);

B := StrToFloat(Edit2.Text);

ShowMessage(FloatToStr(A+B));

 

 

No 2º Button

 

Showmessage ('Calculadora criada para fazer contas de adição');

Showmessage ('Apenas preencha os espaços em branco')

Showmessage ('e coloque em calcular')

 

Pronto e dps teste

 

Aperte F9

 

 

 

Multiplicação:

 

Código PHP:

A :Real;

B :Real;

 

E embaixo do Begin:

 

A := StrToFloat(Edit1.Text);

B := StrToFloat(Edit2.Text);

ShowMessage(FloatToStr(A*B));

 

Divisão:

Código PHP:

A :Real;

B :Real;

 

A := StrToFloat(Edit1.Text);

B := StrToFloat(Edit2.Text);

ShowMessage(FloatToStr(A/B));

Subtração:

Código PHP:

A :Real;

B :Real;

 

 

 

A := StrToFloat(Edit1.Text);

B := StrToFloat(Edit2.Text);

ShowMessage(FloatToStr(A-B));

Raíz quadrada:

 

Código PHP:

A :Real;

A := StrToFloat(Edit1.Text);

ShowMessage(sqrt(A));

Potências:

 

Quadrado::

 

Código PHP:

A :Real;

A := StrToFloat(Edit1.Text);

ShowMessage(FloatToStr(A*A));

 

Cubo:

 

Código PHP:

A :Real;

A := StrToFloat(Edit1.Text);

ShowMessage(FloatToStr(A*A*A));

4ª:

 

A :Real;

A := StrToFloat(Edit1.Text);

ShowMessage(FloatToStr(A*A*A*A));

 

Porcentagem:

 

 

A :Real;

B :Real;

 

A := StrToFloat(Edit1.Text);

B := StrToFloat(Edit2.Text);

ShowMessage(FloatToStr(A*B /100));

 

[Vator 8]

Mais operações ^^

 

Multiplicação:

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

 

Divisão:

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Subtração:

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Raíz quadrada:

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Potências:

 

Quadrado::

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Cubo:

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

4ª:

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Porcentagem:

 

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

[thigu007 0]

Muito obrigado, vou adicionar!

[DarkSj 0]

caraca n sabia qe tinha jeito mais facil de se fazer uma calc, eu colocava os codigos mais extenços :S

[thigu007 0]

aushaushasuh

 

espero que você aprendeu um método novo para você aprender ^^