Calculadora básica no Lazarus

Publicado por Perfil removido 06/04/2009

[ Hits: 14.403 ]

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

Números perfeitos

soma de números pares

Tocador de Vídeo (Lazarus)

Função Fatorial Recursiva em Ada 95

somatório de uma matriz 7x5


  

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