برنامج كتلة الجسم

[dd13901390]

اخواني اسف على الاطالة اريد حل  حساب كتلة الجسم لتعم الفائدة للجميع

kg.zip

[Foksh]

اخي الكريم لم توضح أو تشرح اي معلومة مفيدة فيما يتعلق بالنسبة المئوية !!!!
النسبة المئوية تعتمد على ماذا ؟؟؟؟؟؟؟؟

 

على العموم هذه فكرتي وجرب عدل كما يحلو لك

 

kg.accdb

[Moosak]

تعديل بسيط على نموذج العم فادي 🙂 : 

kg.accdb

[dd13901390]

هلا اخوي النتيجة : 

نقص حاد بالوزن : نتيجة النسبة = 16.99 يساوي او اقل 
نقص بالوزن : 170  نتيجة النسبة =   18.499 
وزن مثالي : 18.5 نتيجة النسبة = 29.99 
بداية سمنه : 30 نتيجة النسبة  34.99
سمنه مفرطة : نتيجة النسبة = 35 يساوي او اكبر

============================

ابغى بعد تسجيل الطول تظهر النتائج في خانة النسبة واسف جدا جدا على الاطالة 

 

kg (4).zip

تم تعديل أغسطس 13 بواسطه dd13901390

[Foksh]

انا ما استوعبت فكرة النسبة المئوية هذه تعتمد على ماذا بالضبط !!!! 🤔 .

[dd13901390]

اخوي Foksh اولا اشكرك على المساعدات والله يجعلها في موازين حسناتك 

ثانيا في البرنامج اذا دخلت الوزن ثم الطول بعدها يحسب النتيجة في خانة النسبة  وتكون خانة النسبة عددين فيه نسبة مثلا:

طول الرجل = 165  والوزن = 130 تكون النتيجة في خانة النسبة مثلا =35% كذا  وهذي سمنة مفرطة 

kg (4).zip

[Foksh]

17 دقائق مضت, dd13901390 said:

اخوي Foksh اولا اشكرك على المساعدات والله يجعلها في موازين حسناتك 

ثانيا في البرنامج اذا دخلت الوزن ثم الطول بعدها يحسب النتيجة في خانة النسبة  وتكون خانة النسبة عددين فيه نسبة مثلا:

طول الرجل = 165  والوزن = 130 تكون النتيجة في خانة النسبة مثلا =35% كذا  وهذي سمنة مفرطة 

kg (4).zip 24.33 kB · 0 downloads

يا حبيبي انا عرفت ان كتلة الجسم تساوي الوزن بالكيلو مقسوم على مربع طول الجسم ، صحيح ؟

 

الآن حسب بياناتك في المثال أعلاه :-

130/(1.65*1.65) = 47.76

 

لنفترض ان w الوزن ، و t الطول

BMI = الكتلة

Dim BMI As Double
Dim w As Double
Dim t As Double

w = Me.txtWeight.Value
t = Me.txtHeight.Value

If t <> 0 Then
    BMI = w / (t * t)
    Me.txtResult.Value = Format(BMI, "0.00") & " %"
Else
    Me.txtResult.Value = "Invalid Height"
End If

جرب وخبرني بالنتيجة ، وأعتقد أن الأستاذ @Moosak اجاب عن السؤال ببساطة.

 

اتابع من الجوال ولم اطلع على المرفق الذي ارسله الأستاذ موسى .