MEMBUAT PROGRAM VOLUME TABUNG DENGAN VISUAL BASIC

Listing Program Menghitung Volume Tabung

Const phi As Double = 3.14

Dim HASIL As Double

Private Sub cmdHitung_Click()

HASIL = phi * (txtJarijari.Text * txtJarijari.Text) * (txtTinggi.Text)

txtHasil.Text = HASIL

End Sub

Private Sub cmdkeluar_Click()

Unload Me

End Sub

Private Sub cmdreset_Click()

txtJarijari.Text = " "

txtTinggi.Text = " "

txtHasil.Text = " "

End Sub