27-11-13, 05:34 PM
(آخر تعديل لهذه المشاركة : 27-11-13, 05:52 PM {2} بواسطة ناجي إبراهيم.)
السلام عليكم...
المعذرة أخي أبو ليث، و لكننا نعلم أنه في جملة Select Case يتم تقييم الحالات من أعلى إلى أسفل، و عندما يجد أول تطابق يتم تنفيذ ما يتبعه من كود، مع تجاهل بقية الحالات. و بالتالي فإنه حتى الصفر - مع الكود الذي قمت أنت بتعديله - يحقق أول حالة Case Is < 85 أي سيتحصل على "جيد جداً".
للتنويه، و السلام عليكم.
السلام عليكم...
بالطبع لا أدري ما مشكلة If و لكن يمكن ذلك دون استعمالها كالتالي:
نرجو الاستفادة و السلام.
المعذرة أخي أبو ليث، و لكننا نعلم أنه في جملة Select Case يتم تقييم الحالات من أعلى إلى أسفل، و عندما يجد أول تطابق يتم تنفيذ ما يتبعه من كود، مع تجاهل بقية الحالات. و بالتالي فإنه حتى الصفر - مع الكود الذي قمت أنت بتعديله - يحقق أول حالة Case Is < 85 أي سيتحصل على "جيد جداً".
للتنويه، و السلام عليكم.
السلام عليكم...
بالطبع لا أدري ما مشكلة If و لكن يمكن ذلك دون استعمالها كالتالي:
كود :
Select Case True
Case IsNumeric(TextBox1.Text)
Select Case CDbl(TextBox1.Text)
Case Is < 0
MsgBox("القيم السالبة غير مقبولة")
TextBox1.Focus()
TextBox1.SelectAll()
Case Is < 50
TextBox2.Text = "راسب"
Case Is < 65
TextBox2.Text = "مقبول"
Case Is < 75
TextBox2.Text = "جيد"
Case Is < 85
TextBox2.Text = "جيد جداً"
Case Is <= 100
TextBox2.Text = "ممتاز"
Case Else
MsgBox("أكبر درجة مقبولة هي 100")
TextBox1.Focus()
TextBox1.SelectAll()
End Select
Case Else
MsgBox("أدخل الدرجة بشكل صحيح")
TextBox1.Focus()
TextBox1.SelectAll()
End Select
نرجو الاستفادة و السلام.
بِسْمِ اللهِ الرَّحْمَنِ الرَّحِيمِ ( وَ مَا تُقَدِّمُوا لِأَنفُسِكُم مِّنْ خَيْرٍ تَجِدُوهُ عِندَ اللهِ هُوَ خَيْراً وَ أَعْظَمَ أَجْراً ) صَدَقَ اللهُ الْعَظِيمُ