Como Criar Uma Calculadora [Em Delphi 7]

[AlcidesTHM 0]

Eaae Galerinha da WC, to aqui de volta e hoja, estarei disponibilizando A Source de uma Calculadora.

 

Primeiro Faça o Design de Sua Calculadora Que deve ser Parecido a Esse:

Primeiro Adicione 5 Buttons, com os Seguintes names e captions.

O Button1 Coloque seu Caption como Mais/+

O Button2 Coloque seu Caption como Menos/-

O Button3 Coloque seu Caption como Vezes/*

O Button4 Coloque seu Caption como Dividir /

O Button5 Coloque seu Caption como CE ou Zerar.

Depois Adicione 3 Edits:

O Edit1 sera para por o primeiro Numero.

O Edit2 sera para por o segundo Numero.

O Edit3 sera para aparecer o Resultado.

 

O Programa sera assim, Coloque o 1º e o 2º Numero, aperte na operaçao que quiser e o resultado aparecera em baixo.

 

Vamos a programaçao.

Va ate a source, Unit de seu programa, Apague tudo e cole o seguinte codigo:

unit Unit1;

 

interface

 

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

 

type

TForm1 = class(TForm)

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Button1: TButton;

Button2: TButton;

Button3: TButton;

Button4: TButton;

Button5: TButton;

Label1: TLabel;

Label2: TLabel;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

 

var

Form1: TForm1;

valor: real;

implementation

 

{$R *.dfm}

 

procedure TForm1.Button1Click(Sender: TObject);

begin

valor:=strtofloat(edit1.text)+ strtofloat(edit2.text);

edit3.text:=floattostr(valor);

end;

 

procedure TForm1.Button2Click(Sender: TObject);

begin

valor:=strtofloat(edit1.text)- strtofloat(edit2.text);

edit3.text:=floattostr(valor);

end;

 

procedure TForm1.Button3Click(Sender: TObject);

begin

valor:=strtofloat(edit1.text)* strtofloat(edit2.text);

edit3.text:=floattostr(valor);

end;

 

procedure TForm1.Button4Click(Sender: TObject);

begin

valor:=strtofloat(edit1.text)/ strtofloat(edit2.text);

edit3.text:=floattostr(valor);

end;

 

procedure TForm1.Button5Click(Sender: TObject);

begin

edit1.Text:= '';

edit2.Text:= '';

edit3.Text:= '';

edit1.SetFocus;

end;

 

end.

 

Obrigado, Gostou, Agradeça. (:

[ddox 3]

Hoje me deu a vontade de começar com Delphi , e tambem irei estudar em cima desse tutorial tentarei fazer uma calculadora (:

Muito Obrigo tu serás o meu primeiro tuto no assunto Delphi ;)

Brigadao !

[iMelo~' 15]

Desculpe amigo mas voce posto

o campo inteiro o que nao da

para compilar poderia arrumar

o tutorial para os membros ?

Té+