"Ilmu yang bermanfaat" adalah salah satu kunci naungan Allah kepada kita di padang Masyar.

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
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:
Gambar 3.3 Hasil Eksekusi Program Aplikasi Luas dan Keliling Lingkaran

6.    Simpanlah Program Aplikasi anda melalui: File à Save All, tempatkan di (D:). Simpan dengan nama folder “Praktikum Delphi III-a”, klik OK.

No comments:

Post a Comment