العباره SELECT CASE في الفيجول بيسك دوت نت

استخدام الجمله SELECT CASE  

أذا كان جواب الشرط عبارة عن أحتمالين أو ثلاثة ان IF تصلح عبارة الشرط ھنالك أكثر من ثلاثة أحتمالات أو أربعة الي اخرة ففي ھذة الحالة نستخدم عبارة وسوف نشاھد الصيغة العامة مع مثال . SELECT CASE

الصيغة العامه للجمله  SELECT CASE

 

  SELECT CASE varablename 
  CASE IS 
  <COMMAND> 
  CASE IS 
  <COMMAND> 
  CASE IS 
  <COMMAND> 
  CASE ELSE 
  <COMMAND> 
  END SELECT

مثال على الجملة   SELECT CASE

 نريد عمل برنامج بحيث أذا أدخل المستخدم درجة أكبر من 90 يظھر لنا نتيجة تدل علي أن التقدير ممتاز وأذا أدخل درجة اكبر أوتساوي 80 يظھر لنا ان النتيجة جيدجدا واذا كانت الدرجة 70 سوف يظھر نتيجة ان التقدير جيد واذا كانت الدرجة 60 او اكبر سوف يدخل التقدير مقبول أما أذا كانت الدرجة أقل من 60 فسوف يظھر لنا ان النتيجة راسب ؟ ھل أستوعبت الفكرة أتمني ذلك والان دعنا نفكر كيف نكتب الكود

  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 

  Dim mark As Integer 
  mark = InputBox("ادخل الدرجه") 
  Select Case mark 
  Case Is >= 90 
  TextBox1.Text = "ممتاز" 
  Case Is >= 80 
  TextBox1.Text = "جيد جدا" 
  Case Is >= 70 
  TextBox1.Text = "جيد" 
  Case Is >= 60 
  TextBox1.Text = "مقبول" 
  Case Is < 60 
  TextBox1.Text = "" 
  End Select 

  End Sub 
  End Class

شرح الكود عزيزي المبرمج اصبح الان بامكانك فهم الكود مثل ماتعلمنا في دروس سابقه كيف نعرف المتغير وفي هذا مثال عرفنا متغير باسم mark من نوع integer ثم جعلنا المتغير mark يساوي InputBox وهي عباره عن نوع من انواع دوال الاخراج يكتب بها النصوص او الارقام ثم استخدمنا الداله select Case

لاحظ الصور

تعديل المقال