[kebboud]

شكرا على الصبر استاذنا المحترم
و لكن الكود الجديد يعطيني رقم 6 أي عدد الخلايا من الاختبار 1 و حتى الاختبار 6 
و أنا اريد ان يعطيني عدد الخلايا التي توجد فيها ارقام فقط
مثلا إذا كان التلميذ حصل على 2 في الاختبار 3 و 5 في الاختبار 6 يجب ان احصل على نتيجة 2 
شكرا استاذي

---

(19-08-18, 07:20 PM)elgokr كتب :

اذا كنت تريد حتى العمود الخاص بالاختبار السادس قبل الامتحان

فهذا يعنى العمود رقم 7

فكل ما عليك حذف هذه الجملة

كود :

DataGridView1.ColumnCount - 1

وتكتب بدالها فقط 7

طبق التعديل اذا كان على طالب واحد للكود الموجود فى الرد الاخير

وكذلك طبق التعديل على الاكواد المذكورة بالاعلى لجلب جميع الطلاب

راجع الرد السابق تم اضافة اكواد اضافية

تحياتى لك

وتمنياتى لك التوفيق

شكرا على الصبر استاذنا المحترم
و لكن الكود الجديد يعطيني رقم 6 أي عدد الخلايا من الاختبار 1 و حتى الاختبار 6 
و أنا اريد ان يعطيني عدد الخلايا التي توجد فيها ارقام فقط
مثلا إذا كان التلميذ حصل على 2 في الاختبار 3 و 5 في الاختبار 6 يجب ان احصل على نتيجة 2 
شكرا استاذي

و هذه صورة جديدة توضح اكثر
https://imgur.com/S8cjlpl

[elgokr]

ساضع الاكواد مجدداً ولكن هذه المرة مع شرح توضيحي لكل سطر

مع اضافة ما تم طلبه فى الصورة الاخيرة

لعمل كود لجلب اجمالى عدد الطلاب على تم عمل لها اختبار وايضاً امتحان

كل ما عليك ستقوم باستخدام الكود التالى

كود :

       Dim count1, count2 As Integer
       REM بداية هذا السطر تعنى تطبيق على جميع الطلاب وليس لطالب واحد
       For i As Integer = 0 To DataGridView1.RowCount - 1

           REM سيبداء احتساب الاعداد للخلايا التى تحتوى على قيمة
           REM من العمود الاختبار الاول حتى العمود الاختبار السادس
           For ii As Integer = 2 To 7
               REM الشرط هنا هو للتحقق ان يجب ان يكون الخلايا تحتوى على قيمة وليست فارغة أو تساوى 0
               If Not DataGridView1.Rows(i).Cells(ii).Value Is Nothing Then
                   count1 += 1
               End If
           Next

           REM سيبداء احتساب الاعداد للخلايا التى تحتوى على قيمة
           REM من العمود الامتحان الأول حتى العمود الأمتحان الثالث
           For ii As Integer = 8 To 10
               REM الشرط هنا هو للتحقق ان يجب ان يكون الخلايا تحتوى على قيمة وليست فارغة أو تساوى 0
               If Not DataGridView1.Rows(i).Cells(ii).Value Is Nothing Then
                   count2 += 1
               End If
           Next

       Next
       REM نتائح اى عدد الخلايا التى تحتوى على قيمة فى خلايا الاختبار
       TextBox1.Text = count1
       REM نتائج اى عدد الخلايا التى تحتوى على قيمة فى خلايا الامتحانات
       TextBox2.Text = count2

ولطالب واحد فقط من خلال الوقوف على الطالب اولاً ثم الضغط على الزر أو من خلال حدث مباشر

عن الضغط مرة او مرتين على اى خلايا صف الطالب فكل ما عليك استخدام الكود التالى

