تصحيح الخطأ في هذا الكود

[الجموعي]

مساعدة في تصحيح أخطاء هذا الكود

عند النفيذ تظهر رسالة الخطا التالية

---------------------------
Microsoft Visual Basic
---------------------------
Compile error:

Syntax error
---------------------------
موافق   تعليمات   
---------------------------
 

Private Sub cmd_mark1_Click()
Dim mark As Integer
Dim gpa As String
Me.TextBox1.Text = InputBox("أدخل العلامةأولا")
mark = Val(TextBox1.Text)
Select Case mark
Case Is 18 To 15
MsgBox ("ممتاز")
Case Is 15 To 12
MsgBox ("جيد جدا")
Case Is 12 To 10
MsgBox ("جيد")
Case Is 10 To 7
MsgBox ("متوسط")
Case Is 7 To 0
MsgBox ("ضعيف")
Case Else
MsgBox ("توبيخ")
NextEnd Sub

[ياسر خليل أبو البراء]

جرب التالي

Private Sub cmd_mark1_Click()
    Dim mark As Integer
    Dim gpa As String
    Me.TextBox1.Text = InputBox("أدخل العلامةأولا")
    mark = Val(TextBox1.Text)
    Select Case mark
    Case 18 To 15
    MsgBox ("ممتاز")
    Case 15 To 12
    MsgBox ("جيد جدا")
    Case 12 To 10
    MsgBox ("جيد")
    Case 10 To 7
    MsgBox ("متوسط")
    Case 7 To 0
    MsgBox ("ضعيف")
    Case Else
    MsgBox ("توبيخ")

End Sub

[الجموعي]

أستاذي القدير شكرا على التعديل

لكن عند التنفيذ ظهرت هذه الرسالة

---------------------------
Microsoft Visual Basic
---------------------------
Compile error:

Select Case without End Select
---------------------------
موافق   تعليمات   
---------------------------

قمت بإضافة End Select

قبل End sub

إشتغل الفورم

لكن عند إدخال العلامة في TextBox1والضغط على زر Cmd _mark1

تظهر نافذة إدخال العلامة

وعند إدخال أي علامة تظهر رسالة توبيخ فقط

ملف مرفق

MARK1.rar

[ibn_egypt]

اخى الفاضل

 

بعد إذن أخى الحبيب ياسر، جرب هذا الكود

Private Sub cmd_mark1_Click()
Dim mark As Integer
If Me.TextBox1 <> "" Then
 mark = Me.TextBox1.Value
    Select Case mark
     Case Is > 100
    MsgBox ("علامة خاطئة")
    Me.TextBox1.Value = ""
    Me.TextBox1.SetFocus
    Case Is >= 18
    MsgBox ("ممتاز")
    Case Is >= 15
    MsgBox ("جيد جدا")
    Case Is >= 12
    MsgBox ("جيد")
    Case Is >= 10
    MsgBox ("متوسط")
    Case Is >= 7
    MsgBox ("ضعيف")
    Case Is < 7
    MsgBox ("توبيخ")
    End Select
 Else
    MsgBox ("ادخل العلامة أولاً")
    GoTo 1
 End If
1 End Sub

تحياتي  

[الجموعي]

أستاذي القدير /إبن مصر

جزاك الله خيرا

الكود يعمل بنجاح

بارك الله فيك

ياريت التعديل على الكود الذي أرفقته في المشاركة 1

وتم تعديله من طرف الأستاذ الخبير / ياسر خليل

من باب إثراء للموضوع

[ibn_egypt]

 

أستاذي القدير /إبن مصر

جزاك الله خيرا

الكود يعمل بنجاح

بارك الله فيك

ياريت التعديل على الكود الذي أرفقته في المشاركة 1

وتم تعديله من طرف الأستاذ الخبير / ياسر خليل

من باب إثراء للموضوع

 

أخى الفاضل

 

تفضل التعديل المطلوب، جرب الكود التالي وغير الدرجات كما تريد

Private Sub cmd_mark1_Click()
Dim mark As Integer
If Me.TextBox1.Value <> "" Then
    mark = Me.TextBox1.Value
    Select Case mark
    Case 0 To 7
    MsgBox ("ضعيف")
    Case 8 To 10
    MsgBox ("متوسط")
    Case 11 To 12
    MsgBox ("جيد")
    Case 13 To 14
    MsgBox ("جيد جدا")
    Case 15 To 18
    MsgBox ("ممتاز")
    Case Is > 18
    MsgBox "الدرجة العظمي 18", vbOKOnly + vbInformation, "تنبيه"
    Me.TextBox1.Value = ""
    Me.TextBox1.SetFocus
    GoTo 1
    Case Else
    MsgBox ("توبيخ")
    End Select
Else
    MsgBox ("من فضلك أدخل العلامة أولاً")
    GoTo 1
End If
1 End Sub 

تحياتي  

[الجموعي]

شكرا وبارك الله فيك استاذي

جزاك الله خيرا

إستفدت كثيرا من بحر علمك

أستاذي لماذا قمت بحذف المتغير

gpa

Dim gpa As String

هل من طريقى لتنفيذ الكود بالمتغيرين

[ibn_egypt]

شكرا وبارك الله فيك استاذي

جزاك الله خيرا

إستفدت كثيرا من بحر علمك

أستاذي لماذا قمت بحذف المتغير

gpa

Dim gpa As String

هل من طريقى لتنفيذ الكود بالمتغيرين

 

أخى الفاضل أ.الجموعي

 

لاشكر على واجب أولاً فنحن جميعا اخوة نتشارك ونتبادل العلم فيما بيننا

 

ثانيا احنا بنعرف المتغيرات علشان نستخدمها في الكود اللى هيكتب ... ايه الهدف من تعريف متغير باسم gpa في المشاركة رقم 1 وهو لم يستخدم على الاطلاق في الكود، اذا هو متغير ليس له قيمة ولافائدة منه فالافضل حذفه، ولماذا تريد متغييرين اذا كان العمل يسير بصورة طيبة وسليمة بمتغير واحد، كن بسيطا ترى الكود بسيطا   

 

تحياتى   

[ياسر خليل أبو البراء]

بارك الله فيك أخي الحبيب ابن مصر

أعتذر انشغلت في الحلقة العاشرة ، وجيت لاقيتك مخلص على الموضوع كالعادة

كن حبيبي ترى الإكسيل جميلاً .. تقبل تحياتي

تم تعديل ديسمبر 3, 2014 بواسطه YasserKhalil

[الجموعي]

بارك الله فيكما استاذاي الفاضلان

حفظكما الله