اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر

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

 

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

 

kg.accdb

قام بنشر (معدل)

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

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

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

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

 

kg (4).zip

تم تعديل بواسطه dd13901390
قام بنشر

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

قام بنشر

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

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

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

kg (4).zip

  • Haha 1
قام بنشر
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 اجاب عن السؤال ببساطة.

 

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information