Toko Abdurrahiim | Sedia Aneka Herbal

Operator Aritmatika

unit operator;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls;

type

  TForm3 = class(TForm)

    GroupBox1: TGroupBox;

    Label1: TLabel;

    Label2: TLabel;

    enilai1: TEdit;

    enilai2: TEdit;

    Label3: TLabel;

    ehasil: TEdit;

    btambah: TButton;

    bkurang: TButton;

    bbagi: TButton;

    bkali: TButton;

    blagi: TButton;

    bexit: TButton;

    Label5: TLabel;

    procedure btambahClick(Sender: TObject);

    procedure bkurangClick(Sender: TObject);

    procedure bbagiClick(Sender: TObject);

    procedure bkaliClick(Sender: TObject);

    procedure blagiClick(Sender: TObject);

    procedure bexitClick(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form3: TForm3;

implementation

{$R *.dfm}

procedure TForm3.btambahClick(Sender: TObject);

var

nil1,nil2:real;

tambah:real;

begin

label3.Caption:=btambah.Caption;

nil1:=strtofloat(enilai1.Text);

nil2:=strtofloat(enilai2.Text);

tambah:=nil1 + nil2;

ehasil.Text:=floattostr(tambah)

end;

procedure TForm3.bkurangClick(Sender: TObject);

var

nil1,nil2:real;

kurang:real;

begin

label3.Caption:=bkurang.Caption;

nil1:=strtofloat(enilai1.Text);

nil2:=strtofloat(enilai2.Text);

kurang:=nil1 - nil2;

ehasil.Text:=floattostr(kurang)

end;

procedure TForm3.bbagiClick(Sender: TObject);

var

nil1,nil2:real;

bagi:real;

begin

label3.Caption:=bbagi.Caption;

nil1:=strtofloat(enilai1.Text);

nil2:=strtofloat(enilai2.Text);

bagi:=nil1 / nil2;

ehasil.Text:=floattostr(bagi)

end;

procedure TForm3.bkaliClick(Sender: TObject);

var

nil1,nil2:real;

kali:real;

begin

label3.Caption:=bkali.Caption;

nil1:=strtofloat(enilai1.Text);

nil2:=strtofloat(enilai2.Text);

kali:=nil1 * nil2;

ehasil.Text:=floattostr(kali)

end;

procedure TForm3.blagiClick(Sender: TObject);

begin

enilai1.Text:='';

enilai2.Text:='';

ehasil.Text:='';

label3.Caption:='';

end;

procedure TForm3.bexitClick(Sender: TObject);

begin

close;

end;

end.