كود :

       Dim count1, count2 As Integer
       REM سيبداء احتساب الاعداد للخلايا التى تحتوى على قيمة
       REM من العمود الاختبار الاول حتى العمود الاختبار السادس
       For ii As Integer = 2 To 7
           REM الشرط هنا هو للتحقق ان يجب ان يكون الخلايا تحتوى على قيمة وليست فارغة أو تساوى 0
           If Not DataGridView1.CurrentRow.Cells(ii).Value Is Nothing Then
               count1 += 1
           End If
       Next

       REM سيبداء احتساب الاعداد للخلايا التى تحتوى على قيمة
       REM من العمود الامتحان الأول حتى العمود الأمتحان الثالث
       For ii As Integer = 8 To 10
           REM الشرط هنا هو للتحقق ان يجب ان يكون الخلايا تحتوى على قيمة وليست فارغة أو تساوى 0
           If Not DataGridView1.CurrentRow.Cells(ii).Value Is Nothing Then
               count2 += 1
           End If
       Next

       REM نتائح اى عدد الخلايا التى تحتوى على قيمة فى خلايا الاختبار
       TextBox1.Text = count1
       REM نتائج اى عدد الخلايا التى تحتوى على قيمة فى خلايا الامتحانات
       TextBox2.Text = count2

كل ما عليك هو تغير كلاً من

PHP كود :

TextBox1.Text
TextBox2.Text 


لاسم الاداء او المكان المطلوب ظهور الاجمالى به

يجب ان تفهم الاكواد التى تستخدمها

حتى تصبح الامور بسيطة معك بدون اى تعقيد

فالامر ابسط واسهل من ما يكون لكن كل ما هو مطلوب

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

ولاحظ ايضاً هنا 

PHP كود :

2 To 7
8 To 10 


وهى تعنى العمود رقم 2 الى العمود رقم 7 خاص بالاختبارات

ومن العمود رقم 8 الى العمود رقم 10 خاص بالامتحانات

تذكر ان عند عد الاعمدة تبداء من رقم 0 وليس 1

لذلك تجد رقم 2 هو ما يعنى العمود رقم 3 اى الاختبار الاول .. الخ

اتمنى ان يكون الشرج بسيط

وان الامور اصبح ابسط لديك وان تكون على علم كيف استخدام الكود

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

تم وضح شرح مع الكود لكل سطر حتى تعلم فيما يستخدم

تحياتى لك

وتمنياتى لك التوفيق

[elgokr]

الان الصورة وضحت كاملاً

كان دائماً يعطى الاجمالى 6 و 3 حيث ليس لديك اى بيانات فى اى خلايا

والسبب يرجع هنا لانك مفعل الاضافة فى الداتا جريد فستجد بالنهاية الداتا جريد

صف محصص لاضافة بيان جديد والتى تحتوى على قيمة وهمية لذلك كان يتم جلبها كا مجموع

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

كود :

For i As Integer = 0 To DataGridView1.RowCount - 1

ليصبح السطر بهذا الشكل

كود :

For i As Integer = 0 To DataGridView1.RowCount - 2

ولتجنباً ايضاً لاى مشكلة اخرى تم تغيير كوط شرط التحقق الى التالى

كود :

               REM الشرط هنا هو للتحقق ان يجب ان يكون الخلايا تحتوى على قيمة وليست فارغة أو تساوى 0
               If TypeOf DataGridView1.Rows(i).Cells(ii).Value Is DBNull = False Then
                   count1 += 1
               End If

وبما انك بتستخدم TextBox2 فى امور اخرى

تم تغيير هذا السطر

كود :

       REM نتائج اى عدد الخلايا التى تحتوى على قيمة فى خلايا الامتحانات
       TextBox2.Text = count2

ليصبح

كود :

       REM نتائج اى عدد الخلايا التى تحتوى على قيمة فى خلايا الامتحانات
       TextBox11.Text = count2

السورس + برنامج للاختبار الكود مرفق

بعد اتمام جميع التعديلات وبعض اللمسات 

فى عرض المجموع فى التصميم

وكما وضحت مسبقاً ان ما تطلبه بسيط جداً

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

اصبحت فاقد الامل بان لا وجود لحل لاحظ التعديل فى السورس وبين الاكواد التى قمت بوضعها جميعا

تحياتى لك

وتمنياتى لك التوفيق

