حساب الوزن المثالي

ameer.iraq.93 · فبراير 27, 2023

السلام عليكم اساتذتي الكرام

محتاج مساعتكم في انشاء قاعدة بيانات لحساب الوزن المثالي للاشخاص

قاعدة البيانات تحتوي على اسم الشخص وعمره ووزنه وطوله

النتيجة اذا كان وزن الشخص غير مثالي يكتب ليس مثالي ومقدار الزيادة

وكما موضح في الجدول الموضح في لصورة

واكون ممنون منكم

TQTHAMI · فبراير 27, 2023

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

عزيزي المنتسب

عند وضع مثالك يجب ان يكون

المثال واضح ومفهوم ومبين كل ما تطلبه حتى يتسنى لشباب فهم طلبك وحله سريعا

لأن الشباب هنا لديهم أشغالهم اليومية

ولكن يستقطعون جزء من وقتهم لمساعدتك ويبذلون جهد كبير لأثبات انهم قادرون على حل مسألتك سوا مجهود فردي أو جماعي

فيتوجب عليك بعد حل مسألتك التالي:

1 – الشكر لله أولا وثم الشكر لمن قام بمساعدتك ثانيا

2 – وضع أشاره أفضل إجابة على الإجابة التي تناسب طلبك

3 – وضع لأيك لمن حل طلبك أو شارك في الحل

(من لا يشكر الناس لا يشكر الله)

تم تعديل فبراير 27, 2023 بواسطه TQTHAMI

ameer.iraq.93 · فبراير 27, 2023

15 دقائق مضت, TQTHAMI said:

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

موضوعك انشاء الله سهل لكن ارفق مثال ليتم العمل عليه

تدلل استاذ هذا مثال

ودزيت صورة للقياسات الرسمية

الوزن المثالي.accdb

**Eng.Qassim** · فبراير 27, 2023

سؤال جميل استاذ امير ..

الموضوع يحتاج لموديول نمرر به العمر والوزن عن طريق استعلام للمقارنة مع العمر والوزن للشخص

مجرد فكرة راودتني ..بس مو هسة ...لان قفلت 😄

ameer.iraq.93 · فبراير 27, 2023

8 دقائق مضت, Eng.Qassim said:

سؤال جميل استاذ امير ..

الموضوع يحتاج لموديول نمرر به العمر والوزن عن طريق استعلام للمقارنة مع العمر والوزن للشخص

مجرد فكرة راودتني ..بس مو هسة ...لان قفلت 😄

الف رحمة على والديك

نفس ما تفضلت به استاذ قاسم

مقارنة بين العمر والوزن والطول وفق معايير ثابته

اذا كانت النتيجة خارج المعايير المطلوبة يكتب وزن غير مثالي ومقدار الزيادة

وهذه هي المعايير كما موض

الف رحمة على والديك

نفس ما تفضلت به استاذ قاسم

مقارنة بين العمر والوزن والطول وفق معايير ثابته

اذا كانت النتيجة خارج المعايير المطلوبة يكتب وزن غير مثالي ومقدار الزيادة

وهذه هي المعايير كما موضح في الصورة

**Eng.Qassim** · فبراير 27, 2023

انا عيوني زغللت وانا اكتب الكود ...طبعا لم اجربه لحد الان وربما فيه خطأ...لكني احب مشاركة بقية الاخوة للتصحيح

عملت موديول لتمرير العمر والطول ...عسى احد الاخوة يساعدنا ... لاني بجد قفلت ...يعني نعست 🥱

