Aplikasi Penghitung Luas Bangun lingkaran , Persegi panjang , dan Persegi dengan netbenas

1.       Desain Aplikasi

Object	Property	Nilai
Frame	BorderStyle	0
	BackColor	&H00FF8080&
Frame	Caption	Hitung Luas Lingkaran
Frame	Caption	Hitung Luas Persegi Panjang
	Visible	False
Frame	Caption	Hitung Luas Persegi
	Visible	False
Frame	BorderStyle	0
OptionButton	Name	Optlingkaran5800
	Caption	Lingkaran
	Value	True
OptionButton	Name	Optpersegipanjang5800
	Caption	Persegi Panjang
OptionButton	Name	Optpersegi5800
	Caption	Persegi
Label	Caption	Mencari Luas Bangun
Label	Caption	Jari-jari
Label	Caption	Panjang
Label	Caption	Lebar
Label	Caption	Sisi
Label	Caption	Luas
TextBox	Name	txtjari5800
TextBox	Name	txtpanjang5800
TextBox	Name	txtlebar5800
TextBox	Name	txtsisi5800
TextBox	Name	txtluas5800
CommandButton	Name	btnhitung5800
	Caption	Hitung
CommandButton	Name	btnrefresh5800
	Caption	Refresh
CommandButton	Name	btnkeluar5800
	Caption	Keluar
Shape	Name	Shbangun5800
	BackColor	&H00FF8080&
	BackStyle	1
	Shape	3

2.       Rancangan Aplikasi

a.       Tampilan default pertama kali form dimuat menampilkan option button lingkaran terpilih, frame untuk menghitung luas lingkaran dan Shape lingkaran.

b.       Ketika option button Persegi panjang dipilih, Frame untuk menghitung persegipanjang ditampilkan dan shape berubah menjadi persegi panjang.

c.       Ketika option button Persegi dipilih, Frame untuk menghitung persegi ditampilkan dan shape berubah menjadi persegi.

d.       Ketika tombol refresh ditekan maka tampilan form akan kembali seperti pertamakali dimuat.

3.       Kode Aplikasi

a.       Kode pada file module, berisi deklarasi constant pi, dan fungsi untuk menghitung luas lingkaran, persegi panjang dan persegi.

b.       General procedure dan Event Procedure pada form module.

Labels: PROGRAM

Thanks for reading Aplikasi Penghitung Luas Bangun lingkaran , Persegi panjang , dan Persegi dengan netbenas. Please share...!