مساعدة في تعديل برنامج رياضي

[ٌRayan Zakho]

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

اخواني المبرمجين واساتذتي المحترمين ارجو مساعدتكم في انشاء هذا البرنامج مطلوب مني اعمله 
وارجو من يساعدني فيه
برنامج لاربعة انواع الرياضة مذكور فيه 
المطلوب
اولا : عند ادخال المواليد في الحقل (التولد) اريد تلقائيا يحسب العمر كم سنة في حقل (العمر) وعند احتساب العمر في حقل الفئة العمرية يحسب الفئة تلقائيا من الاولى والى الفئة السادسة
ثانيا : لدي ثلاث حقول لاربع انواع من الرياضة عند اختيار الفئة المطلوبة حسب العمر في حقل الثاني ( الوفت ) وعند اختيار الوقت حسب الفئة اريد تلقائيا يحسب لي الدرجة في الحقل (الدرجة)                                            ثالثا : عند اختيار الدرجات في الحقول الاربعة اريد تجميع الدجات في حقل المجموع و/ تقسيم الدرجات الى اربعة في حقل ( المعدل ) وعند اضافة المعدل اريد النتيجة ( ناجح او فاشل )

وشكرا

الرياضة.rar

[محمد أبوعبدالله]

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

منذ ساعه, ٌRayan Zakho said:

اولا : عند ادخال المواليد في الحقل (التولد) اريد تلقائيا يحسب العمر كم سنة في حقل (العمر)

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

ثم نضع الكود التالي

    Me.العمر = CalcAgeY(Me.التولد, Date)

 

منذ ساعه, ٌRayan Zakho said:

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

نضع الكود التالي

            Select Case Me.العمر
             Case 18 To 24
                Me.Text31 = "الفئة الاولى"
             Case 25 To 29
                Me.Text31 = "الفئة الثانية"
             Case 30 To 34
                Me.Text31 = "الفئة الثالثة"
             Case 35 To 39
                Me.Text31 = "الفئة الرابعة"
             Case 40 To 44
                Me.Text31 = "الفئة الخامسة"
            Case Else
                Me.Text31 = "الفئة السادسة"
            End Select

 

منذ ساعه, ٌRayan Zakho said:

ثانيا : لدي ثلاث حقول لاربع انواع من الرياضة عند اختيار الفئة المطلوبة حسب العمر في حقل الثاني ( الوفت ) وعند اختيار الوقت حسب الفئة اريد تلقائيا يحسب لي الدرجة في الحقل (الدرجة)        

نضع الكود التالي

    Me.المجموع = Val(Nz(الدرجة1)) + Val(Nz(الدرجة2)) + Val(Nz(الدرجة3)) + Val(Nz(الدرجة4))

 

منذ ساعه, ٌRayan Zakho said:

ثالثا : عند اختيار الدرجات في الحقول الاربعة اريد تجميع الدجات في حقل المجموع و/ تقسيم الدرجات الى اربعة في حقل ( المعدل ) وعند اضافة المعدل اريد النتيجة ( ناجح او فاشل )

سنضع الكود التالي

        Me.المعدل = Nz(Me.المجموع) / 4
    
            Select Case Me.المعدل
             Case 0 To 49
                Me.النتيجة = "فاشل"
             Case Else
                Me.النتيجة = "ناجح"
            End Select

 

 

وضعت الكود كاملا في حدث عند الخروج لحقل التولد

ويمكنك وضعه بما يناسب برنامجك

    Me.العمر = CalcAgeY(Me.التولد, Date)
            
            Select Case Me.العمر
             Case 18 To 24
                Me.Text31 = "الفئة الاولى"
             Case 25 To 29
                Me.Text31 = "الفئة الثانية"
             Case 30 To 34
                Me.Text31 = "الفئة الثالثة"
             Case 35 To 39
                Me.Text31 = "الفئة الرابعة"
             Case 40 To 44
                Me.Text31 = "الفئة الخامسة"
            Case Else
                Me.Text31 = "الفئة السادسة"
            End Select

        Me.المجموع = Val(Nz(الدرجة1)) + Val(Nz(الدرجة2)) + Val(Nz(الدرجة3)) + Val(Nz(الدرجة4))
        Me.المعدل = Nz(Me.المجموع) / 4
    
            Select Case Me.المعدل
             Case 0 To 49
                Me.النتيجة = "فاشل"
             Case Else
                Me.النتيجة = "ناجح"
            End Select