Function GetIdealWeight(age As Integer, height As Integer) As Double
    Select Case True
        Case age <= 24
            Select Case height
                Case Is <= 150
                    GetIdealWeight = 57
                Case Is <= 160
                    GetIdealWeight = 60
                Case Else
                    GetIdealWeight = 63
            End Select
        Case age <= 29
            Select Case height
                Case Is <= 150
                    GetIdealWeight = 60
                Case Is <= 160
                    GetIdealWeight = 63
                Case Else
                    GetIdealWeight = 66
            End Select
        Case age <= 39
            Select Case height
                Case Is <= 150
                    GetIdealWeight = 61
                Case Is <= 160
                    GetIdealWeight = 64
                Case Else
                    GetIdealWeight = 68
            End Select
        Case age <= 49
            Select Case height
                Case Is <= 150
                    GetIdealWeight = 64
                Case Is <= 160
                    GetIdealWeight = 67
                Case Else
                    GetIdealWeight = 71
            End Select
        Case Else  'age >= 50 لاكثر من 50 سنة 
            Select Case height
                Case Is <= 150
                    GetIdealWeight = 67
                Case Is <= 160
                    GetIdealWeight = 70
                Case Else
                    GetIdealWeight = 74
            End Select
    End Select
End Function

تم تعديل فبراير 27, 2023 بواسطه Eng.Qassim

ameer.iraq.93 · فبراير 27, 2023

عاشت ايدك استاذ ورحمة الله والديك

كفيت ووففيت بس استاذ بقة شرط العمر ومقدار الزيادة ان وجد

وبراحتك استاذ اي وقت نكمل الفكرة وتعبتك وياي

**ابوخليل** · فبراير 27, 2023

السلام عليكم

الصورة غير واضحة ، الجزء السفلي الايسر من الصورة مظلل بالسواد والاسطر السفلية لا تظهر

حاول ترفق صورة اكثر جودة

**Eng.Qassim** · فبراير 28, 2023

7 ساعات مضت, ابوخليل said:

الصورة غير واضحة ، الجزء السفلي الايسر من الصورة مظلل بالسواد والاسطر السفلية لا تظهر

مضبوط كلام استاذ ابو خليل ولهذا اتعبتني الارقام..

ارفق لك ملف لطلبك ..فقط اريدك ان تراجع الاوزان المثالية حسب العمر والوزن لاني ربما اخطأت فيها او فيها نقص

weight.rar

ameer.iraq.93 · فبراير 28, 2023

9 ساعات مضت, ابوخليل said:

السلام عليكم

الصورة غير واضحة ، الجزء السفلي الايسر من الصورة مظلل بالسواد والاسطر السفلية لا تظهر

حاول ترفق صورة اكثر جودة

وعليكم السلام استاذ

تفضل استاذ هذه صورة اكثر وضوح

ameer.iraq.93 · فبراير 28, 2023

منذ ساعه, Eng.Qassim said:

مضبوط كلام استاذ ابو خليل ولهذا اتعبتني الارقام..

ارفق لك ملف لطلبك ..فقط اريدك ان تراجع الاوزان المثالية حسب العمر والوزن لاني ربما اخطأت فيها او فيها نقص

weight.rar 19.43 kB · 2 downloads

عاشت ايدك استاذ قاسم

وتعبتك وياي صح لمعالة فيها خطا

وهذه صورة للقياسات اكثر وضوحا

**AbuuAhmed** · فبراير 28, 2023

وهذه هدية لحساب الوزن المثالي بشكل تقريبي

الوزن_المثالي.xlsx

**ابوخليل** · فبراير 28, 2023

تفضل

هذه الوحدة النمطية الخاصة كما في الصورة اعلاه

افتح الاستعلام وانظر النتيجة : الرقم الموجب زيادة والرقم السالب نقص والصفر هو الوزن المثالي

يمكنك بناء نموذجك على الاستعلام ولا حظ ان اي تغيير على الارقام سيتغير التقييم آليا

يمكن ايضا ادخال الجنس ذكر / انثى ضمن الوحدة النمطية

ان رغبت في ذلك سوف اضع لك الاساس وانت تدخل الاوزان

Public Function GetPerfectWeight(xheight As Integer, xold As Integer) As Double

If xheight = 150 Then
               If xold <= 24 Then GetPerfectWeight = 57
If xold >= 25 And xold <= 29 Then GetPerfectWeight = 60
If xold >= 30 And xold <= 39 Then GetPerfectWeight = 61
If xold >= 40 And xold <= 49 Then GetPerfectWeight = 64
               If xold >= 50 Then GetPerfectWeight = 67
End If
If xheight = 152 Then
               If xold <= 24 Then GetPerfectWeight = 59
