منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] اذا ممكن مثال على ادخال علامات الطلاب وطباعة الشهادات - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] اذا ممكن مثال على ادخال علامات الطلاب وطباعة الشهادات (/showthread.php?tid=11693)



اذا ممكن مثال على ادخال علامات الطلاب وطباعة الشهادات - بدر إشتية - 12-03-15

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

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


RE: اذا ممكن مثال على ادخال علامات الطلاب وطباعة الشهادات - الدريساوي - 12-03-15

السلام عليكم 

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


RE: اذا ممكن مثال على ادخال علامات الطلاب وطباعة الشهادات - احمد عبد الحكيم - 12-03-15

اخى تقريبا هذا الفيديو يفيدك
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