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

الصفحات : 1 2 3 4

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

(19-08-18, 07:20 PM)elgokr كتب : [ -> ]
اذا كنت تريد حتى العمود الخاص بالاختبار السادس قبل الامتحان

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

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

كود :

DataGridView1.ColumnCount - 1

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

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

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

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

تحياتى لك

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

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

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

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

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

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

كود :

       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 اى الاختبار الاول .. الخ

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

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

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

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

تحياتى لك

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

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

كان دائماً يعطى الاجمالى 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: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

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

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

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

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

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

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

تحياتى لك

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

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

شكرا شكرا
أنا الآن سعيد جدا

(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

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

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

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

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

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

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

تحياتى لك

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

شكرا شكرا
أنا الآن سعيد جدا

استاذي المحترم
اكتشفت الآن خطأ أفسد علي فرحتي..... Angry

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

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

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

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

كود :

       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

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

تحياتى لك

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

(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

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

تحياتى لك

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

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

الحمد لله

هذا يسعدنى

تحياتى لك

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

(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
فهل تستطيع يا استاذي أن تواحه هذا التحدي ؟؟؟!!!
علما أن خانة م_المادة هي الخانة التي يحسب فيها معدل الامتحانات.
كان الله في عونك

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

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

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

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

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

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

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

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

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

تحياتى لك

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

(20-08-18, 05:49 AM)elgokr كتب : [ -> ]
فى هذه الحالة ستحتاج الى اتمام ذلك

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

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

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

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

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

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

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

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

تحياتى لك

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

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

الصفحات : 1 2 3 4