[asemshahen5]

PHP كود :

   Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim ss As Double = 0
        Dim abdomen As Double = 10
        Dim hip As Double = 20
        Dim neck As Double = 30
        Dim height As Double = 40
        ss = (495.0 / ((1.29579 - (0.35004 * Math.Log10(abdomen + hip) - neck)) + (0.221 * Math.Log10(height)))) - Convert.ToDouble(450.0)
        TextBox1.Text = ss.ToString()
    End Sub