Mencari Sisi Miring Segitiga Siku-Siku Dengan Visual Studio 2010

 

Coding nya :

Public Class from1

    Private Sub ulang_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ulang.Click

        tegak.Text = ""

        datar.Text = ""

        miring.Text = ""

    End Sub

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

        MsgBox("Anda Yakin ?")

        Me.Close()

    End Sub

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

        miring.Text = (tegak.Text ^ 2) + (datar.Text ^ 2)

    End Sub

End Class