سختارهای تصمیم گیری یا انتخاب (شرط)
در vb.net 5 ساختار برای کار با شرطها وجود دارد که عبارتند از : If\ Then , If\ Then \ Else , Select Case , Switch و Choose . دو دستور آخر در vb6 وجود نداشتند و در نسخه .net عرضه شده اند.
ساختار If \ Then : یا ساختار شرط تک انتخابی که برای تست کردن صحت یک شرط بکار میرود و در صورتیکه مقدار شرط true باشد, دستورهای داخل بدنه شرط اجرا میشود.مثال :
Dim temperature As Integer
If temperature>30 Then
Msgbox("very hot")
End if
ساختار If \Then \ Else : در این دستور شرطی بر خلاف دستور بالا دو حالت انتخاب وجود دارد, True بودن شرط که منجر به اجرای عملی میشود و یا False بودن شرط که منجر به اجرای عملی دیگر میشود.
Dim temperature As Integer
If temperature>30 Then
Msgbox("very hot")
Else
Msgbox("Very nice or cool ")
End if
Select Case : با استفاده از این ساختار تصمیم گیری ما قادر به تستهای زیادی هستیم. و میتوانیم چندین آیتم را با هم مد نظر داشته باشیم.
Select Case(متغیر یا عبارت)
Case 1 (اولین ایتمی که باید چک شود)
Do………
Case 2
Do…………..
……….
Case n
Do………………
Case else
Do…………….
End Select
Dim temperature As Integer
Select temperature
Case >50
Do ………………………..
Case<30 And >10
Do………………………….
Case 30 to 50
Do …………………………
Case Is 30
Do ………………………….
Case else
Do ……………………………
End select
Microsoft.VisualBasic.Switch(مقدار یا متغیر1 , مقدار برگشتی1 ,……….,lمقدار یا متغیر n , مقدار برگشتی n)
Choose : در واقع تابعی است که بر اساس مقدار عددی یک ایندکس, یکی از آیتمهای مشخص شده در لیست را برمی گرداند.
Choose(index, Choise1,Choice2,…………..,Choisen)
نمونه کد :
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
ساختارهای تکرار یا حلقه ها (Loop)
برنامه نویسان vb قادر به ایجاد حلقه هایی با سه دستور For , Do و While هستند.
حلقه For : مهمترین حلقه vb است و فرم کلی آن بصورت زیر است :
For index(As DataType)= Start to end [Step X]
Do ………..
Next [index]
در vb.net بر خلاف ویرایشهای قبلی میتوانیم متغیر حلقه را در خود حلقه تعریف کنیم مانند بالا یا اینکه آنرا ماقبل شروع حلقه تعریف کنیم.
Dim index As integer
For index=0 to n
Or
For Index As integer=0 to n
Dim sum,number As integer
Sum=0
For number=0 to 100
Sum=sum+number
Nexe
Msgbox(sum)
For each element (As datatype) in group
Do ……………
Next (element)
حلقه While : این حلقه شرطی را تست میکند, تا زمانیکه شرط true باشد حلقه بکار خود ادامه میدهد. هنگامیکه شرط False ارزیابی شود, برنامه از حلقه خارج و اولین دستور بعد از حلقه انجام می گیرد. فرم کلی حلقه بصورت زیر است: این حلقه بیشتر زمانی بکار می آید که تعداد تکرارها برای ما نامشخص است.
While condition
Do ………………
End while
Dim number As integer=3
While number<=3000
Number=number*3
End While
Msgbox(number)
**** در این حلقه و حلقه Do از سایر توابع vb که مقدار true یا false برمیگردانند میتوان استفاده کرد.
حلقه Do : حلقه Do تا زمانیکه یک شرط true باشد(While) یا نباشد (Until) اجرا میشود, دو نوع حلقه Do داریم. در نوع اول : شرط حلقه در ایتدای آن تست میشود
Do while | untile condition
Do ………………
Loop
اگر مثالی را که با حلقه While انجام دادیم, بخواهیم با استفاده از حلقه Do Until \ Loop بنویسیم, میشود :
Do until number>3000
Number=number*3
در نوع دوم , شرط حلقه در انتهای آن تست میشود, این حلقه حداقل یکبار اجرا میشود.
Do
Do ………………..
Loop (while | untile)
