Criacao delphi calculadora simples

Páginas: 2 (302 palavras) Publicado: 21 de dezembro de 2012
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 :=...
Ler documento completo

Por favor, assinar para o acesso.

Estes textos também podem ser interessantes

  • Calculadora em delphi
  • pesquisa simples delphi
  • Calculadora simples linguagem c
  • Criando Uma Calculadora B Sica Em Delphi
  • Programacao em C++ CALCULADORA SIMPLES
  • Calculadora simples em jquery
  • Delphi com banco de dados criação do projeto
  • Delphi

Seja um membro do Trabalhos Feitos

CADASTRE-SE AGORA!