[مصمم هاوي]

هل يتكرم أحد الأساتذة الكرام والخبراء الأفاضل بتحويل كود فيجوال بيسك 6 إلى الدوت نت
الكود خاص بمجاميع الدرجات والمعدل والتقدير وعدد مواد الرسوب والنتيجة النهائية

الكود

كود :

Sub SaveTotl()

Set Rs = New Recordset
SQL = "select * from TBL_Final1"
Rs.Open SQL, DB, adOpenStatic, adLockOptimistic
Rs.MoveFirst
For j = 0 To Rs.RecordCount - 1
ct = 0: cc = 0

For I = 1 To 6
If Rs.Fields(20 + I).Value >= 50 Then ct = ct + Rs.Fields(20 + I).Value:  bo = False
If Rs.Fields(20 + I).Value < 50 Then ct = ct + Rs.Fields(20 + I).Value: cc = cc + 1: bo = True

Next I
Rs.Fields(28) = ct
Rs.Fields(31) = cc

Select Case cc
Case 0: Rs.Fields(32) = "ناجح"
Case 1 To 3: Rs.Fields(32) = "مكمل"
Case Is > 3: Rs.Fields(32) = "راسب"
End Select


tt = (ct / 600) * 100
Rs.Fields(29) = tt
If tt >= 85 Then Rs.Fields(30) = "ممتاز"
If tt >= 75 And tt <= 85 Then Rs.Fields(30) = "جيد جداً"
If tt >= 65 And tt <= 75 Then Rs.Fields(30) = "جيد"
If tt >= 50 And tt <= 65 Then Rs.Fields(30) = "مقبول"

Rs.Update
Rs.MoveNext
Next j

End Sub

Function aa(ss As Integer)
Select Case cc
Case 0: Rs.Fields(32) = "ناجح"
Case 1 To 3: Rs.Fields(32) = "مكمل"
Case Is > 3: Rs.Fields(32) = "راسب"
End Select
End Function

وهذا مثال صغير على الفكرة بالفيجوال بيسك 6

  جمع الدرجات.rar (الحجم : 578.6 ك ب / التحميلات : 16)