If xold >= 25 And xold <= 29 Then GetPerfectWeight = 62
If xold >= 30 And xold <= 39 Then GetPerfectWeight = 63
If xold >= 40 And xold <= 49 Then GetPerfectWeight = 65
               If xold >= 50 Then GetPerfectWeight = 68
End If
If xheight = 154 Then
               If xold <= 24 Then GetPerfectWeight = 60
If xold >= 25 And xold <= 29 Then GetPerfectWeight = 63
If xold >= 30 And xold <= 39 Then GetPerfectWeight = 64
If xold >= 40 And xold <= 49 Then GetPerfectWeight = 67
               If xold >= 50 Then GetPerfectWeight = 70
 End If
If xheight = 156 Then
               If xold <= 24 Then GetPerfectWeight = 63
If xold >= 25 And xold <= 29 Then GetPerfectWeight = 64
If xold >= 30 And xold <= 39 Then GetPerfectWeight = 66
If xold >= 40 And xold <= 49 Then GetPerfectWeight = 68
               If xold >= 50 Then GetPerfectWeight = 72
End If
If xheight = 158 Then
               If xold <= 24 Then GetPerfectWeight = 63
If xold >= 25 And xold <= 29 Then GetPerfectWeight = 66
If xold >= 30 And xold <= 39 Then GetPerfectWeight = 67
If xold >= 40 And xold <= 49 Then GetPerfectWeight = 71
               If xold >= 50 Then GetPerfectWeight = 73

End If
If xheight = 160 Then
               If xold <= 24 Then GetPerfectWeight = 65
If xold >= 25 And xold <= 29 Then GetPerfectWeight = 67
If xold >= 30 And xold <= 39 Then GetPerfectWeight = 69
If xold >= 40 And xold <= 49 Then GetPerfectWeight = 72
               If xold >= 50 Then GetPerfectWeight = 75
End If
If xheight = 162 Then
               If xold <= 24 Then GetPerfectWeight = 66
If xold >= 25 And xold <= 29 Then GetPerfectWeight = 68
If xold >= 30 And xold <= 39 Then GetPerfectWeight = 70
If xold >= 40 And xold <= 49 Then GetPerfectWeight = 74
               If xold >= 50 Then GetPerfectWeight = 76
 End If
If xheight = 164 Then
               If xold <= 24 Then GetPerfectWeight = 67
If xold >= 25 And xold <= 29 Then GetPerfectWeight = 69
If xold >= 30 And xold <= 39 Then GetPerfectWeight = 72
If xold >= 40 And xold <= 49 Then GetPerfectWeight = 75
               If xold >= 50 Then GetPerfectWeight = 77
 End If
If xheight = 166 Then
               If xold <= 24 Then GetPerfectWeight = 68
If xold >= 25 And xold <= 29 Then GetPerfectWeight = 71
If xold >= 30 And xold <= 39 Then GetPerfectWeight = 74
If xold >= 40 And xold <= 49 Then GetPerfectWeight = 76
               If xold >= 50 Then GetPerfectWeight = 79
  End If
If xheight = 168 Then
               If xold <= 24 Then GetPerfectWeight = 69
If xold >= 25 And xold <= 29 Then GetPerfectWeight = 73
If xold >= 30 And xold <= 39 Then GetPerfectWeight = 75
If xold >= 40 And xold <= 49 Then GetPerfectWeight = 78
               If xold >= 50 Then GetPerfectWeight = 80

End If
If xheight = 170 Then
               If xold <= 24 Then GetPerfectWeight = 70
If xold >= 25 And xold <= 29 Then GetPerfectWeight = 74
If xold >= 30 And xold <= 39 Then GetPerfectWeight = 77
If xold >= 40 And xold <= 49 Then GetPerfectWeight = 80
               If xold >= 50 Then GetPerfectWeight = 83
End If
If xheight = 172 Then
               If xold <= 24 Then GetPerfectWeight = 72
