Hitung Luas Persegi Panjang Menggunakan Delphi 7

Untuk   membuat   program   menghitung   persegi panjang   ini,   kita   membutuhkan   sebuah   form.   Namun   anda   juga   bias membuatnya bersama proyek yang baru. Kemudian anda masukan beberapa komponen diantaranya Label sebanyak tiga buah, Edit sebanyak tiga buah dan Button sebanyak lima buah. Anda atur posisinya sehingga terlihat seperti pada Gambar berikut ini :

MENGUBAH PROPERTI

Dengan menggunakan Object Inspector, ubahlah properti dari komponen yang ada dengan ketentuan sebagai berikut :

Nama Objek	Properti Yang Diubah	Nilai
Form1 : TForm1 Label1 : TLabel1 Label2 : TLabel2 Label3 : TLabel3 Edit1 : TEdit1 Edit2 : Tedit2 Edit3 : Tedit3 Button1 : TButton1 Button2 : Tbutton2 Button3 : Tbutton3 Button4 : Tbutton4 Button5 : Tbutton5 Panel1 : TPanel1	Caption Caption Font : Size Caption Caption Text Text Text Caption Caption Caption Caption Caption	Menghitung persegi panjang Panjang: 8 lebar: keliling: edit1 edit2 edit3 keliling bersih keluar panjang lebar Kosongkan

Jika sudah selesai seharusnya tampilan form anda akan terlihat seperti gambar dibawah ini :

MEMASUKAN KODE

Agar desain program yang telah kita buat bisa berfungsi sebagaimana mestinya, tentunya kita harus memasukkan kode kedalam objek tersebut. Anda cukup memasukan kode untuk Button1 dan Button2 saja. Berikut ini kode sumbernya:

procedure TForm1.Button1Click(Sender: TObject);

var panjang,lebar,keliling: real;

begin

unit Unit1;

interface

uses

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

  Dialogs, StdCtrls;

type

  TForm1 = class(TForm)

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Edit1: TEdit;

    Edit2: TEdit;

    Edit3: TEdit;

    Button1: TButton;

    Button2: TButton;

    Button3: TButton;

    Button4: TButton;

    Button5: TButton;

    procedure Button3Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    procedure Button4Click(Sender: TObject);

    procedure Button5Click(Sender: TObject);

    procedure FormCreate(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button3Click(Sender: TObject);

begin

Close;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

edit1.Text:='';

edit2.Text:='';

edit3.Text:='';

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

edit3.Text:=inttostr((strtoint(edit1.Text)+strtoint(edit2.Text))*2);

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

edit1.Text:=currtostr((strtocurr(edit3.Text)/ 2)- (strtocurr(edit2.Text)));

end;

procedure TForm1.Button5Click(Sender: TObject);

begin

edit2.Text:=currtostr((strtocurr(edit3.Text)/ 2)- (strtocurr(edit3.Text)));

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

edit1.Text:='';

edit2.Text:='';

edit3.Text:='';

end;

end.

Demikianlah program sederhana menghitung luas segitga kali ini, semoga bermanfaat.