خوش آموز درخت تو گر بار دانش بگیرد، به زیر آوری چرخ نیلوفری را


دستور If...Then...Else در ویژوال بیسیک دات نت

دستور If...Then...Else در ویژوال بیسیک دات نت
نویسنده : امیر انصاری
دستور If...Then...Else در ویژوال بیسیک بر اساس برقراری یا عدم برقراری شرطها، یکسری از دستورات را اجرا می کند.

سیستم یکپارچۀ سازمانی راهکار



نحوه نگارش (Syntax) دستور If...Then...Else


دستور If...Then...Else در ویژوال بیسیک دات نت

تشریح قسمتهای مختلف دستور If...Then...Else


  • condition : عبارت شرط می باشد. اگر مقدار این عبارت True باشد شرط برقرار می شود و بلوک کد مربوطه اجرا می شود. اگر هم مقدار عبارت False باشد شرط برقرار نمی شود و کد داخل بلوک مربوطه اجرا نخواهد شد.
  • Then : بعد از Then بلوک کد اولیه آغاز می شود.
  • statements : اگر شرط برابر true باشد این قسمت از کد اجرا می شود. در واقع statements کدهای اجرایی ما می باشد.
  • elseifcondition : با استفاده از elseifcondition می توانیم شرطهای دیگری را هم بگنجانیم، هر کدام از شرطها که برقرار باشد دستورات آن بلوک اجرا خواهد شد.
  • elsestatements : دستورات اجرایی که در بلوک مربوط به سایر شرطها قرار دارند.
  • End If : پایان دستور می باشد. دستور If...Then...Else در اینجا خاتمه یافته است.

توضیحات دستور If...Then...Else


در یک دستور If...Then...Else ابتدا شرط اول بررسی می شود، اگر شرط برابر True باشد، بلوک کد بعد از Then اجرا می شود و سپس به سراغ شرطهای بعدی می رود، اگر هیچکدام از شرطها برقرار نباشد قسمت Else اجرا می شود.

دستور If...Then...Else را می توانید بصورت تو در تو نیز بنویسید.

مثال از نحوه استفاده دستور If...Then...Else


دستور If...Then...Else در ویژوال بیسیک دات نت
Dim count As Integer = 0
Dim message As String

If count = 0 Then
message = "There are no items."
ElseIf count = 1 Then
message = "There is 1 item."
Else
message = "There are " & count & " items."
End If

مثال از نحوه استفاده دستور If...Then...Else


دستور If...Then...Else در ویژوال بیسیک دات نت
Private Function CheckIfTime() As Boolean
' Determine the current day of week and hour of day.
Dim dayW As DayOfWeek = DateTime.Now.DayOfWeek
Dim hour As Integer = DateTime.Now.Hour

' Return True if Wednesday from 2 to 4 P.M.,
' or if Thursday from noon to 1 P.M.
If dayW = DayOfWeek.Wednesday Then
If hour = 14 Or hour = 15 Then
Return True
Else
Return False
End If
ElseIf dayW = DayOfWeek.Thursday Then
If hour = 12 Then
Return True
Else
Return False
End If
Else
Return False
End If
End Function

مثال از نحوه استفاده دستور If...Then...Else


در این مثال از دستور If...Then بصورت یک خطی استفاده شده است.

دستور If...Then...Else در ویژوال بیسیک دات نت
' If A > 10, execute the three colon-separated statements in the order
' that they appear
If A > 10 Then A = A + 1 : B = B + A : C = C + B


نمایش دیدگاه ها (1 دیدگاه)

دیدگاه خود را ثبت کنید:

انتخاب تصویر ویرایش حذف
توجه! حداکثر حجم مجاز برای تصویر 500 کیلوبایت می باشد.


دسته بندی مطالب خوش آموز