Listing Kalkulator Sederhana

Contoh form kalkulator

unit Unit_kalkulator;
TForm1 = class(TForm)
  a: TEdit;
  b: TEdit;
  kurang: TButton;
  tambah: TButton;
  kali: TButton;
  bagi: TButton;
  hasil: TLabel;
  Button1: TButton;
  fungsipangkat: TButton;
  Image1: TImage;
  Button2: TButton;
 
  procedure tambahClick(Sender: TObject);
  function tambahkan(a,b:integer):integer ;
  function kurangkan (a,b:integer):integer ;
  function bagikan (a,b:integer):single ;
  function kalikan (a,b : integer) : integer ;
  procedure Button1Click(Sender: TObject);
  procedure kurangClick(Sender: TObject);
  procedure bagiClick(Sender: TObject);
  procedure kaliClick(Sender: TObject);
  procedure fungsipangkatClick(Sender: TObject);
  function pangkatkan (a,b: integer ):integer ;
end;
var
  Form1: TForm1;
 
function tform1.pangkatkan (a,b: integer ):integer ;
  var i,sk1 : integer ;
begin
  pangkatkan:= 0 ;
  sk1:= a ;
  if b=1 then sk1:=a
  else begin
   for i:=2 to b do
   begin
    sk1:=sk1*a;
   end;
  pangkatkan:=sk1 ;
  if b=0 then pangkatkan:=1 ;
  end;
end;
 
function tform1.tambahkan (a,b: integer ):integer ;
begin
  tambahkan:=a+b ;
end;
 
function tform1.kurangkan (a,b : integer) : integer ;
begin
  kurangkan:=a-b ;
end;
 
function tform1.bagikan (a,b:Integer):single ;
begin
  bagikan:=a / b ;
end;

function tform1.kalikan (a,b : integer) : integer ;
begin
  kalikan:=a*b ;
end;
 
procedure TForm1.tambahClick(Sender: TObject);
var c:integer ;
begin
  c:= tambahkan(strtoint(a.Text),strtoint (b.Text)) ;
  hasil.Caption := inttostr (c) ;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  application.Terminate ;
end;
 
procedure TForm1.kurangClick(Sender: TObject);
var d:integer ;
begin
  d:=kurangkan (strtoint (a.Text),strtoint(b.Text)) ;
  hasil.Caption :=inttostr (d) ;
end;
 
procedure TForm1.bagiClick(Sender: TObject);
var e:single ;
begin
  e:=bagikan (strtoint (a.Text), strtoint(b.Text)) ;
  hasil.Caption :=floattostr (e) ;
end;
 
procedure TForm1.kaliClick(Sender: TObject);
var d:integer ;
begin
  d:=kalikan(strtoint (a.Text),strtoint(b.Text)) ;
  hasil.Caption :=inttostr (d) ;
end;
 
procedure TForm1.fungsipangkatClick(Sender: TObject);
var d:integer ;
begin
  d:=pangkatkan (strtoint(a.Text), strtoint (b.Text) );
  hasil.Caption:=inttostr(d);
end;
 
end.