If xold >= 25 And xold <= 29 Then GetPerfectWeight = 76
If xold >= 30 And xold <= 39 Then GetPerfectWeight = 78
If xold >= 40 And xold <= 49 Then GetPerfectWeight = 81
               If xold >= 50 Then GetPerfectWeight = 85
 End If
If xheight = 174 Then
               If xold <= 24 Then GetPerfectWeight = 74
If xold >= 25 And xold <= 29 Then GetPerfectWeight = 77
If xold >= 30 And xold <= 39 Then GetPerfectWeight = 80
If xold >= 40 And xold <= 49 Then GetPerfectWeight = 83
               If xold >= 50 Then GetPerfectWeight = 86
  End If
If xheight = 176 Then
               If xold <= 24 Then GetPerfectWeight = 76
If xold >= 25 And xold <= 29 Then GetPerfectWeight = 78
If xold >= 30 And xold <= 39 Then GetPerfectWeight = 82
If xold >= 40 And xold <= 49 Then GetPerfectWeight = 85
               If xold >= 50 Then GetPerfectWeight = 88
   End If
If xheight = 178 Then
               If xold <= 24 Then GetPerfectWeight = 77
If xold >= 25 And xold <= 29 Then GetPerfectWeight = 80
If xold >= 30 And xold <= 39 Then GetPerfectWeight = 83
If xold >= 40 And xold <= 49 Then GetPerfectWeight = 87
               If xold >= 50 Then GetPerfectWeight = 90

End If
If xheight = 180 Then
               If xold <= 24 Then GetPerfectWeight = 79
If xold >= 25 And xold <= 29 Then GetPerfectWeight = 82
If xold >= 30 And xold <= 39 Then GetPerfectWeight = 85
If xold >= 40 And xold <= 49 Then GetPerfectWeight = 89
               If xold >= 50 Then GetPerfectWeight = 92
End If
If xheight = 182 Then
               If xold <= 24 Then GetPerfectWeight = 81
If xold >= 25 And xold <= 29 Then GetPerfectWeight = 84
If xold >= 30 And xold <= 39 Then GetPerfectWeight = 87
If xold >= 40 And xold <= 49 Then GetPerfectWeight = 90
               If xold >= 50 Then GetPerfectWeight = 94
   End If
If xheight = 184 Then
               If xold <= 24 Then GetPerfectWeight = 82
If xold >= 25 And xold <= 29 Then GetPerfectWeight = 86
If xold >= 30 And xold <= 39 Then GetPerfectWeight = 89
If xold >= 40 And xold <= 49 Then GetPerfectWeight = 92
               If xold >= 50 Then GetPerfectWeight = 96
  End If
If xheight = 186 Then
               If xold <= 24 Then GetPerfectWeight = 84
If xold >= 25 And xold <= 29 Then GetPerfectWeight = 87
If xold >= 30 And xold <= 39 Then GetPerfectWeight = 90
If xold >= 40 And xold <= 49 Then GetPerfectWeight = 94
               If xold >= 50 Then GetPerfectWeight = 98
  End If
If xheight = 188 Then
               If xold <= 24 Then GetPerfectWeight = 85
If xold >= 25 And xold <= 29 Then GetPerfectWeight = 89
If xold >= 30 And xold <= 39 Then GetPerfectWeight = 92
If xold >= 40 And xold <= 49 Then GetPerfectWeight = 96
               If xold >= 50 Then GetPerfectWeight = 100
End If
If xheight = 190 Then
               If xold <= 24 Then GetPerfectWeight = 86
If xold >= 25 And xold <= 29 Then GetPerfectWeight = 90
If xold >= 30 And xold <= 39 Then GetPerfectWeight = 95
If xold >= 40 And xold <= 49 Then GetPerfectWeight = 98
               If xold >= 50 Then GetPerfectWeight = 102

End If
If xheight = 192 Then
               If xold <= 24 Then GetPerfectWeight = 87
If xold >= 25 And xold <= 29 Then GetPerfectWeight = 91
If xold >= 30 And xold <= 39 Then GetPerfectWeight = 96
If xold >= 40 And xold <= 49 Then GetPerfectWeight = 100
               If xold >= 50 Then GetPerfectWeight = 104
