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.

Posted by Unknown on Kamis, 03 Desember 2009 - Rating: 4.5

Title : Menghitung Bujur Sangkar
Description : Buat lah Tampilan Seperti dibawah ini : Komponen-komponen yang harus dibuat adalah : Label untuk indikator Text Sisi dari Bujur Sangkar. (1...

Tweet