[عمرو المطري]

(26-10-17, 01:09 AM)zaer كتب : اذا كان هناك جزء من الدرجة من بعد التسعة سيعتبر راسب مثل 59.5 أو69.5 أو79.5 أو89.5

للخروج من هذه المشكلة استخدم هذا الكود كما هو بدون زيادة (يعني لا تضع 100 => grd)

كود :

Dim grd As Double = CDbl(txtGrade.Text)
If grd < 50 Then txtLetters.Text = "راسب"
If grd >= 50 And grd < 60 Then txtLetters.Text = "مقبول"
If grd >= 60 And grd < 70 Then txtLetters.Text = "متوسط"
If grd >= 70 And grd < 80 Then txtLetters.Text = "جيد"
If grd >= 80 And grd < 90 Then txtLetters.Text = "جيد جداً"
If grd >= 90 Then txtLetters.Text = "ممتاز"

مشكور اخي الغالي على التوضيح ^_^