End If
If xheight = 194 Then
               If xold <= 24 Then GetPerfectWeight = 88
If xold >= 25 And xold <= 29 Then GetPerfectWeight = 92
If xold >= 30 And xold <= 39 Then GetPerfectWeight = 98
If xold >= 40 And xold <= 49 Then GetPerfectWeight = 102
               If xold >= 50 Then GetPerfectWeight = 106
  End If
If xheight = 196 Then
               If xold <= 24 Then GetPerfectWeight = 89
If xold >= 25 And xold <= 29 Then GetPerfectWeight = 93
If xold >= 30 And xold <= 39 Then GetPerfectWeight = 100
If xold >= 40 And xold <= 49 Then GetPerfectWeight = 104
               If xold >= 50 Then GetPerfectWeight = 108
  End If
If xheight = 198 Then
               If xold <= 24 Then GetPerfectWeight = 90
If xold >= 25 And xold <= 29 Then GetPerfectWeight = 94
If xold >= 30 And xold <= 39 Then GetPerfectWeight = 101
If xold >= 40 And xold <= 49 Then GetPerfectWeight = 106
               If xold >= 50 Then GetPerfectWeight = 110
   End If
If xheight = 200 Then
               If xold <= 24 Then GetPerfectWeight = 91
If xold >= 25 And xold <= 29 Then GetPerfectWeight = 95
If xold >= 30 And xold <= 39 Then GetPerfectWeight = 103
If xold >= 40 And xold <= 49 Then GetPerfectWeight = 108
               If xold >= 50 Then GetPerfectWeight = 112
End If
End Function

الوزن المثالي2.rar

**ابوخليل** · فبراير 28, 2023

تفضل

تم تعديل المثال باضافة الجنس الى الجدول ، والتعديل في الاستعلام على اساس هذا التعديل ،

وتهيئة الوحدة النمطية لوضع اوزان الإناث .. لاني نسخت طبق الاصل من الذكور .. كل ما عليك عمله هو تغيير الاوزان الى ما يناسب النساء

الوزن المثالي3.rar

**Eng.Qassim** · فبراير 28, 2023

فعلا اذا حظر الماء يبطل التيمم مثلما يقولون..احسنت استاذ @ابوخليل

كنت افكر بعمل جدول للاوزان حسب العمر واعمل موديول يفر على السجلات ويعمل مقارنة

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

مرفق ملف لمن اراد الفائدة

W.rar

**ابوخليل** · فبراير 28, 2023

شكرا لثنائك مهندس قاسم .. بارك الله فيك وكتب اجرك

مثلك تماما في البداية جاء على بالي الجدول

ولكني نظرت فإذا القيم ثابتة لا يمكن ان تتبدل . لذا افضل مكان لها هو الكود

الاعمال التي يحتمل ان يجري عليها التعديل مثل .. جداول الحصص المدرسية او سلم الرواتب والمكافآت ... وامثالها .. فهذه يجب ن يكون مكانها الجدول

ameer.iraq.93 · فبراير 28, 2023

6 ساعات مضت, ابوخليل said:

تفضل

هذه الوحدة النمطية الخاصة كما في الصورة اعلاه

افتح الاستعلام وانظر النتيجة : الرقم الموجب زيادة والرقم السالب نقص والصفر هو الوزن المثالي

يمكنك بناء نموذجك على الاستعلام ولا حظ ان اي تغيير على الارقام سيتغير التقييم آليا

يمكن ايضا ادخال الجنس ذكر / انثى ضمن الوحدة النمطية

ان رغبت في ذلك سوف اضع لك الاساس وانت تدخل الاوزان

Public Function GetPerfectWeight(xheight As Integer, xold As Integer) As Double

If xheight = 150 Then
               If xold <= 24 Then GetPerfectWeight = 57
If xold >= 25 And xold <= 29 Then GetPerfectWeight = 60
If xold >= 30 And xold <= 39 Then GetPerfectWeight = 61
If xold >= 40 And xold <= 49 Then GetPerfectWeight = 64
               If xold >= 50 Then GetPerfectWeight = 67
