]ç[™¤¼.¸¸.¨✔¨™★برنامج تجميع الدرجات ★™¨✔¨.¸¸.¼¤™]ç[

[Best__wizard]

شكرا على البرنامج بس انامش عارف ان االمجموع من كام بس انا هفترد ان المجموع من 100 هتكتب الكود دا عشان يعدل على التقدير

Dim x As Short         x = Short.Parse(Me.TextBox1.Text)         If x > 90 Or x = 90 Then             MsgBox("ممتاز")         ElseIf x > 80 Or x = 80 Then             MsgBox("جيد جدا")         ElseIf x > 70 Or x = 70 Then             MsgBox("جيد")         ElseIf x > 60 Or x = 60 Then             MsgBox("متوسط")         ElseIf x > 50 Or x = 50 Then             MsgBox("مقبول")         Else             MsgBox("راسب")         End If

ابقا غير الارقام بقا او ابقا هتلى ان المجموع من كام وانا اعملهالك

[Little.Tornado]

المشاركة الأصلية كتبت بواسطة Best__wizard عفوا ,,, لايمكنك مشاهده الروابط لانك غير مسجل لدينا [ للتسجيل اضغط هنا ] شكرا على البرنامج بس انامش عارف ان االمجموع من كام بس انا هفترد ان المجموع من 100 هتكتب الكود دا عشان يعدل على التقدير         Dim x As Short         x = Short.Parse(Me.TextBox1.Text)         If x > 90 Or x = 90 Then             MsgBox("ممتاز")         ElseIf x > 80 Or x = 80 Then             MsgBox("جيد جدا")         ElseIf x > 70 Or x = 70 Then             MsgBox("جيد")         ElseIf x > 60 Or x = 60 Then             MsgBox("متوسط")         ElseIf x > 50 Or x = 50 Then             MsgBox("مقبول")         Else             MsgBox("راسب")         End If  ابقا غير الارقام بقا او ابقا هتلى ان المجموع من كام وانا اعملهالك

تمت تصليح الخطاء بفضل mrnuker00

[Best__wizard]

انا حسبت انك لسة معرفتش الحل فقلت اساعد

المشاركة الأصلية كتبت بواسطة ™Omar Ghanem™ عفوا ,,, لايمكنك مشاهده الروابط لانك غير مسجل لدينا [ للتسجيل اضغط هنا ] تمت تصليح الخطاء بفضل mrnuker00