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

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

قام بنشر

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

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

وشكرا

الرياضة.rarFetching info...

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

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

  في 24‏/7‏/2020 at 01:27, ٌRayan Zakho said:

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

Expand  

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

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

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

 

  في 24‏/7‏/2020 at 01:27, ٌRayan Zakho said:

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

Expand  

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

            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

 

  في 24‏/7‏/2020 at 01:27, ٌRayan Zakho said:

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

Expand  

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

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

 

  في 24‏/7‏/2020 at 01:27, ٌRayan Zakho said:

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

Expand  

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

        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

الرياضة.rarFetching info...

 

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

تحياتي

تم تعديل بواسطه محمد أبوعبدالله
  • Like 1
قام بنشر (معدل)
  في 24‏/7‏/2020 at 09:39, ٌRayan Zakho said:

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

Expand  

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

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

الرياضة.rar 49.97 kB · 52 downloads

 

تحياتي

تم تعديل بواسطه محمد أبوعبدالله
  • Like 1
قام بنشر
  في 24‏/7‏/2020 at 10:50, محمد أبوعبدالله said:

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

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

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

 

تحياتي

Expand  

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

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

قام بنشر
  في 25‏/7‏/2020 at 10:26, محمد أبوعبدالله said:

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

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

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

تحياتي

 

Expand  

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

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

  في 24‏/7‏/2020 at 02:47, محمد أبوعبدالله said:

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

Expand  

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

قام بنشر
  في 25‏/7‏/2020 at 11:20, ٌRayan Zakho said:

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

Expand  

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

الرياضة.rarFetching info...

تحياتي

  • Like 1
قام بنشر

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

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

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


 

قام بنشر
  في 25‏/7‏/2020 at 11:49, ٌRayan Zakho said:

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

Expand  

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

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

تحياتي

  • Like 1

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