End If
If xheight = 152 Then
               If xold <= 24 Then GetPerfectWeight = 59
If xold >= 25 And xold <= 29 Then GetPerfectWeight = 62
If xold >= 30 And xold <= 39 Then GetPerfectWeight = 63
If xold >= 40 And xold <= 49 Then GetPerfectWeight = 65
               If xold >= 50 Then GetPerfectWeight = 68
End If
If xheight = 154 Then
               If xold <= 24 Then GetPerfectWeight = 60
If xold >= 25 And xold <= 29 Then GetPerfectWeight = 63
If xold >= 30 And xold <= 39 Then GetPerfectWeight = 64
If xold >= 40 And xold <= 49 Then GetPerfectWeight = 67
               If xold >= 50 Then GetPerfectWeight = 70
 End If
If xheight = 156 Then
               If xold <= 24 Then GetPerfectWeight = 63
If xold >= 25 And xold <= 29 Then GetPerfectWeight = 64
If xold >= 30 And xold <= 39 Then GetPerfectWeight = 66
If xold >= 40 And xold <= 49 Then GetPerfectWeight = 68
               If xold >= 50 Then GetPerfectWeight = 72
End If
If xheight = 158 Then
               If xold <= 24 Then GetPerfectWeight = 63
If xold >= 25 And xold <= 29 Then GetPerfectWeight = 66
If xold >= 30 And xold <= 39 Then GetPerfectWeight = 67
If xold >= 40 And xold <= 49 Then GetPerfectWeight = 71
               If xold >= 50 Then GetPerfectWeight = 73

End If
If xheight = 160 Then
               If xold <= 24 Then GetPerfectWeight = 65
If xold >= 25 And xold <= 29 Then GetPerfectWeight = 67
If xold >= 30 And xold <= 39 Then GetPerfectWeight = 69
If xold >= 40 And xold <= 49 Then GetPerfectWeight = 72
               If xold >= 50 Then GetPerfectWeight = 75
End If
If xheight = 162 Then
               If xold <= 24 Then GetPerfectWeight = 66
If xold >= 25 And xold <= 29 Then GetPerfectWeight = 68
If xold >= 30 And xold <= 39 Then GetPerfectWeight = 70
If xold >= 40 And xold <= 49 Then GetPerfectWeight = 74
               If xold >= 50 Then GetPerfectWeight = 76
 End If
If xheight = 164 Then
               If xold <= 24 Then GetPerfectWeight = 67
If xold >= 25 And xold <= 29 Then GetPerfectWeight = 69
If xold >= 30 And xold <= 39 Then GetPerfectWeight = 72
If xold >= 40 And xold <= 49 Then GetPerfectWeight = 75
               If xold >= 50 Then GetPerfectWeight = 77
 End If
If xheight = 166 Then
               If xold <= 24 Then GetPerfectWeight = 68
If xold >= 25 And xold <= 29 Then GetPerfectWeight = 71
If xold >= 30 And xold <= 39 Then GetPerfectWeight = 74
If xold >= 40 And xold <= 49 Then GetPerfectWeight = 76
               If xold >= 50 Then GetPerfectWeight = 79
  End If
If xheight = 168 Then
               If xold <= 24 Then GetPerfectWeight = 69
If xold >= 25 And xold <= 29 Then GetPerfectWeight = 73
If xold >= 30 And xold <= 39 Then GetPerfectWeight = 75
If xold >= 40 And xold <= 49 Then GetPerfectWeight = 78
               If xold >= 50 Then GetPerfectWeight = 80

End If
If xheight = 170 Then
               If xold <= 24 Then GetPerfectWeight = 70
If xold >= 25 And xold <= 29 Then GetPerfectWeight = 74
If xold >= 30 And xold <= 39 Then GetPerfectWeight = 77
If xold >= 40 And xold <= 49 Then GetPerfectWeight = 80
               If xold >= 50 Then GetPerfectWeight = 83
End If
If xheight = 172 Then
               If xold <= 24 Then GetPerfectWeight = 72
