شرح الجمل الشرطية فى الفيجوال بيسك دوت نت

اولاً : جملة If ...... Then 

ابسط الجمل الشرطية فى الفيجوال بيسك دوت نت وتأخذ الشكل التالى 

If condition Then

   [Statement(s)]

End If

وهذه الجملة تعنى انه اذا تحقق الشرط condition ينفذ الجملة التالية ل then

مثال : - 

Module decisions

    Sub Main()        'local variable definition 

        Dim a As Integer = 10


        ' check the boolean condition using if statement 
        If (a < 20) Then            ' if condition is true then print the following 

            Console.WriteLine("a is less than 20")
        End If

Console.WriteLine("value of a is : {0}", a)
Console.ReadLine()
    End Sub

End Module

وبتنفيذ الكود السابق يعطينا النتيجة التالية

a is less than 20


value of a is : 10

ثانياً : جملة if...... then ..... else 

If(شرط)Then
   تنفيذ اكواد فى حالة تحقق الشرط 

Else

  تنفيذ هذه الاكواد فى حالة عدمم تحقق الشرط
End If

مثال :- 

Module decisions
   Sub Main()
       'تعريف متغير '
      Dim a As Integer = 100

      ' التحقق من الشرط
      If (a < 20) Then
          ' if condition is true then print the following 
          Console.WriteLine("a is less than 20")
      Else
          'تنفيذ فى حالة عدم تحقق الشرط
          Console.WriteLine("a is not less than 20")
      End If
      Console.WriteLine("value of a is : {0}", a)
      Console.ReadLine()
   End Sub
End Module

ثالثاً : - If ...... Then ...... Else if

If(شرط 1)Then

   ' تنفيذ الاكواد  
ElseIf(شرط 2)Then

   تنفيذ الاكواد 

ElseIf(شرط 3)Then

   تنفيذ الاكواد
Else 

   تنفيذ الاكواد حالة عدم تحقق الشروط الثلاثة السابقة 

End If

مثال :-

Module decisions
   Sub Main()
      'تعريف متغير '
      Dim a As Integer = 100
      ' التحقق من الشرط '
      If (a = 10) Then
          ' فى حالة تحقق الشرط '
          Console.WriteLine("Value of a is 10") '
      ElseIf (a = 20) Then
          'فى حالة عدم تحقق الشرطا الاولى وتحقق الشرط الثانى'
          Console.WriteLine("Value of a is 20") 
      ElseIf (a = 30) Then
          'فى حالة عدم تحقق الشرط الثانى ةتحقق الشرط الثالث
          Console.WriteLine("Value of a is 30")
      Else
        'عدم تحقق الشروط السابقة يتم تنفيذ الكود التالى
          Console.WriteLine("None of the values is matching")
      End If
      Console.WriteLine("Exact value of a is: {0}", a)
      Console.ReadLine()
   End Sub
End Module

رابعاً :- جملة if المتداخلة

If(شرط)Then
   'تنفيذ الاكواد
   If(شرط)Then
         'تنفيذ الاكواد 
   End If
End If

خامساً : جملة Select Case

تقوم بعمل اختبار للمتغير بعدد من القيم كل قيمة تسمى حالة Case  

Select [ Case ] expression القيمة التى سيتم مقارنتها
    [ Case expressionlist القيمة المقارن بها
        [ statements ] ] الاكواد المنفذه فى حالة التساوى
    [ Case Else
        [ elsestatements ] ] حالة عدم التساوى
End Select

مثال :- 

Module decisions
   Sub Main()
      'تعريف متغير
      Dim grade As Char
      grade = "B"
      Select grade
          Case "A" '= grade فى حالة قيمة
              Console.WriteLine("Excellent!")
          Case "B", "C"
              Console.WriteLine("Well done")
          Case "D"
              Console.WriteLine("You passed")
          Case "F"
              Console.WriteLine("Better try again")
          Case Else حالة عدم وجود تحقق لا شرط سابق
              Console.WriteLine("Invalid grade")
      End Select
      Console.WriteLine("Your grade is  {0}", grade)
      Console.ReadLine()
   End Sub
End Module

جملة Select Case المتداخلة

Module decisions
   Sub Main()
      'تصريح عن متغيرات
      Dim a As Integer = 100
      Dim b As Integer = 200
      Select a 
          Case 100
              Console.WriteLine("This is part of outer case ")
              Select Case b
                  Case 200
                      Console.WriteLine("This is part of inner case ")
              End Select
      End Select
      Console.WriteLine("Exact value of a is : {0}", a)
      Console.WriteLine("Exact value of b is : {0}", b)
      Console.ReadLine()
   End Sub
End Module