[kebboud]

(19-08-18, 09:21 PM)elgokr كتب :

الان الصورة وضحت كاملاً

كان دائماً يعطى الاجمالى 6 و 3 حيث ليس لديك اى بيانات فى اى خلايا

والسبب يرجع هنا لانك مفعل الاضافة فى الداتا جريد فستجد بالنهاية الداتا جريد

صف محصص لاضافة بيان جديد والتى تحتوى على قيمة وهمية لذلك كان يتم جلبها كا مجموع

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

كود :

For i As Integer = 0 To DataGridView1.RowCount - 1

ليصبح السطر بهذا الشكل

كود :

For i As Integer = 0 To DataGridView1.RowCount - 2

ولتجنباً ايضاً لاى مشكلة اخرى تم تغيير كوط شرط التحقق الى التالى

كود :

               REM الشرط هنا هو للتحقق ان يجب ان يكون الخلايا تحتوى على قيمة وليست فارغة أو تساوى 0
               If TypeOf DataGridView1.Rows(i).Cells(ii).Value Is DBNull = False Then
                   count1 += 1
               End If

وبما انك بتستخدم TextBox2 فى امور اخرى

تم تغيير هذا السطر

كود :

       REM نتائج اى عدد الخلايا التى تحتوى على قيمة فى خلايا الامتحانات
       TextBox2.Text = count2

ليصبح

كود :

       REM نتائج اى عدد الخلايا التى تحتوى على قيمة فى خلايا الامتحانات
       TextBox11.Text = count2

السورس + برنامج للاختبار الكود مرفق

بعد اتمام جميع التعديلات وبعض اللمسات 

فى عرض المجموع فى التصميم

وكما وضحت مسبقاً ان ما تطلبه بسيط جداً

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

اصبحت فاقد الامل بان لا وجود لحل لاحظ التعديل فى السورس وبين الاكواد التى قمت بوضعها جميعا

تحياتى لك

وتمنياتى لك التوفيق

الله اكبر 
كم انت عظيم يا استاذ العرب
و الله فرحت جدا جدا بهذه المساعدة التي عجز عنها الكثير من الاصدقاء
حفظك الله و ادامك لنا 
 
شكرا شكرا 
أنا الآن سعيد جدا

---

(19-08-18, 09:32 PM)kebboud كتب :

(19-08-18, 09:21 PM)elgokr كتب :

الان الصورة وضحت كاملاً

كان دائماً يعطى الاجمالى 6 و 3 حيث ليس لديك اى بيانات فى اى خلايا

والسبب يرجع هنا لانك مفعل الاضافة فى الداتا جريد فستجد بالنهاية الداتا جريد

صف محصص لاضافة بيان جديد والتى تحتوى على قيمة وهمية لذلك كان يتم جلبها كا مجموع

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

كود :

For i As Integer = 0 To DataGridView1.RowCount - 1

ليصبح السطر بهذا الشكل

كود :

For i As Integer = 0 To DataGridView1.RowCount - 2

ولتجنباً ايضاً لاى مشكلة اخرى تم تغيير كوط شرط التحقق الى التالى

كود :

               REM الشرط هنا هو للتحقق ان يجب ان يكون الخلايا تحتوى على قيمة وليست فارغة أو تساوى 0
               If TypeOf DataGridView1.Rows(i).Cells(ii).Value Is DBNull = False Then
                   count1 += 1
               End If

وبما انك بتستخدم TextBox2 فى امور اخرى

تم تغيير هذا السطر

كود :

       REM نتائج اى عدد الخلايا التى تحتوى على قيمة فى خلايا الامتحانات
       TextBox2.Text = count2

ليصبح

كود :

       REM نتائج اى عدد الخلايا التى تحتوى على قيمة فى خلايا الامتحانات
       TextBox11.Text = count2

السورس + برنامج للاختبار الكود مرفق

بعد اتمام جميع التعديلات وبعض اللمسات 

فى عرض المجموع فى التصميم

وكما وضحت مسبقاً ان ما تطلبه بسيط جداً

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

