Menghitung Luas Dan Keliling Lingkaran Menggunakan Visual Basic

1. Desain awal program

2. Atur Properties Masing-masing Objek sebagai berikut:

NO.	OBJEK	PROPERTIES	PENGATURAN
1	Form1	Text	Project Luas lingkaran
		BackColor	ScrollBar
2	Label1	Text	Menghitung Luas Lingkaran
		Bold	True
		FontSize	10
3	Label2	Text	Jari-jari :
4	Label3	Text	Luas :
5	Label4	Text	Lingkaran :
6	Textbox1	Name	Txtjarijari
7	Textbox2	Name	Txtluas
8	Textbox3	Name	Txtlingkaran
9	Button1	Text	Proses
		Name	Btnproses
10	Button2	Text	Bersih
		Name	Btnbersih
11	Button3	Text	Tutup
		Name	Btntutup

Tampilan program setelah pengaturan properties sebagai berikut:

 

3. Pemberian Perintah/Instruksi pada Program

     Alur Program:

a.    Masukkan nilai jari-jari pada label2 (Jari-jari) di Textbox1 (Txtjarijari).

b.    Setelah itu klik Button1 (Proses) supaya dapat mengetahui hasil luas dan keliling lingkaran berdasarkan nilai jari-jari yang terdapat pada label2 (Jari-jari)di Textbox1 (Txtjarijari) dan hasilnya akan keluar pada label3 (Luas) di Textbox2 (Txtluas) dan label4 (Keliling) di Textbox3 (Txtkeliling) berdasarkan rumus yang terdapat pada Perintah Program.

c.    Jika diklik tombol Button2(Bersih), maka:

a.      Nilai yang terdapat pada Textbox1 (Txtjarijari) akan hilang.

b.      Nilai yang terdapat pada Textbox2 (Txtluas) akan hilang.

c.       Nilai yang terdapat pada Textbox3 (Txtkeliling) akan hilang.

d.    Jika diklik tombol Button3(Tutup), maka program akan ditutup (keluar dari program)

Perintah Program :

PrivateSub Btnbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnbersih.Click

        Txtjarijari.Text = " "

        Txtluas.Text = " "

        Txtkeliling.Text = " "

EndSub

PrivateSub Btntutup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btntutup.Click

End

EndSub

PrivateSub Btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnproses.Click

        Txtluas.Text = 22 / 7 * Txtjarijari.Text * Txtjarijari.Text

        Txtkeliling.Text = 2 * 22 / 7 * Txtjarijari.Text

EndSub

EndClass

Tampilan Program setelah dijalankan sebagai berikut :

Untuk menjalankan program, klik tombol Start Debugging          atau tekan tombol F5 pada keyboard.

Untuk menutup program, klik tombol Stop Debugging