Mencari Volume Tabung Dengan Menggunakan Visual Basis

1. Desainawal program

2. Atur Properties Masing-masing Objek sebagai berikut:

NO.	OBJEK	PROPERTIES	PENGATURAN
1	Form1	Text	Project Volume Tabung
		BackColor	ActiveCaption
2	Label1	Text	Operasi Matematika
		Bold	True
		FontSize	10
3	Label2	Text	Radius :
4	Label3	Text	Tinggi :
5	Label4	Text	Hasil :
6	Textbox1	Name	Txtradius
7	Textbox2	Name	Txttinggi
8	Textbox3	Name	Txthasil
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 radius pada label2(Radius) di Textbox1 (Txtradius) dan nilai tinggi pada label3 (Tinggi)  di Textbox2 (Txttinggi).

b.    Setelah itu klik Button1 (Proses) supaya dapat mengetahui hasil dari Volume Tabung berdasarkan nilai yang terdapat pada label2 (Radius) dan label3 (Tinggi) dan hasilnya akan keluar pada label4 (Hasil) di Textbox3 (Txthasil) berdasarkan rumus yang terdapat pada Perintah Program.

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

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

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

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

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

Perintah Program :

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

        Txthasil.Text = 22 / 7 * Txtradius.Text * Txtradius.Text * Txttinggi.Text

EndSub

EndClass

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

        Txtradius.Text = " "

        Txthasil.Text = " "

        Txttinggi.Text = " "

EndSub

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

End

EndSub

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