[Codigos] Codigos Para a criacao e uma calculadora.

Ir em baixo

[Codigos] Codigos Para a criacao e uma calculadora.

Mensagem por Coca em Dom 25 Jul 2010 - 20:58

galera postarei os codigo para a criacao de uma calculadora atravez do delphi

Vou começar com as labels e buttons que é necessário ter para fazer:
Código:
Label1=1º NÚMERO
Label2=2º NÚMERO
Labe3=RESULTADO
Button1=Adição
Button2=Divisão
Button3=Multiplicação
Button4=Subtração
Button5=Apagar
Button6=Sair





Agora o jeito que ficaram meus códigos:
Código:
unit Ucalculadora;
{$mode objfpc}{$H+}

interface

uses
**Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, StdCtrls,
**Buttons;

type

**{ TForm1 }

**TForm1 = class(TForm)
****ADICAO: TButton;
****SUBTRACAO: TButton;
****DIVISAO: TButton;
****MULTIPLICACAO: TButton;
****APAGAR: TButton;
****SAIR: TButton;
****Edit1: TEdit;
****Edit2: TEdit;
****Edit3: TEdit;
****Label1: TLabel;
****Label2: TLabel;
****Label3: TLabel;
****procedure ADICAOClick(Sender: TObject);
****procedure APAGARClick(Sender: TObject);
****procedure DIVISAOClick(Sender: TObject);
****procedure MULTIPLICACAOClick(Sender: TObject);
****procedure SAIRClick(Sender: TObject);
****procedure SUBTRACAOClick(Sender: TObject);
**private
****{ private declarations }
**public
****{ public declarations }
**end;

var
**Form1: TForm1;

implementation

{ TForm1 }

procedure TForm1.ADICAOClick(Sender: TObject);
var n1,n2,calculo:real;
begin
**n1:=StrToFloat(Edit1.text);
**n2:=StrToFloat(Edit2.text);
**calculo:=n1+n2;
**Edit3.text:=FloatToStr(calculo);
end;

procedure TForm1.APAGARClick(Sender: TObject);
begin
**Edit1.text:='';
**Edit2.text:='';
**Edit3.text:='';
end;

procedure TForm1.DIVISAOClick(Sender: TObject);
var
**n1,n2,calculo:real;
begin
**n1:=StrToFloat(Edit1.text);
**n2:=StrToFloat(Edit2.text);
**calculo:=n1/n2;
**Edit3.text:=FloatToStr(calculo);
end;

procedure TForm1.MULTIPLICACAOClick(Sender: TObject);
var
**n1,n2,calculo:real;
begin
**n1:=StrToFloat(Edit1.text);
**n2:=StrToFloat(Edit2.text);
**calculo:=n1*n2;
**Edit3.text:=FloatToStr(calculo);
end;

procedure TForm1.SAIRClick(Sender: TObject);
begin
**Form1.Close;
end;

procedure TForm1.SUBTRACAOClick(Sender: TObject);
var
**n1,n2,calculo:real;
begin
**n1:=StrToFloat(Edit1.text);
**n2:=StrToFloat(Edit2.text);
**calculo:=n1-n2;
**Edit3.text:=FloatToStr(calculo);
end;

initialization
**{$I ucalculadora.lrs}

end.
AgressiveStylle









Sexo:  Mensagens: 245
Agradecido: 3
Data de nascimento: 04/01/1995
Data de inscrição: 08/05/2010
Idade: 15
Localização: meu quarto *-*



 



Preucuramos moderador e coordenador e game zone, por favor entra em contato com Coca.
ENIVAR MP.

FireHackers A procura de novos Membros e cada vez melhor.
avatar
Coca
Administrador
Administrador

<b>Mensagens/Posts</b> Mensagens/Posts : 77
Moedas Moedas : 5462
Idade Idade : 22
<b>Localização</b> Localização : Hacking

Compras
   : Compro o Fórum..

http://firehackers.rg3.net

Voltar ao Topo Ir em baixo

Voltar ao Topo

- Tópicos similares

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum