| Selasa, 01 Desember 2009 |
| Menghitung Persegi Panjang |
Pada Kesempatan ini saya memcoba untuk membuat suatu Program yang bertujuan untuk menghitung luas dan Keliling dari sebuah Persegi Panjang. Adapun Tampilan dari program tersebut adalah sebagai berikut :
Komponen-komponen yang harus dibuat adalah :
- Label untuk indikator Text Panjang. (1)
Properties :
Caption = Panjang
Name = Label1
- Label untuk indikator Text Lebar. (2)
ProPerties :
Caption = Lebar
Name = Label2
- Text Editor Untuk memasukan Nilai Panjang. (3)
Properties :
Text = 0 (Nol)
Name = vPanjang
- Text Editor Untuk memasukan Nilai Lebar. (4)
Properties :
Text = 0 (Nol)
Name = vLebar
- Label untuk indikator Text Hasil Perhitungan Luas. (5)
Properties :
Caption = Luas
Name = Label3
- Label untuk indikator Text Hasil Perhitingan Keliling. (6)
Properties :
Caption = Keliling
Name = Label4
- Label untuk Menempatkan Hasil Perhitingan Luas. (7)
Properties :
Caption = (Blank/Kosong)
Name = Luas
- Label untuk Menempatkan Hasil Perhitingan Keliling. (8)
Properties :
Caption = (Blank/Kosong)
Name = Keliling
- Button Untuk Memulai Perhitungan (9)
Properties :
Caption = Mulai Menghitung
Name = Button1
- GroupBox1 Untuk Menempatkan Semua Komponen. (10)
Properties :
Caption = Persegi Panjang
Name = GroupBox1
- GroupBox2 Untuk Menempatka Hasil Perhitungan Luas Dan Keliling. (11)
Properties :
Caption = (Blank/Kosong)
Name = GroupBox2
Tambahkan Script dibawah ini Pada Button1 dengan cara men Double Klik Button1 :
Var
nLuas : Integer;
nKeliling : Integer;
nPanjang : Integer ;
nLebar : Integer ;
begin
nPanjang := StrToInt(vPanjang.text);
nLebar := StrToInt(vLebar.Text);
nLuas := nPanjang * nLebar;
nKeliling := (nPanjang + nLebar) *2;
Luas.Caption := IntToStr(nLuas);
Keliling.Caption := IntToStr(nKeliling);
end;
 Tampilan Akhir Program
Catatan :
Jika kesulitan dalam membuat Label, Text Editor Dan Button silahkan pelajari cara membuatnya pada Posting saya Sebelumnya.
 |
|
|
|
|
|
|
| about me |
|
Hanya Seorang Lelaki Biasa Yang berusaha menjadi Suami, Ayah dan Anak yang Baik...
|
|
|
| My Lovely Daughter : |
|
|
| Yang Terdahulu : |
|
|
|
|
| Jadwal SHOLAT |
|
|
|
| Buku Tamu : |
|
|
| Jumlah Pengunjung : |
|
|
| Thanks To : |
|
Allah SWT, Muhammad SAW, My Parent, My Amazing Lady (My Wife & My Daughter), All OF my Friend in STMIK YPAT Purwakarta, Focus Komputer (Purwakarta), Bpk. Nanang & Ibu Dince For A Great Teaching, And ALL OF U (The Visiter of My BLOG) .. God Bless U |
|
| My Favorit Links |
|
|
|
| Template by |
|
|
 |
|
|
Posting Komentar