luas segitiga sama sisi

Public Class tugas1

    Private Sub btn_keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_keluar.Click

        End

    End Sub

    Private Sub btn_hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_hapus.Click

        alas.Text = ""

        tinggi.Text = ""

        luas.Text = ""

    End Sub

   

Private Sub btn_proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_proses.Click

        luas.Text = 1 / 2 * alas.Text * tinggi.Text

    End Sub

End Class

Sumber : Esra handayani