مشكلة عدم خروج النسبة والنتيجة صحيحة

[dd13901390]

بعد التحية اخواني الرجاء حل مشكلتي مع هذا البرنامج وهي عدم خروج النسبة والنتيجة صحيحة لا تظهر 

test.rar

تم تعديل فبراير 11 بواسطه dd13901390
زيادة

[MOHAMMAD IBRAHIM]

استبدل الكود

Option Compare Database

Private Sub Command5_Click()
    CalculateBMI
End Sub

Private Sub CalculateBMI()
    If IsNumeric(w2.Value) And IsNumeric(w1.Value) Then
        Dim weight As Double
        Dim height As Double
        Dim bmi As Double
        
        weight = CDbl(w2.Value)    ' الوزن بالكيلوغرام
        height = CDbl(w1.Value)    ' الطول بالمتر
        
        ' تأكد من أن الطول بالمتر وليس بالسنتيمتر
        If height > 3 Then
            height = height / 100  ' تحويل من سنتيمتر إلى متر
        End If
        
        ' حساب مؤشر كتلة الجسم
        bmi = weight / (height * height)
        
        ' عرض النتيجة برقمين عشريين
        w3.Value = Format(bmi, "0.00")
        
        ' تحديد الفئة حسب مؤشر كتلة الجسم
        If bmi < 16.5 Then
            Me.ww = "نقص حاد بالوزن"
        ElseIf bmi >= 16.5 And bmi < 18.5 Then
            Me.ww = "نقص بالوزن"
        ElseIf bmi >= 18.5 And bmi < 25 Then
            Me.ww = "وزن مثالي"
        ElseIf bmi >= 25 And bmi < 30 Then
            Me.ww = "زيادة في الوزن"
        ElseIf bmi >= 30 And bmi < 35 Then
            Me.ww = "بداية سمنة"
        Else
            Me.ww = "سمنة مفرطة"
        End If
        
        ' إظهار النتائج
        ww.Visible = True
        w3.Visible = True
    Else
        MsgBox "الرجاء إدخال قيم صحيحة للطول والوزن", vbExclamation
    End If
End Sub

 

test.accdb

تم تعديل فبراير 11 بواسطه MOHAMMAD IBRAHIM
اضافة مرفق

[dd13901390]

الف شكر اخوي وجزاك الله الف خير

[Foksh]

في 11‏/2‏/2025 at 11:29, dd13901390 said:

الف شكر اخوي وجزاك الله الف خير

اهلاً وسهلاً بك معنا في أسرتنا المتواضعة أخي الكريم ، وبما أنك عضو جديد فنرجو أن تلقى هنا ما يسرك وما يلبي حاجتك وطلبك في هذا المنتدى ..

نرجو منك متابعة مواضيعك بإغلاقها باختيارك  للإجابة التي تم حل مشكلتك فيها من قبل الأساتذة والأخوة . وذلك دلالة على أن الموضوع كان حله هذه الإجابة وقد تم اغلاقه .

[AbuuAhmed]

مع الاعتذار، ملاحظة "فنية" في الكود، فهو عمليا صحيح 100% ومنظم بشكل جميل.
الملاحظة هو هناك زيادة في الشرط غير ضارة يمكن إزالتها للاختصار بهذا الشكل:
 

        If bmi < 16.5 Then
            Me.ww = "نقص حاد بالوزن"
        ElseIf bmi < 18.5 Then
            Me.ww = "نقص بالوزن"
        ElseIf bmi < 25 Then
            Me.ww = "وزن مثالي"
        ElseIf bmi < 30 Then
            Me.ww = "زيادة في الوزن"
        ElseIf bmi < 35 Then
            Me.ww = "بداية سمنة"
        Else
            Me.ww = "سمنة مفرطة"
        End If

 

تم تعديل فبراير 12 بواسطه AbuuAhmed

[AbuuAhmed]

في 11‏/2‏/2025 at 09:54, dd13901390 said:

الرجاء حل مشكلتي مع هذا البرنامج وهي عدم خروج النسبة والنتيجة صحيحة لا تظهر

عدلت على مثالك ومنها تبديل نوع الحقول من نصي إلى رقمي وبعض إجراءات التحكم وكذلك تحسين شكل النموذج أيضا.

bmiTest_03.accdb