KELILING BELAH KETUPAT

Public Class Tugas3

    Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click

        End

    End Sub

    Private Sub hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus.Click

        sisi.Text = ""

        keliling.Text = ""

    End Sub

    Private Sub proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles proses.Click

        keliling.Text = 4 * sisi.Text

    End Sub

End Class

Sumber : Esra Handayani