Calculadora em Delphi: Guia Passo a Passo de Programação

Calculadora

Botão para digitar os números

Rx Controls

• > $1
• > Tirar o R$
• > Name: visor

Botão +

Adicional

• > Ok
• > Name: soma
• > Caption: +
• > Font:

Duplo clique (digitar o comando)

Numero1 := visor.value;
Operacao := 1;

Botão -

Adicional

• > Ok
• > Name: subtracao
• > Caption: -
• > Font:

Duplo clique (digitar o comando)

Numero1 := visor.value;
Operacao := 2;

Botão *

Adicional

• > Ok
• > Name: multiplicacao
• > Caption: *
• > Font:

Duplo clique (digitar o comando)

Numero1 := visor.value;
Operacao := 3;

Botão /

Adicional

• > Ok
• > Name: divisao
• > Caption: /
• > Font:

Duplo clique (digitar o comando)

Numero1 := visor.value;
Operacao := 4;

Botão %

Adicional

• > Ok
• > Name: porcentagem
• > Caption: %
• > Font:

Duplo clique (digitar o comando)

Numero1 := visor.value;
Operacao := 5;

Botão X^Y

Adicional

• > Ok
• > Name: XY
• > Caption: X^Y
• > Font:

Duplo clique (digitar o comando)

Numero1 := visor.value;
Operacao := 6;

Botão =

Adicional

• > Ok
• > Name: soma
• > Caption: +
• > Font:

Duplo clique (digitar o comando)

Numero2 := visor.value;

If operacao = 1 then visor.value := numero1 + numero2;
If operacao = 2 then visor.value := numero1 - numero2;
If operacao = 3 then visor.value := numero1 * numero2;
If operacao = 4 then visor.value := numero1 / numero2;
If operacao = 5 then visor.value := numero1 * numero2 / 100;
If operacao = 6
Then
If numero2 = 0
Then
Begin
visor.value := 1;
End
Else
Begin
Acum := numero1;
Repeat
Acum := acum * numero1;
numero2 := numero2 - 1;
Until numero2 = 1;
visor.value := acum;
End;

Var (na tela dos comandos)

• Form1: TForm1
• Numero1: Currency;
• Numero2: Currency;
• Operacao: Currency;
• Acum: Currency;

Botão X²

Adicional

• > Ok
• > Name: X
• > Caption: X²
• > Font:

Duplo clique (digitar o comando)

visor.value := visor.value * visor.value;

Botão X³

Adicional

• > Ok
• > Name: X³
• > Caption: X³
• > Font:

Duplo clique (digitar o comando)

visor.value := visor.value * visor.value * visor.value;

Botão Raiz

Adicional

• > Ok
• > Name: raiz
• > Caption: raiz
• > Font:

Duplo clique (digitar o comando)

visor.value := sqrt(visor.value);

Salvar

• > Save as

Criar uma pasta com o nome Ucalculadora

• > Save Project

Pcalculadora

Destravar

• > RUN
• > Program Reset

Ou Ctrl + F2