Menghitung Volume Tabung dengan VB6

Menghitung Volume Tabung dengan VB6 - Tabung merupakan sebuah ruang tiga dimensi yang memiliki tutup dan alas berbentuk lingkaran dengan ukuran yang sama dengan di selimuti oleh persegi panjang.Untuk menghitung volume sebuah tabung kita bisa menggunakan rumus V = Luas Alas x Tinggi. Oleh karena itu sebelum menghitung volumenya maka kita harus mengetahui luas alas dari tabung tersebut.

Karena alas tabung berbentuk lingkaran maka rumus luasnya adalah Alas Tabung = p x r2 

Nah setelah kita mengetahui rumus alasnya maka kita dapat menggabungkan rumus volume sebuah tabung menjadi :

V = p x r2 x t

Dimana :   V = volume tabung.

                p = phi ( 22/7 atau 3,14 ).

                r  = jari-jari alas.

                t  = tinggi tabung.

Tahukah Anda kita juga bisa menyelesaikan persoalan rumus diatas dengan menggunakan Visual Basic 6.0 dengan cara :

1. Buka Form VB6 Anda

2. Anda Desain form seperti gambar dibawah ini (Gambar Tabung pada form Optional) :

Desain Form

3.Ketik kode dibawah ini di jendela kode :

Const phi As Double = 3.14

Dim volumetabung As Double

Private Sub Command1_Click()

If Text1.Text = "" Or Text2.Text = "" Then

MsgBox "Masukan Tinggi dan Jari-jari Tabung", vbOKOnly, "Informasi"

Text1.SetFocus

Else

luasalas = phi * (Text2.Text * Text2.Text)

      volumetabung = luasalas * Text1.Text

      Text3.Text = volumetabung

      End If

   

End Sub

Private Sub Command2_Click()

Unload Me

End Sub

Private Sub Form_Load()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text3.Locked = True

End Sub

4. Selesai mengetik kode, simpan hasil pekerjaan Anda kemudian Anda jalankan.

5.Coba Anda masukan Tinggi Tabung dan jari-jari Tabung kemudian tekan "Hitung"

Demikian tip Cara menghitung Volume Tabung dengan VB6.Semoga bermanfaat.

Related Post: Matematika