تقييم الموضوع :
  • 1 أصوات - بمعدل 2
  • 1
  • 2
  • 3
  • 4
  • 5
[كود] ماهو الخطا
#11
السلام عليكم...

المعذرة أخي أبو ليث، و لكننا نعلم أنه في جملة 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

نرجو الاستفادة و السلام.
بِسْمِ اللهِ الرَّحْمَنِ الرَّحِيمِ ( وَ مَا تُقَدِّمُوا لِأَنفُسِكُم مِّنْ خَيْرٍ تَجِدُوهُ عِندَ اللهِ هُوَ خَيْراً وَ أَعْظَمَ أَجْراً ) صَدَقَ اللهُ الْعَظِيمُ
الرد }}}
تم الشكر بواسطة: abulayth , scluay
#12

السلام عليكم بصراحه جوابك افرحني كثيرا ولم يخطر على بالي هذه الفكره مشكور جدا جدا


ولكن اخ ناجي عندي سؤال خارج الموضوع اذا اردت ان اكتب كود كما انت تكتب من ناحية الشكل كيف استطيع
الرد }}}
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم