اشكرك اخي ابراهيم علي المجهود
ولكن رفعت لك صورة من الفورم لتقريب المطلوب
ارغب في ادخال الدرجة فيتم ملي التقديرات باختيار من حرف مثلا(A B C D F) حسب درجة الطالب ثم يظهر قيمة النقاط حسب الحرف حيث لكل حرف وزن معين يتم ضربة في ساعات المقرر ثم وضع الناتج في تكست النقاط
المعدل الفصلي يتم بقسمة مجموع النقاط علي الساعات الكلية
كل هذة الحقول مربوطة بجدول النتائج علي قاعدة البيانات و الذي يتم فتحة من شاشة التسجيل لادخال المقررات وساعاتها
وفي هذة الشاشة يتم ادخال الدرجات وحساب المعدل ومن ثم الحفظ...المشكلة انه حقل المعدل لا يتم حفظة علي قاعدة البيانات
ارجو ا الحل مع الشكر
مرفق الكود عند حدث تغير محتوي حقل الدرجة والتقدير للمقرر الاول
Private Sub TxtDeg1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TxtDeg1.TextChanged
If TxtDeg1.Text <> "" Then
Try
Select Case TxtDeg1.Text
Case Is >= 80
TextGr1.Text = "A"
Case Is > 70
TextGr1.Text = "B+"
Case Is >= 65
TextGr1.Text = "B"
Case Is >= 60
TextGr1.Text = "C+"
Case Is >= 55
TextGr1.Text = "C"
Case Is >= 50
TextGr1.Text = "D"
Case Is < 50
TextGr1.Text = "F"
End Select
Select Case TextGr1.Text
Case Is = "A"
Textpo1.Text = Val(H1.Text) * 4
Case Is = "B+"
Textpo1.Text = Val(H1.Text) * 3.5
Case Is = "B"
Textpo1.Text = Val(H1.Text) * 3
Case Is = "C+"
Textpo1.Text = Val(H1.Text) * 2.5
Case Is = "C"
Textpo1.Text = Val(H1.Text) * 2
Case Is = "D"
Textpo1.Text = Val(H1.Text) * 1.5
Case Is < 50 > 0
Textpo1.Text = 0
End Select
Catch ex As Exception
MsgBox("يرجي مراجعة البيانات المدخلة")
End Try
End If
End Sub
اخي ابراهيم كل عام و انت بخير
معليش اتعبتك معاي
رفعت لك المشروع الذي اعمل علية يمكن الدخول الي شاشة التسجيل و اختيار تسجيل جديد لادخال تسجيل طالب
ومن الشاشة الرئيسية اختار الموقف الاكاديمي و منه النتيجة الحالية
حيث الشاشة الخاصة بادخال النتائج
المطلوب تعديل زر الحفظ ليقوم بتحديث الجدول (Reslut3) بعد ادخال الدرجة
متروك لك حرية التصرف
مع خالص الشكر وجزاك الله خير