Menghitung Lingkaran

Buatlah tampilan seperti dibawah ini :



Komponen-komponen yang harus dibuat adalah :

• Label untuk indikator Text Sisi dari Jari-jari Lingkaran. (1)
  

Properties :
Caption = Jari-Jari
Name = Label1

• Text Editor Untuk memasukan Nilai Jari-Jari Lingkaran. (2)
  

Properties :
Text = 0 (Nol)
Name = vJari

• 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 = Lingkaran
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
nJari:integer;
nKliling,nLuas:real;
begin
nJari :=StrToInt(vJari.Text);
nKliling:=2*3.14*nJari;
nLuas:=3.14*nJari*njari;

Luas.Caption :=floattostr(nKliling);
Keliling.Caption :=floattostr(nLuas);
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 Kamis, 03 Desember 2009 - Rating: 4.5

Title : Menghitung Lingkaran
Description : Buatlah tampilan seperti dibawah ini : Komponen-komponen yang harus dibuat adalah : Label untuk indikator Text Sisi dari Jari-jari Lingkara...

Tweet