Ejercicio Lazarus

Comparto la práctica en el IDE Lazarus




Realiza una calculadora que lea dos números y muestre el resultado de la suma, resta, multiplicación y división, de acuerdo al siguiente diseño:

La programación:

unit codcalculadora;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

  { TfrmCalculadora }

  TfrmCalculadora = class(TForm)
    btnSuma: TButton;
    btnResta: TButton;
    btnProducto: TButton;
    btnDivision: TButton;
    btnLimpiar: TButton;
    btnSalir: TButton;
    txtN1: TEdit;
    txtN2: TEdit;
    lblN1: TLabel;
    lblN2: TLabel;
    lblResultado: TLabel;
    procedure btnDivisionClick(Sender: TObject);
    procedure btnLimpiarClick(Sender: TObject);
    procedure btnProductoClick(Sender: TObject);
    procedure btnRestaClick(Sender: TObject);
    procedure btnSalirClick(Sender: TObject);
    procedure btnSumaClick(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  frmCalculadora: TfrmCalculadora;
  n1,n2,suma,resta,producto:integer;
  division:real;

implementation

{$R *.lfm}

{ TfrmCalculadora }

procedure TfrmCalculadora.btnLimpiarClick(Sender: TObject);
begin
  txtN1.Clear;
  txtN2.Clear;
  lblResultado.Caption:='';
  txtN1.SetFocus;
end;

procedure TfrmCalculadora.btnDivisionClick(Sender: TObject);
begin
  n1:=strtoint(txtN1.Text);
  n2:=strtoint(txtN2.Text);

  division:=n1/n2;
  lblResultado.Caption:='El producto es: '+floattostr(division);
end;

procedure TfrmCalculadora.btnProductoClick(Sender: TObject);
begin
  n1:=strtoint(txtN1.Text);
  n2:=strtoint(txtN2.Text);

  producto:=n1*n2;
  lblResultado.Caption:='El producto es: '+inttostr(producto);
end;

procedure TfrmCalculadora.btnRestaClick(Sender: TObject);
begin
  n1:=strtoint(txtN1.Text);
  n2:=strtoint(txtN2.Text);

  resta:=n1-n2;
  lblResultado.Caption:='La resta es: '+inttostr(resta);
end;

procedure TfrmCalculadora.btnSalirClick(Sender: TObject);
begin
  close;
end;

procedure TfrmCalculadora.btnSumaClick(Sender: TObject);
begin
  n1:=strtoint(txtN1.Text);
  n2:=strtoint(txtN2.Text);

  suma:=n1+n2;
  lblResultado.Caption:='La suma es: '+inttostr(suma);
end;

end.