السلام عليكم يا أهل البرمجه
انا مسويه برنامج يحسب كتلة الجسم و يرجه يصنفك على حسب البدانه او النحف ..المهم ما يزبط عندي هذا الكود اللي انا مسويته شوفوه و قولوا لي ايش الغلط فيه
Dim a, b, bmi As Double
a = Val(Text1.Text)
b = Val(Text2.Text)
b = b / 100
bmi = a / (b * b)
Text3.Text = bmi
If bmi < 18.5 Then
Text4.Text = "نحيف"
End If
If bmi > 18.6 < 24.9 Then
Text4.Text = "انت ذو وزن طبيعي"
End If
If bmi > 25 < 29.9 Then
Text4.Text = "لديك بعض الوزن الزائد"
End If
If bmi > 30 < 39.9 Then
Text4.Text = "انت مصاب بالبدانه "
End If
If bmi >= 40 Then
Text4.Text = "انت مصاب بالبدانه العاليه"
End If
و غير عن كذا ابي أعرف كيف أربط قاعدة بيانات من أكسس بالفيجوال بيسك دوت نت
و أخر شي ابي أعرف كيف أحفظ البرنامج اللي انا مسويته على شكل سيت أب , لأن اذا سويت حفظ ينحفظ على شكل ملف ما هو على شكل تطبيق
و آخر شي ألف الف شكر