If xold >= 25 And xold <= 29 Then GetPerfectWeight = 76
If xold >= 30 And xold <= 39 Then GetPerfectWeight = 78
If xold >= 40 And xold <= 49 Then GetPerfectWeight = 81
               If xold >= 50 Then GetPerfectWeight = 85
 End If
If xheight = 174 Then
               If xold <= 24 Then GetPerfectWeight = 74
If xold >= 25 And xold <= 29 Then GetPerfectWeight = 77
If xold >= 30 And xold <= 39 Then GetPerfectWeight = 80
If xold >= 40 And xold <= 49 Then GetPerfectWeight = 83
               If xold >= 50 Then GetPerfectWeight = 86
  End If
If xheight = 176 Then
               If xold <= 24 Then GetPerfectWeight = 76
If xold >= 25 And xold <= 29 Then GetPerfectWeight = 78
If xold >= 30 And xold <= 39 Then GetPerfectWeight = 82
If xold >= 40 And xold <= 49 Then GetPerfectWeight = 85
               If xold >= 50 Then GetPerfectWeight = 88
   End If
If xheight = 178 Then
               If xold <= 24 Then GetPerfectWeight = 77
If xold >= 25 And xold <= 29 Then GetPerfectWeight = 80
If xold >= 30 And xold <= 39 Then GetPerfectWeight = 83
If xold >= 40 And xold <= 49 Then GetPerfectWeight = 87
               If xold >= 50 Then GetPerfectWeight = 90

End If
If xheight = 180 Then
               If xold <= 24 Then GetPerfectWeight = 79
If xold >= 25 And xold <= 29 Then GetPerfectWeight = 82
If xold >= 30 And xold <= 39 Then GetPerfectWeight = 85
If xold >= 40 And xold <= 49 Then GetPerfectWeight = 89
               If xold >= 50 Then GetPerfectWeight = 92
End If
If xheight = 182 Then
               If xold <= 24 Then GetPerfectWeight = 81
If xold >= 25 And xold <= 29 Then GetPerfectWeight = 84
If xold >= 30 And xold <= 39 Then GetPerfectWeight = 87
If xold >= 40 And xold <= 49 Then GetPerfectWeight = 90
               If xold >= 50 Then GetPerfectWeight = 94
   End If
If xheight = 184 Then
               If xold <= 24 Then GetPerfectWeight = 82
If xold >= 25 And xold <= 29 Then GetPerfectWeight = 86
If xold >= 30 And xold <= 39 Then GetPerfectWeight = 89
If xold >= 40 And xold <= 49 Then GetPerfectWeight = 92
               If xold >= 50 Then GetPerfectWeight = 96
  End If
If xheight = 186 Then
               If xold <= 24 Then GetPerfectWeight = 84
If xold >= 25 And xold <= 29 Then GetPerfectWeight = 87
If xold >= 30 And xold <= 39 Then GetPerfectWeight = 90
If xold >= 40 And xold <= 49 Then GetPerfectWeight = 94
               If xold >= 50 Then GetPerfectWeight = 98
  End If
If xheight = 188 Then
               If xold <= 24 Then GetPerfectWeight = 85
If xold >= 25 And xold <= 29 Then GetPerfectWeight = 89
If xold >= 30 And xold <= 39 Then GetPerfectWeight = 92
If xold >= 40 And xold <= 49 Then GetPerfectWeight = 96
               If xold >= 50 Then GetPerfectWeight = 100
End If
If xheight = 190 Then
               If xold <= 24 Then GetPerfectWeight = 86
If xold >= 25 And xold <= 29 Then GetPerfectWeight = 90
If xold >= 30 And xold <= 39 Then GetPerfectWeight = 95
If xold >= 40 And xold <= 49 Then GetPerfectWeight = 98
               If xold >= 50 Then GetPerfectWeight = 102

End If
If xheight = 192 Then
               If xold <= 24 Then GetPerfectWeight = 87
If xold >= 25 And xold <= 29 Then GetPerfectWeight = 91
If xold >= 30 And xold <= 39 Then GetPerfectWeight = 96
If xold >= 40 And xold <= 49 Then GetPerfectWeight = 100
               If xold >= 50 Then GetPerfectWeight = 104
