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

يمكنك استخدام كشف If...Then...Else (Visual Basic) لتشغيل عبارة محددة أو كتل من العبارات حسب قيمة نوع بيانات القيمة المنطقية في (Visual Basic) للحالة. الشرط عادةً نتيجة المقارنة بين قيمتين ولكن يمكن أن يكون أي تعبير يقيّم إلى قيمة Boolean )True أو False). يتضمن هذا قيم أنواع بيانات أخرى مثل الأنواع الرقمية التي تم تحويلها إلى Boolean.

لـتشغيل كشف واحد أو أكثر من إذا كان الشرط صحيح

• إذا كان لديك عبارة واحدة فقط للتشغيل, استخدم بناء جملة الخط المفرد لانشاء If... Then... Else. لا تحتاج الى كشف Else أو End If . فيما يلي مثال يوضّح ذلك.

  Sub fixDate()
      Dim myDate As Date = #2/13/1973#
      If myDate < Now Then myDate = Now
  End Sub
  

  -أو-

• لـتنفيذ خط واحد أو أكثر من التعليمات البرمجية عندما يكون الشرط True، استخدم بناء الجملة الأسطر المتعددة والتي يتضمن كشف End If . إذا لم يكن لديك أية تعليمات برمجية للتشغيل عندما يكون الشرط False، تقوم بحذف كشف Else . فيما يلي مثال يوضّح ذلك.

  Dim alertLabel As New System.Windows.Forms.Label
  Sub alertUser(ByVal value As Long)
      If value = 0 Then
          alertLabel.ForeColor = System.Drawing.Color.Red
          alertLabel.Font = New Font(alertLabel.Font, 
              FontStyle.Bold Or FontStyle.Italic)
      End If
  End Sub
  

لـتشغيل بعض العبارات إذا كان الشرط صحيح وا اذا كان لآخرين خطأ

• استخدام انشاء If... Then... Else مع كشف عبارة Else في (Visual Basic) لتعريف كتلتين اثنين من العبارات. Visual Basic ينفذ كتله واحدة إذا كان الشرط True و الأخر إذا كان False. فيما يلي مثال يوضّح ذلك.

  Dim alertLabel As New System.Windows.Forms.Label
  Sub alertUser(ByVal value As Long)
      If value = 0 Then
          alertLabel.ForeColor = System.Drawing.Color.Red
          alertLabel.Font = New Font(alertLabel.Font, 
              FontStyle.Bold Or FontStyle.Italic)
      Else
          alertLabel.Forecolor = System.Drawing.Color.Black
          alertLabel.Font = New Font(alertLabel.Font, 
              FontStyle.Regular)
      End If
  End Sub
  

لـاختبار شروط إضافية إذا كان الشرط الأول خطأ

• استخدام انشاء If... Then... Else واحد أو أكثر من كشف ElseIf لاختبار شروط إضافية إذا كان الشرط أول False. في المثال التالي, اجراء Function يحسب علاوة قائمة الرواتب التي تعتمد على تصنيف الأداء. كتلة الـكشف التي تتبع كشف Else تنفذ فقط إذا الشروط في كشفIf و ElseIf تكون جميعها False.

  Function bonus(ByVal performance As Integer, 
                 ByVal salary As Decimal) As Decimal
      If performance = 1 Then
          Return salary * 0.1
      ElseIf performance = 2 Then
          Return salary * 0.09
      ElseIf performance = 3 Then
          Return salary * 0.07
      Else
          Return 0
      End If
  End Function
  

  Visual Basic تختبر الشروط في الترتيب التي تظهر به في كشف If... Then... Else . عندما يواجه شرط True أو كشف Else فانه ينفذ كتلة الكشف المطابقة. يتم نقل التحكم بعد ذلك الى العباره التي تلي كشفEnd If.

  يمكنك الحصول على أي عدد من كشوف ElseIf أو لا شيء على الإطلاق. يمكنك تضمين أو تجاهل كشف واحد Else بغض النظر عن ما إذا كان لديك أي كشوف ElseIf.

راجع أيضًا:

المهام

كيفية القيام بما يلي: نقل عنصر تحكم خارج بنية عنصر تحكم

كيفية القيام بما يلي: اختبار لعدة قيم من تعبير

كيفية القيام بما يلي: الاحتفاظ بعنصر التحكم عند حدوث خطأ

المبادئ

بنيات القرار

بنيات التكرار الحلقي

بنيات التحكم الأخرى

بنيات التحكم المتداخلة

موارد أخرى

عنصر تحكم التدفق في Visual Basic