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

بخصوص الاستعلام كل المطلوب عمله

فى الادوات التى تقوم بجلب البيانات من قاعدة البيانات

للتعديل على كود الاستعلام بها لتقوم بعل المعادلات لتعبة الاعمدة المطلوبة

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

لكن خلال البرنامج ستكون موجودة لذلك تخطى هذه الفكرة

من حيث الاضافة والتعديل

مثلاً عندك طالب ستقوم بتعبئة جدول الاختبارات والامتحانات والغياب

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

بمعدلات الطرح والجمع و.. الخ لتعطي الناتج المطلوب من الاعمدة خاصة الامتحانات والاختبارات

وبكده عند اتمام فتح شاشة الجدول ستجد الاعمدة تحتوى على النتائج المطلوبة

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

الذى يرسل له هذه القيمة ان يتحول نوعه الى Double حتى تتخطى هذه المشكلة

تحياتى لك

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

(21-08-18, 12:22 AM)elgokr كتب :

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

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

اليك الكود لكلاً من 

الاختبارات من 2 : 7 والامتحانات من 8 : 10

كود :

       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 += DataGridView1.CurrentRow.Cells(ii).Value
           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 += DataGridView1.CurrentRow.Cells(ii).Value
           End If
       Next

       REM ايجاد اجمالى كلاً من مجموع الاختبارات والامتحانات للطالب الواحد
       For ii As Integer = 11 To 12
           If ii = 11 Then
               REM اجمالى مجموع الاختبارات
               DataGridView1.CurrentRow.Cells(ii).Value = count1
           Else
               REM اجمالى مجموع الامتحانات
               DataGridView1.CurrentRow.Cells(ii).Value = count2
           End If
       Next

تحياتى لك

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

(21-08-18, 05:48 AM)elgokr كتب :

الحمد لله على كل حال

بخصوص احد الاساتذة بخصوص ما تقصده

احياناً البعض لا يريد يعطى كل ما لديه لعدة اسباب 

ويرجع الامر ليجعلك تصل ما تريده لتتعلم والله اعلم

بخصوص كود الـ checkbox اطرح ما لديك

فاذا كان بامكانى المساعدة ستجد دائماً اقدم المساعدة

وستجد من الجميع هنا ايضاً ذلك

تحياتى لك

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

(21-08-18, 12:57 PM)kebboud كتب : بسم الله..
أولا  كم أنا سعيد يا استاذنا بفرحة العيد ..و بأجواء البهجة و السعادة التي تغمرني و لله الحمد و أتمنى من الله العلي القدير أن تصلك هذه الحروف و أنت في أحسن و أسعد حالة..
و أرجو من الله أن يديم علينا و عليكم العافية و الصحة ..و كل عام و نحن و انتم بخير 
على كل حال أشكرك يا أخي الكريم و سأبقى أشكرك و لن أنس لك جميلك و تواضعك و كرمك ...و حبك مساعدة الناس و هذا دليل على أن الله يحبك و رزقك الذكاء و الفهم و العلم (تبارك الله و ما شاء الله ) ..
أعتبر نفسي محظوظا جدا عندما تعرفت عليك !! .. و أعتبرك هدية من السماء أرسلها الله إلي فأنا شغوف جدا بالبرمجة و خاصة لغة VB.NET..
على كل حال بالنسبة إلى CHECKBOX فعددها 9 ..ستة للإختبارات و 3 للإمتحانات..أبحث عن طريقة أدرج بها CHECKBOX في الداتاغريد فيو ...يعني إنشاء صف من 9 من CHECKBOX ..و عندما أقوم بالتاشير على إحداها تسجل مباشرة في الداتاغريد فيو ..(كم هي ممتعة البرمجة ...و كم هي ممتعة لمن يعرفها .!!  )
ملاحظة : 
هل هناك طريقة لتخزين CHECKBOX في برنامج الفيحوال استوديو بدون تخزينها في الأكسس أو الاسكل أو غيرهم ؟!
و أرجو أن تسمح لي إذا كنت قد أزعجتك ...

تحياتى لك

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

(22-08-18, 07:00 AM)elgokr كتب :

(21-08-18, 12:57 PM)kebboud كتب : بسم الله..
أولا  كم أنا سعيد يا استاذنا بفرحة العيد ..و بأجواء البهجة و السعادة التي تغمرني و لله الحمد و أتمنى من الله العلي القدير أن تصلك هذه الحروف و أنت في أحسن و أسعد حالة..
و أرجو من الله أن يديم علينا و عليكم العافية و الصحة ..و كل عام و نحن و انتم بخير 
على كل حال أشكرك يا أخي الكريم و سأبقى أشكرك و لن أنس لك جميلك و تواضعك و كرمك ...و حبك مساعدة الناس و هذا دليل على أن الله يحبك و رزقك الذكاء و الفهم و العلم (تبارك الله و ما شاء الله ) ..
أعتبر نفسي محظوظا جدا عندما تعرفت عليك !! .. و أعتبرك هدية من السماء أرسلها الله إلي فأنا شغوف جدا بالبرمجة و خاصة لغة VB.NET..
على كل حال بالنسبة إلى CHECKBOX فعددها 9 ..ستة للإختبارات و 3 للإمتحانات..أبحث عن طريقة أدرج بها CHECKBOX في الداتاغريد فيو ...يعني إنشاء صف من 9 من CHECKBOX ..و عندما أقوم بالتاشير على إحداها تسجل مباشرة في الداتاغريد فيو ..(كم هي ممتعة البرمجة ...و كم هي ممتعة لمن يعرفها .!!  )
ملاحظة : 
هل هناك طريقة لتخزين CHECKBOX في برنامج الفيحوال استوديو بدون تخزينها في الأكسس أو الاسكل أو غيرهم ؟!
و أرجو أن تسمح لي إذا كنت قد أزعجتك ...

تحياتى لك

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

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

للتعامل مع CHECKBOX فالامر ابسط مما يكون

فكل ما عليك فى زر التحديث او حفظ التعديلات

اى كان المسمى لذلك

ان تقوم بعمل كود اخذ القيمة التى تم تنشيطها فى CHECKBOX 

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

وخصوص عرض لها نتائج فى الداتا جريد

فيكفى ان تجعل قيمة كل اختبار او امتحان -1 اى يعنى متغيب 

وبكده انت قمت بتوضيح او ظهور ان الطالب كان متغيب فى هذا الاختبار او الامتحان

وبخصوص الاكواد السابقة لتجنب تفعيل قيمة -1 مع النتائج التى كانت مطلوبة

يكفي ان تقوم بتزويد شرط التحقق ان يكون القيمة اكبر من 0 ليقوم باحتساب عدد الاختبارات والامتحانات

وكذلك مجموع اجمالى الامتحانات والاختبارات 

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

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

(22-08-18, 06:21 PM)elgokr كتب :

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

كل ما اريده منك فقط ان تقوم بعمل 

كود تحديث بيانات الطالب بقاعدة البيانات واعد ارفاق السورس بعد هذه الاضافة

وسوف اطلع عليه واقوم باضافة اللمسات التى تريده خاصة الـ CHECKBOX 

تحياتى لك

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