اصبحت فاقد الامل بان لا وجود لحل لاحظ التعديل فى السورس وبين الاكواد التى قمت بوضعها جميعا

تحياتى لك

وتمنياتى لك التوفيق

الله اكبر 
كم انت عظيم يا استاذ العرب
و الله فرحت جدا جدا بهذه المساعدة التي عجز عنها الكثير من الاصدقاء
حفظك الله و ادامك لنا 
 
شكرا شكرا 
أنا الآن سعيد جدا

استاذي المحترم 
اكتشفت الآن خطأ أفسد علي فرحتي.....
أريد منك يا استاذي عندما تضغظ على زر عرض الإجمالي و أنت واقف على أحد التلاميذ (يعني واضع مؤشر الماوس على احد التلاميذ) أن يحسب فقط لهذا التلميذ و لا يحسب لجميع التلاميذ ...واضح ؟؟؟
و شكرا

[elgokr]

فرحتك كما هخى اخى الفاضل

فقط استبدل الكود الذى بداخل الزر

بالكود التالى

كود :

       Dim count1, count2 As Integer

       REM سيبداء احتساب الاعداد للخلايا التى تحتوى على قيمة
       REM من العمود الاختبار الاول حتى العمود الاختبار السادس
       For ii As Integer = 2 To 7
           REM الشرط هنا هو للتحقق ان يجب ان يكون الخلايا تحتوى على قيمة وليست فارغة أو تساوى 0
           If TypeOf DataGridView1.CurrentRow.Cells(ii).Value Is DBNull = False Then
               count1 += 1
           End If
       Next

       REM سيبداء احتساب الاعداد للخلايا التى تحتوى على قيمة
       REM من العمود الامتحان الأول حتى العمود الأمتحان الثالث
       For ii As Integer = 8 To 10
           REM الشرط هنا هو للتحقق ان يجب ان يكون الخلايا تحتوى على قيمة وليست فارغة أو تساوى 0
           If TypeOf DataGridView1.CurrentRow.Cells(ii).Value Is DBNull = False Then
               count2 += 1
           End If
       Next

       REM نتائح اى عدد الخلايا التى تحتوى على قيمة فى خلايا الاختبار
       TextBox1.Text = count1
       REM نتائج اى عدد الخلايا التى تحتوى على قيمة فى خلايا الامتحانات
       TextBox11.Text = count2

وبكده سيعرض الاجمالى للطالب الواحد لحب المحدد

تحياتى لك

وتمنياتى لك التوفيق

[kebboud]

(19-08-18, 09:54 PM)elgokr كتب :

فرحتك كما هخى اخى الفاضل

فقط استبدل الكود الذى بداخل الزر

بالكود التالى

كود :

       Dim count1, count2 As Integer

       REM سيبداء احتساب الاعداد للخلايا التى تحتوى على قيمة
       REM من العمود الاختبار الاول حتى العمود الاختبار السادس
       For ii As Integer = 2 To 7
           REM الشرط هنا هو للتحقق ان يجب ان يكون الخلايا تحتوى على قيمة وليست فارغة أو تساوى 0
           If TypeOf DataGridView1.CurrentRow.Cells(ii).Value Is DBNull = False Then
               count1 += 1
           End If
       Next

       REM سيبداء احتساب الاعداد للخلايا التى تحتوى على قيمة
       REM من العمود الامتحان الأول حتى العمود الأمتحان الثالث
       For ii As Integer = 8 To 10
           REM الشرط هنا هو للتحقق ان يجب ان يكون الخلايا تحتوى على قيمة وليست فارغة أو تساوى 0
           If TypeOf DataGridView1.CurrentRow.Cells(ii).Value Is DBNull = False Then
               count2 += 1
           End If
       Next

       REM نتائح اى عدد الخلايا التى تحتوى على قيمة فى خلايا الاختبار
       TextBox1.Text = count1
       REM نتائج اى عدد الخلايا التى تحتوى على قيمة فى خلايا الامتحانات
       TextBox11.Text = count2

وبكده سيعرض الاجمالى للطالب الواحد لحب المحدد

