PROGRAM VOLUME KERUCUT

Nama : SRIWAHYUNI
NIM : 19010020

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