(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
تحياتى لكوتمنياتى لك التوفيق
هههههههههه
سبحان الله العظيم
سأدعو لك الله جل جلاله أن يحفظك من العين و من الحساد ..
لا أصدق أنك - ما شاء الله -- تأتي بهذا الكود بهذه السرعة !!
لقد أمضيت اليوم كاملا في التفكير في هذا الكود و البحث عنه ..بدون جدوى
أقسم بالله العظيم أحد الأساتذة المرموقين أتحفظ على اسمه أعطاني كودا ...تبين لي أنه كود فاشل ..ههههه
لقد علمتني هذه التجربة يا استاذي الكريم أن المشاكل و منها مشاكل الحياة الواقعية اليومية قد تكون حلولها قريبة و اسهل أكثر مما نتصور !!
على كل حال ...شكرا أقولها لك بكل اخلاص و اعجاب و احترام !!!
ما زالت عندي مشكلة وحيدة هي مشكلة كود يدرج كل checkbox مؤشر عليه إلى قاعدة البيانات و لكنني اصبحت استحي منك ...بكثرة طلب المساعدة
حفظك الله للعرب و المسلمين
ربي زدني علما