Criando uma Calculadora

Olá Galera da Crazy
Hoje Vim Ensinar Como Fazer uma Calculadora
Bem , Meteodo Simples Porem Pouco Grade

Vamos lá

Mude o nome do form para:
calc_on

Bote um Edit (Aba Standard) e 16 Button(Aba Standard)

Mude o Name do EDIT para ''visor'' Sem Aspas

Os Botões, abaixo irá uma tabela para você mudar de acordo com a mesma.

Name & Caption: Os valores, serão mudados de acordo com cada função, siga a tabela .

[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]


Agora, vamos para os codigos

Primeiramente, você declara as seguintes variáveis:

Código:

Valor: real;
  Opreacao: Integer;
  valorinteiro: integer;
  total: string;
  valorreal : real;
  operacao: Integer;
  numero: Integer;

Agora veja, em cada button Numérico você irá adicionar o seguinte codigo:

Código:

visor.Text:=visor.Text +'X'; // X é o valor do button, 0 até 9.

Mude o Valor 'x' para o numero do button como eu fiz a observação é de 0 até 9
Agora, no botão da virgula adicione o seguinte codigo:

Código:

visor.Text := visor.Text + ',';

No Button de Adição adicione o seguinte codigo:

Código:

if (visor.Text <> '') then // aqui agente vê se tem algum valor no Visor.
    begin
    valor:=strtofloat(visor.text); // a variável valor recebe o valor contido no visor, devidamente tranformado em um valor float, através da variável strofloat.
        operacao:=1; // a variável operação recebe 1, que é o valor para a operação de soma a ser reconhecida.
        visor.text:=''; // visor fica em branco
        end;

No Button de Subtração adicione o seguinte codigo:

Código:

if (visor.Text <> '') then // aqui agente vai verificar se tem algum valor no visor.
    begin
    valor:=strofloat(visor.text); // a variável valor recebe o valor contido no visor, devidamente tranformado em um valor float, através da variável strofloat.
    operacão:=2; // a variável operação recebe 1, que é o valor para a operação de soma a ser reconhecida.
        visor.text:=''; // visor fica em branco
    end;

Botão de Divisão adicione o seguinte codigo:

Código:

if (visor.Text <> '') then // aqui agente vai verificar se tem algum valor no visor.
    begin
    valor:=strofloat(visor.text); // a variável valor recebe o valor contido no visor, devidamente tranformado em um valor float, através da variável strofloat.
        operacão:=3; // a variável operação recebe 1, que é o valor para a operação de soma a ser reconhecida.
        visor.text:=''; // visor fica em branco
    end;

No Butao de Multiplicação você irá adicionar o seguinte:

Código:

if (visor.Text <> '') then // aqui agente vai verificar se tem algum valor no visor.
    begin
    valor:=strtofloat(visor.text); // a variável valor recebe o valor contido no visor, devidamente tranformado em um valor float, através da variável strofloat.
    operacao:=4; // a variável operação recebe 1, que é o valor para a operação de soma a ser reconhecida.
        visor.text:=''; // visor fica em branco
    end;

Agora no Botão igual o que dá o resultado para você será o seguinte codigo:

Código:

val(visor.text, valorreal, numero); // Função que passa os valores para a variável
case operacao of
1: valor:= valor + valorreal; // se operação for 1, então soma os valores
2: valor:= valor - valorreal; // se operação for 2, então subtrai os valores
3: if (valorreal = 0) then // se operação for 3, então divide os valores
    valor:=0
    else
        valor:=valor / valorreal;
4: valor:= valor * valorreal; // se operação for 4, então multuplica os valores
end;
    str(valor:2:0, total); // valor:2:0 é para colocar casa decimal
    visor.text:=total;
    end;

Ele é meio grande, porém fácil de entender...

Agora, se você quiser o botão para limpar o edit, basta criar ele, e adicionar
a seguinte linha de código:

Código:

visor.text:=''; // limpa o visor
valor:=0; // a variável do valor cálculo recebe 0 "zero"

Pronto..

Olha meu Resultado

[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]

Creditos

Internete
.Panico.