[سعود]

الاكواد التالية بناءا على معلومات من الموقع التالي:
https://www.un-web.com/tools/bmi/

PHP كود :

Public Class Form1
    Dim w, t As Integer
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Process.Start("explorer", "https://www.un-web.com/tools/bmi/")
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If wazn.Text.Trim = "" Or tal.Text.Trim = "" Then Exit Sub
        If IsNumeric(wazn.Text) = False Or IsNumeric(tal.Text) = False Then Exit Sub
        w = Val(wazn.Text)
        t = Val(tal.Text) / 100
        Dim r As String = ""
        r = w / ((t) ^ 2)
        result.lblw.Text = "النتيجة: " & r
        result.ShowDialog()
    End Sub
End Class 


---

مثال بسيط على الفكرة