الرياضة.rar

 

وبرجاء زيارة الموضوع التالي لما فيه من الاهمية

تحياتي

تم تعديل يوليو 24, 2020 بواسطه محمد أبوعبدالله

[ٌRayan Zakho]

اشكرك اخي العزيز محمد أبوعبدالله مبدع بمعنى الكلمة 

لكن كيف اربط جدول الدرجات بالجدول الرئيسي

[محمد أبوعبدالله]

منذ ساعه, ٌRayan Zakho said:

لكن كيف اربط جدول الدرجات بالجدول الرئيسي

قمت بربط الجدول الاول = 50 متر متعرج

اكمل بنفس الطريقة باقي التمارين ولك الشكر

الرياضة.rar

 

تحياتي

تم تعديل يوليو 24, 2020 بواسطه محمد أبوعبدالله

[ٌRayan Zakho]

22 ساعات مضت, محمد أبوعبدالله said:

قمت بربط الجدول الاول = 50 متر متعرج

اكمل بنفس الطريقة باقي التمارين ولك الشكر

الرياضة.rar 49.97 kB · 3 تنزيلات

 

تحياتي

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

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

[محمد أبوعبدالله]

تفضل اخي الكريم

الرياضة.rar

ملاحطة : يوجد في جدول اسناد امامي وجدول تمرين بطن قيم فارغة وهذا خطا يجب الانتباه اليه

تحياتي

 

[ٌRayan Zakho]

43 دقائق مضت, محمد أبوعبدالله said:

تفضل اخي الكريم

الرياضة.rar 50.43 kB · 0 تنزيلات

ملاحطة : يوجد في جدول اسناد امامي وجدول تمرين بطن قيم فارغة وهذا خطا يجب الانتباه اليه

تحياتي

 

مبدع وربي مبدع هذا هو المطلوب 
اما بخصوص القيم الفارغة ساتاكد منه كلامك صحيح 

ولو تعبتك استاذي العزيز بقيت شغلة واحدة هذا الكود 

في ٢٤‏/٧‏/٢٠٢٠ at 05:47, محمد أبوعبدالله said:

Me.المعدل = Nz(Me.المجموع) / 4 Select Case Me.المعدل Case 0 To 49 Me.النتيجة = "فاشل" Case Else Me.النتيجة = "ناجح" End Select

كيف اركبها لكي تعمل وشكرا

[محمد أبوعبدالله]

الان, ٌRayan Zakho said:

كيف اركبها لكي تعمل وشكرا

وضح بارك الله فيك ما هو المطلوب

تحياتي

[ٌRayan Zakho]

4 دقائق مضت, محمد أبوعبدالله said:

وضح بارك الله فيك ما هو المطلوب

تحياتي

استاذي العزيز حقل ناجح او فاشل لايعمل عند ادخال الدرجات واظهار المعدل

[محمد أبوعبدالله]

الان, ٌRayan Zakho said:

استاذي العزيز حقل ناجح او فاشل لايعمل عند ادخال الدرجات واظهار المعدل

تفضل اخي الكريم

الرياضة.rar

تحياتي

[ٌRayan Zakho]

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

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

اللهم إني أسألك أن تمسح عنه أوجاعه،
وتنور ظلمات لياليه،
اللهم اسقنه فرحاً،
وارزقه من كل مداخل الخير،
اللهم يا قوي من للضعيف غيرك،
اللهم يا غني من للفقير غيرك،
اللهم يا عزيز من للذليل غيرك،
اللهم أغنه بحلالك عن حرامك،
وأغنه بفضلك عمن سواك.

 

[محمد أبوعبدالله]

40 دقائق مضت, ٌRayan Zakho said:

اللهم إني أسألك أن تمسح عنه أوجاعه،
وتنور ظلمات لياليه،
اللهم اسقنه فرحاً،
وارزقه من كل مداخل الخير،
اللهم يا قوي من للضعيف غيرك،
اللهم يا غني من للفقير غيرك،
اللهم يا عزيز من للذليل غيرك،
اللهم أغنه بحلالك عن حرامك،
وأغنه بفضلك عمن سواك.

اميييييييييييين

وجزاك الله عني خيرا اخي الكريم وكل عام وانتم بخير

تحياتي