Public Class Form1
Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
Dim Jarijari, Tinggi, LuasKerucut As Integer
Jarijari = Val(txt.Text)
Tinggi = Val(txttinggi.Text)
LuasKerucut = Val(22 / 7 * Jarijari * Jarijari * Tinggi / 3)
TextBox1.Text = LuasKerucut
End Sub
End Class
Komentar
Posting Komentar