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

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

واي مثال يخص برنامج ادارة المدرسة يرجى إفادتي به

السلام عليكم 

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

اخى تقريبا هذا الفيديو يفيدك
https://www.youtube.com/watch?v=IfBNDzVpeX4

وممكن هذا الكود ايضا يفيدك
On Error GoTo a
Dim a, b, c, d As Integer
a = Text1.Text
b = Text2.Text
c = Text3.Text
d = Text4.Text

If a + b + c + d >= 90 Then Text5.Text = "ممتاز"
If a + b + c + d >= 80 Then Text5.Text = "جـيـد جــداً"
If a + b + c + d >= 70 Then Text5.Text = "جـــيـــد"
If a + b + c + d >= 50 Then Text5.Text = "مقبول"
If a + b + c + d >= 90 Then Text5.Text = "رااااسب"
End If
Exit Sub
a:
MsgBox ("عفوا ، لم تقم بكتابة أي أرقام. الرجاء إعادة المحاولة"), vbCritical, "خــطــأ"
End Sub