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.

Posted by Unknown on Selasa, 01 Desember 2009 - Rating: 4.5

Title : Menghitung Persegi Panjang
Description : Pada Kesempatan ini saya memcoba untuk membuat suatu Program yang bertujuan untuk menghitung luas dan Keliling dari sebuah Persegi Panjang. ...

Tweet