تحياتى لك

وتمنياتى لك التوفيق

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

[elgokr]

الحمد لله

هذا يسعدنى 

تحياتى لك

وتمنياتى لك التوفيق

[kebboud]

(19-08-18, 10:04 PM)elgokr كتب :

الحمد لله

هذا يسعدنى 

تحياتى لك

وتمنياتى لك التوفيق

السلام عليكم استاذي المحترم
بقيت مساعدة واحدة أرجو أن تتكرم بها علي ......
في الخانة المسماة م_الاختبارات أريد أن احسب فيها معدل الأختبارات للتلميذ 
و معدل الاختبارات = عدد النقط التي حصل عليها  التلميذ في الاختبارات  مقسومة على عدد الاختبارات التي عملها التلميذ
مثلا محمد حصل على 12 في اختبار العربية و حصل على 10 في اختبار الانكليزية و حصل على 9 في اختبار الرياضيات ...هذا معناه 31 / 3 =  10.333
و لكن انتبه !!
بقية الاختبارات التي لم يعملها التلميذ إذا لم يأتي بمبرر للإدارة عن تغيبه عنها ستحسب عليه و في هذه الحالة سنفترض أنه تغيب عن بقية الاختبارات و  لم يأتي بمبرر هذا معناه 31 / 6  = 5.16..!!
و لذلك ستشاهد مجموعة من CHECKBOX في الأعلى يجب أن تستخدم في حساب هذا الشرط (شرط تغيب التلميذ) ..فهذه CHECKBOX حين تضغط عليها يظهر لك غير مبرر  و عندما تزيل عنها التأشير تزول عنها عبارة غير مبرر و عندما تكون مؤشرة  هذا معناه أنه محسوب على التلميذ !!
ماهو الكود الذي يحسب معدل  الاختبارات حسب هذه المعطيات يا استاذي المحترم ؟!
--------------
و بالنسبة لمعدل الامتحان = معدل الاختبارات مضروب في 3 زائد الامتحان الاول مضروب في 1 زائد الامتحان الثاني مضروب في 2 زائد الامتحان الثالث مضروب في 3 و هذا كله مقسم على 9 
فهل تستطيع يا استاذي أن تواحه هذا التحدي ؟؟؟!!!
علما أن خانة م_المادة هي الخانة التي يحسب فيها معدل الامتحانات.
كان الله في عونك

[elgokr]

فى هذه الحالة ستحتاج الى اتمام ذلك

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

فى قاعدة البيانات عكس ما يظهر فى الداتا جريد لذلك يفضل الخيار التاني وهو

من خلال اضافة وتعديل بيانات الاختبار للطالب

فعند تحديد الامتحانات والغيابات يقوم بعمل تلك المعادلات الحسابية

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

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

دون اى تعقيدات من اكواد وغيره ودون عمل استعلام مكثف ومعقد

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

تحياتى لك

وتمنياتى لك التوفيق

[kebboud]

(20-08-18, 05:49 AM)elgokr كتب :

فى هذه الحالة ستحتاج الى اتمام ذلك

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

فى قاعدة البيانات عكس ما يظهر فى الداتا جريد لذلك يفضل الخيار التاني وهو

من خلال اضافة وتعديل بيانات الاختبار للطالب

فعند تحديد الامتحانات والغيابات يقوم بعمل تلك المعادلات الحسابية

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

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

دون اى تعقيدات من اكواد وغيره ودون عمل استعلام مكثف ومعقد

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

تحياتى لك

وتمنياتى لك التوفيق

السلام عليكم أستاذي
أرجو أن توضح لي اكثر هذا الاستعلام..هل هو على مستوى قاعدة البيانات الأكسس ؟ أم على مستوى البرنامج ؟
ثانيا أنا أريد أن أجمع الأرقام على الداتاجريد فيو فتأتيني رسالة الخطأ ( La conversion de la chaîne "" en type 'Double' n'est pas valid)
كيف يمكنني تصحيح هذا الخطأ ؟
شكرا و عيدا سعيدا