Calculadora básica no Lazarus

Publicado por Perfil removido 06/04/2009

[ Hits: 14.691 ]

Download calculadora_Lazarus




Seguindo essas instruções e o código fonte desse script você terá uma calculadora básica no Lazarus.

  



Esconder código-fonte

Componentes necessários:

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

Código-fonte:

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

Scripts recomendados

mais um modelo de programa com vetor

jogo bobo testando com case

exemplo de vetores

Calculadora Empresarial (Baseada nas fórmulas de Logística)Lazarus

Função Fatorial Recursiva em Ada 95


  

Comentários
[1] Comentário enviado por doradu em 09/02/2010 - 16:42h

mas eu tou usando o Pascal, como vou compilar isso?

este tópico é de Pascal

[2] Comentário enviado por doradu em 09/02/2010 - 16:47h

tire os asteriscos, por favor


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts