برنامج لمعرفة النتیجة

برنامج لمعرفة النتیجة . افتح مشروع جديد قیاسي ثم ضع علیه مايلي :
وقم بمسح كل ما Command زر أمر 1 ، Label أداة عنوان 1 ، Text صندوق نص 1
: Form_Load تحويه أداة العنوان وصندوق النص. ضع الكود الآتي في الحدث
Private Sub Form_Load()
Command1.Enabled = False
End Sub
: Text1_Change والكود الآتي بالحدث
Private Sub Text1_Change()
Command1.Enabled = True
If Val(Text1) = 0 Then Command1.Enabled = False: Label1 = ""
End Sub
: Text1_Keypress(KeyAscii As Integer) والكود الآتي في الحدث
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii > Asc("9") Or KeyAscii < Asc("0") Then
KeyAscii = 0
End If
End Sub
والكود الآتي للزر :
Private Sub Command1_Click()
If Val(Text1) > 0 And Val(Text1) <= 25 Then
Label "ضعیف" = 1
ElseIf Val(Text1) > 25 And Val(Text1) <= 50 Then
Label "جید" = 1
ElseIf Val(Text1) > 50 And Val(Text1) <= 75 Then
Label "وسط" = 1
ElseIf Val(Text1) > 75 And Val(Text1) <= 100 Then
Label "ممتاز" = 1
ElseIf Val(Text1) > 100 Then
Label1 = " "لا تدخل رقما أعلى من ١٠٠
End If
End Sub

شكرا اخي سليمان على هذا الطرح
ولكن ودي لو بالامكان يكون شرح مصور ممكن ولا فيه صعوبة عليك ومشقة
اذا كان كذلك فجزاك الله حير على كل ماتبذلة من مجهود لتفيد به غيرك

إإذا تسنت لي الفرصة انشاء الله أقوم بشرح بعض البرامج
و رفع مشارع جاهزة مفتوحة المصدر , يمكن التعديل عليها و التعلم منها