End If
If xheight = 194 Then
               If xold <= 24 Then GetPerfectWeight = 88
If xold >= 25 And xold <= 29 Then GetPerfectWeight = 92
If xold >= 30 And xold <= 39 Then GetPerfectWeight = 98
If xold >= 40 And xold <= 49 Then GetPerfectWeight = 102
               If xold >= 50 Then GetPerfectWeight = 106
  End If
If xheight = 196 Then
               If xold <= 24 Then GetPerfectWeight = 89
If xold >= 25 And xold <= 29 Then GetPerfectWeight = 93
If xold >= 30 And xold <= 39 Then GetPerfectWeight = 100
If xold >= 40 And xold <= 49 Then GetPerfectWeight = 104
               If xold >= 50 Then GetPerfectWeight = 108
  End If
If xheight = 198 Then
               If xold <= 24 Then GetPerfectWeight = 90
If xold >= 25 And xold <= 29 Then GetPerfectWeight = 94
If xold >= 30 And xold <= 39 Then GetPerfectWeight = 101
If xold >= 40 And xold <= 49 Then GetPerfectWeight = 106
               If xold >= 50 Then GetPerfectWeight = 110
   End If
If xheight = 200 Then
               If xold <= 24 Then GetPerfectWeight = 91
If xold >= 25 And xold <= 29 Then GetPerfectWeight = 95
If xold >= 30 And xold <= 39 Then GetPerfectWeight = 103
If xold >= 40 And xold <= 49 Then GetPerfectWeight = 108
               If xold >= 50 Then GetPerfectWeight = 112
End If
End Function

الوزن المثالي2.rar 20.23 kB · 8 downloads

الف رحمة على والديك استاذ

اصبح مثل ما نطلوب في الجدول

ربي يحفظك ويوفقك واعلى المراتب ان شاء الله

6 ساعات مضت, ابوخليل said:

تفضل

تم تعديل المثال باضافة الجنس الى الجدول ، والتعديل في الاستعلام على اساس هذا التعديل ،

وتهيئة الوحدة النمطية لوضع اوزان الإناث .. لاني نسخت طبق الاصل من الذكور .. كل ما عليك عمله هو تغيير الاوزان الى ما يناسب النساء

الوزن المثالي3.rar 24.67 kB · 7 downloads

الله يحفظك ويوفقك استاذ بالدنيا والاخرة

ameer.iraq.93 · فبراير 28, 2023

5 ساعات مضت, Eng.Qassim said:

فعلا اذا حظر الماء يبطل التيمم مثلما يقولون..احسنت استاذ @ابوخليل

كنت افكر بعمل جدول للاوزان حسب العمر واعمل موديول يفر على السجلات ويعمل مقارنة

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

مرفق ملف لمن اراد الفائدة

W.rar 44.02 kB · 10 downloads

كفو منك مهندس قاسم

الله يحفظك ويوفقك استاذي

كفييت ووفيت ان شاء الله اشوفك باعلى المراتب والمناصب

ameer.iraq.93 · فبراير 28, 2023

@ابوخليل @Eng.Qassim

شكر وتقدير

اشكركم اساتذتي الاستاذ ابو خليل والمهندس قاسم في مساعدتي في حل مشكلتي

الله يحفظكم ويوفقكم وان شاء الله في اعلى المراتب والمناصب

كذلك اشكر الاخوة @TQTHAMI ,والاخ @AbuuAhmed في مساعدتي

الله يحفظكم ويوفكم ان شاء الله

تسجيل الدخول

حساب الوزن المثالي

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

ameer.iraq.93

TQTHAMI

ameer.iraq.93

Eng.Qassim

ameer.iraq.93

Eng.Qassim

ameer.iraq.93

ابوخليل

Eng.Qassim

ameer.iraq.93

ameer.iraq.93

AbuuAhmed

ابوخليل

ابوخليل

Eng.Qassim

ابوخليل

ameer.iraq.93

ameer.iraq.93

ameer.iraq.93

Join the conversation

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

تصفح الموقع

تصفح جديد الموقع

Support

Important Information