Membuat Program Aplikasi Luas dan Keliling Lingkaran Dengan Delphi

Program Aplikasi Luas dan Keliling Lingkaran

Sebagai langkah awal, anda akan membuat program aplikasi untuk menghitung luas dan keliling bangun datar lingkaran. Perhatikan gambar di bawah ini!.

Gambar 3.1 Program Aplikasi Luas dan Keliling Lingkaran

Langkah-langkah Kerja:

1. Letakkan 2 komponen Label, 1 komponen Edit, 3 komponen BitButton, dan 1 komponen Memo pada sebuah Form. Kemudian ubahlah property komponen – komponen di atas seperti pada tabel berikut ini:

Tabel 3.1 Daftar Komponen Program Aplikasi Luas dan Keliling Lingkaran

Komponen	Tab	Nomor	Properti	Nama
Form	-	-	Caption	Luas + Keliling Lingkaran
Label	Standard	1	Caption	LINGKARAN
Label		2	Caption	Radius
Edit		1	Text	Kosongkan
Button	Additional	1	Caption	&Proses
		2	Caption	&New
		3	Kind	bkClose
Memo	Standard	1	-	-

2. Aturlah letak komponen – komponen tersebut pada form seperti gambar di bawah ini :

Gambar 3.2 Desain Program Aplikasi Luas dan Keliling Lingkaran

3. Klik ganda pada tombol “Proses” dan ketikkan sintak berikut ini:

procedure TForm1.BitBtn1Click(Sender: TObject);

var r:real;

k,l:real;

begin

memo1.Clear;

r:=strtoint(edit1.Text);

k:=2*pi*r;

l:=pi*r*r;

memo1.Lines.Add('Keliling = '+floattostr(k));

memo1.Lines.Add('Luas = '+floattostr(l));

end;

4. Klik ganda pada tombol “New” dan ketikkan sintak berikut ini:

procedure TForm1.BitBtn2Click(Sender: TObject);

begin

edit1.Clear;

memo1.clear;

edit1.Setfocus;

end;

5. Terakhir silahkan eksekusi program aplikasi anda dengan meng-klik komponen Run pada Toolbar atau tekan tombol F9 pada keyboard. Maka akan tampil jendela seperti di bawah ini: