Criacao delphi calculadora simples

Disponível somente no TrabalhosFeitos
  • Páginas : 2 (302 palavras )
  • Download(s) : 0
  • Publicado : 21 de dezembro de 2012
Ler documento completo
Amostra do texto
unit UnCalc;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TFmCalculadora = class(TForm)
Edit1: TEdit;Edit2: TEdit;
Edit3: TEdit;
btnSoma: TButton;
btnSubtracao: TButton;
btnMultiplica: TButton;
btnDivide: TButton;
btnLimpa: TButton;
procedure btnSomaClick(Sender:TObject);
procedure btnSubtracaoClick(Sender: TObject);
procedure btnMultiplicaClick(Sender: TObject);
procedure btnDivideClick(Sender: TObject);
procedure btnLimpaClick(Sender:TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
FmCalculadora: TFmCalculadora;

implementation

{$R *.dfm}

procedureTFmCalculadora.btnDivideClick(Sender: TObject);
var
valor1, valor2 : Double; // cria 2 variaveis do tipo float


begin
valor1 := StrToFloat(Edit1.Text);// converte texto em edit1 p valor numerico
valor2 :=StrToFloat(Edit2.Text);// converte texto em edit2 p valor numerico
Edit3.Text := FloatToStr(valor1 / valor2); //insere o valor da divisao no Edit3//ja convertido para string


end;

procedure TFmCalculadora.btnLimpaClick(Sender: TObject);
begin
Edit1.Clear;
Edit2.Clear;
Edit3.Clear;


end;

procedureTFmCalculadora.btnMultiplicaClick(Sender: TObject);
var
valor1, valor2 : Double; // cria 2 variaveis do tipo float


begin
valor1 := StrToFloat(Edit1.Text);// converte texto em edit1 p valor numerico
valor2 :=StrToFloat(Edit2.Text);// converte texto em edit2 p valor numerico
Edit3.Text := FloatToStr(valor1 * valor2); //insere o valor da multiplicacao no Edit3//ja convertido para string



end;

procedure TFmCalculadora.btnSomaClick(Sender: TObject);

var
valor1, valor2 : Double; // cria 2 variaveis do tipo float


begin
valor1 :=...
tracking img