[حريف برمجة]

وعليكم السلام ورحمة الله وبركاته

عملت لك مثال مثل ماطلبتي على اصدار 2010 ،،، اذا ما اشتغل هذا الكود تبعه

ضعي تكست بوكس 1 للوزن
تكست بوكس 2 للطول
تكست بوكس 3 للنتيجة
تكست بوكس 4 للنصيحة

بنفس ترتيب والمسميات السابقة

هذا الكود يوضع في زر كوماند بوتن :

يجب عليك تعديل النصيحة مثل ماتريدين انا وضعت امثلة من عندي .

كود :

Dim result As Decimal = Val(TextBox2.Text / 100)
        result = Format(result, "0.00")

        result = Val(result) * Val(result)
        result = Format(result, "0.00")

        result = Val(TextBox1.Text / Val(result))
        result = Format(result, "0.00")
        TextBox3.Text = result

        '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        'خاص بالنتيجة
        If TextBox3.Text > 15 And TextBox3.Text < 20 Then TextBox4.Text = "وزنك مثالي"
        If TextBox3.Text > 20 And TextBox3.Text < 25 Then TextBox4.Text = "وزنك زائد"
        If TextBox3.Text > 25 And TextBox3.Text < 30 Then TextBox4.Text = "وزنك زائد شوي"
        If TextBox3.Text > 30 And TextBox3.Text < 35 Then TextBox4.Text = "وزنك زائد شويتين"
        If TextBox3.Text > 35 And TextBox3.Text < 40 Then TextBox4.Text = "وزنك زائد ثلاث شويات"
        If TextBox3.Text > 40 And TextBox3.Text < 45 Then TextBox4.Text = "وزنك زائد جدا"