Program Penghitung berbasis Bahasa Borland Delphi 7

unit Latihan3b;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm2 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    ENilai1: TEdit;
    Label3: TLabel;
    ENilai2: TEdit;
    Label4: TLabel;
    BTambah: TButton;
    BKali: TButton;
    BBagi: TButton;
    BKurang: TButton;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    BTutup: TButton;
    ETambah: TEdit;
    EKali: TEdit;
    EBagi: TEdit;
    EKurang: TEdit;
    procedure BTambahClick(Sender: TObject);
    procedure BKaliClick(Sender: TObject);
    procedure BBagiClick(Sender: TObject);
    procedure BKurangClick(Sender: TObject);
    procedure BTutupClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.BTambahClick(Sender: TObject);
var
nil1,nil2:real;
tambah:real;


begin

//fungsi penjumlahan
 nil1 := strtofloat(ENilai1.Text );
 nil2 := strtofloat(ENilai2.Text );
 tambah := nil1 + nil2;

  ETambah.Text := floattostr(tambah);
end;

procedure TForm2.BKaliClick(Sender: TObject);
var
bil1,bil2:real;
kali : real;

begin
// fungsi perkalian
bil1 := strtofloat(ENilai1.Text );
bil2 := strtofloat(ENilai2.Text );
kali := bil1*bil2;

EKali.Text := floattostr(kali);


end;

procedure TForm2.BBagiClick(Sender: TObject);

var

bil1,bil2 :real;
bagi:real;


begin
bil1 := strtofloat(ENilai1.Text );
bil2 := strtofloat(ENilai2.Text );

bagi := bil1/bil2;

EBagi.Text := floattostr(bagi);
end;

procedure TForm2.BKurangClick(Sender: TObject);
var

bil1, bil2, kurang :real;
begin


bil1 := strtofloat(ENilai1.Text) ;
bil2 := strtofloat(ENilai2.Text) ;

kurang := bil1-bil2;

EKurang.Text := floattostr(kurang);


end;

procedure TForm2.BTutupClick(Sender: TObject);
begin
messageDlg('Yakin Ingin Menutup Form',mtInformation,[mbok],0);
close;
end;

end.