+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [كود] ماهو الخطا (/showthread.php?tid=1087)
الصفحات:
1
2
RE: ماهو الخطا - ناجي إبراهيم - 27-11-13
السلام عليكم...
المعذرة أخي أبو ليث، و لكننا نعلم أنه في جملة 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نرجو الاستفادة و السلام.
RE: ماهو الخطا - scluay - 28-11-13
السلام عليكم بصراحه جوابك افرحني كثيرا ولم يخطر على بالي هذه الفكره مشكور جدا جدا
ولكن اخ ناجي عندي سؤال خارج الموضوع اذا اردت ان اكتب كود كما انت تكتب من ناحية الشكل كيف استطيع