| Kamis, 03 Desember 2009 |
| Menghitung Bujur Sangkar |
Buat lah Tampilan Seperti dibawah ini :
Komponen-komponen yang harus dibuat adalah :
- Label untuk indikator Text Sisi dari Bujur Sangkar. (1)
Properties :
Caption = Sisi Bujur Sangkar
Name = Label1
- Text Editor Untuk memasukan Nilai Sisi Bujur Sabgkar. (2)
Properties :
Text = 0 (Nol)
Name = vSisi
- Label untuk indikator Text Hasil Perhitungan Luas. (3)
Properties :
Caption = Luas
Name = Label3
- Label untuk indikator Text Hasil Perhitingan Keliling. (4)
Properties :
Caption = Keliling
Name = Label4
- Label untuk Menempatkan Hasil Perhitingan Luas. (5)
Properties :
Caption = (Blank/Kosong)
Name = Luas
- Label untuk Menempatkan Hasil Perhitingan Keliling. (6)
Properties :
Caption = (Blank/Kosong)
Name = Keliling
- Button Untuk Memulai Perhitungan (7)
Properties :
Caption = Mulai Menghitung
Name = Button1
- GroupBox1 Untuk Menempatkan Semua Komponen.
Properties :
Caption = Bujur Sangkar
Name = GroupBox1
- GroupBox2 Untuk Menempatkan Hasil Perhitungan Luas Dan Keliling.
Properties :
Caption = (Blank/Kosong)
Name = GroupBox2
Tambahkan Script dibawah ini Pada Button1 dengan cara meng Double Klik Button1 :
var
nSisi : Integer ;
nLuas : Integer ;
nkeliling : integer;
begin
nSisi := StrToInt(vSisi.text);
nLuas := nSisi * nSisi;
nKeliling := nSisi *4;
Luas.Caption := IntToStr(nLuas);
Keliling.Caption := IntToStr(nKeliling);
Tampilah 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