Computer and Programming: Mencari Volume Tabung dengan Visual Basic 6.0

Mencari Volume Tabung dengan Visual Basic 6.0

Friday, April 8, 2011 2:08 AM by Computer and Programming

Const phi As Double = 3.14

Dim volumetabung As Double

Private Sub cmdhitung_Click()

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

volumetabung = luasalas * txttinggi.Text

txtvolume.Text = volumetabung

End Sub

Private Sub cmdkeluar_Click()

Unload Me

End Sub