Cara Membuat Aplikasi Luas dan Keliling Persegi Panjang Menggunakan Delphi

Kali ini penulis ingin berbagi cara membuat aplikasi sederhana menggunakan Delphi yakni Luas dan Keliling Persegi Panjang. Dalam kesempatan ini, penulis menggunakan komponen 2 LabeledEdit, 2 Button, 3 GroupBox, 1 StatusBar, dan 1 Listbox. Perhatikan desain di bawah ini.

Pada desain di atas, silahkan lakukan pengaturan seperti berikut.

Atribut	Keterangan	Atribut	Keterangan
LabeledEdit1	Caption: Panjang Name: e1	LabeledEdit2	Caption: Lebar Name: e2
Button1	Caption: Hitung	Button2	Caption: Hapus
GroupBox1	Caption: Input	ListBox1	-
GroupBox2	Caption: Proses	StatusBar1	Text: www.dm-math.blogspot.com
GroupBox3	Caption: Output

Pada tombol “Hitung”, ketikkan scribs berikut.

Var p,l,K,Lp:real;

begin

listbox1.Clear;

p:=strtofloat(e1.Text);

l:=strtofloat(e2.Text);

if (p<=0) or (l<=0) then showmessage('Maaf, Inputan Salah')

else begin

K:=2*(p+l);

Lp:=p*l;

listbox1.Items.Add('Diketahui:');

listbox1.Items.Add('Panjang = '+floattostr(p));

listbox1.Items.Add('Lebar = '+floattostr(l));

listbox1.Items.Add('================================');

listbox1.Items.Add('Ditanya: Keliling & Luas = ...?');

listbox1.Items.Add('================================');

listbox1.Items.Add('== Keliling ==');

listbox1.Items.Add('K = 2(p+l)');

listbox1.Items.Add('K = 2('+floattostr(p)+' + '+floattostr(l)+')');

listbox1.Items.Add('K = '+floattostr(K));

listbox1.Items.Add('== Luas ==');

listbox1.Items.Add('L = p x l');

listbox1.Items.Add('L = '+floattostr(p)+' x '+floattostr(l));

listbox1.Items.Add('L = '+floattostr(Lp));

end;

end;

Pada tombol “Hapus”, ketikkan scribs berikut.

e1.Clear;

e2.Clear;

listbox1.Clear;

e1.SetFocus;

Untuk keluar, kunci Form1 kemudian pilih Event pada Object Inspektor dan double klik pada OnClose, selanjutnya ketikkan scribs ini.

     showmessage('www.dm-math.blogspot.com');

Lebih jelasnya silahkan download aplikasinya disini.

Silahkan share (dibagikan). Oya jangan lupa like ya sebagai bukti Anda pernah berkunjung ke Pustaka Matematika-ku. Terima Kasih. Semoga bermanfaat.

Download: Modul Delphi Dalam Pengembangan Media PembelajaranMatematika