دستورات شرطی در ویژوال بیسیک

اسم شرط با خودشه و همون طور که از اسمش معلومه باعث محدودیت های میشود. مثلا ما به کمک آنها میتوانیم دیکشنری های قدرتمند و پر سرعت بسازیم یا برای برنامه خود پسورد و یوزر قرار بدیم و خیلی کارهای دیگه که در این مقاله نمیگنجه.

انواع دستورات شرطی عبارتند از :

If ...............end if  ,      If ..............Else ................. end if     , Select Case  .............End Select

, غیره که اینهایی را که نام برده شد پرکاربرد ترین و مهمترین آنها هستند.

الف- IF ....End IF :

دستور شرطی If ... End if  که شکل کلی آن به صورت زیر است:

 then  شرط  If

دستور یا دستورات

End If

مثال۱ :

 if Ali = 123456789 then

Ali = 0

end if

در این مثال هر وقت مقدار متغیر Ali برابر با ۱۲۳۴۵۶۷۸۹ شد متغیر را برار ۰ کند.

ب - If ... Else ... End If :

این نوع دستور شرطی همانند دستور شرطی الف است فقط با این تفاوت که با  نوشتن کلمه Else (به معنی در غیر این صورت ) ما میتوانیم در صورت تحقق نیافتن شرطمان کار دیگری انجام دهیم.

شکل کلی دستور:

Then شرط If

دستور یا دستورات

Else

دستور یا دستورات

End If

مثال۲ -

If Ali = 123456789 then

Ali = 0

Else

Ali = 10

End if

که در مثال بالا ما میگوییم که اگر متغیر Ali برابر ۱۲۳۴۵۶۷۸۹ شد متغیر را برار ۰ قرار دهد و در غیر این صورت ( هر وقت متغیر Ali برابر ۱۲۳۴۵۶۷۸۹ نشد) مقدار متغیر را برابر ۱۰ کند.

امیدوارم با توضیحات نه چندان خوب من تا اینجا خوب پیش رفته باشید. راستی یه جوک یادم اومد:

یه روز یه ترکه میره ماه عسل زنشو یادش میره با خودش ببره.

ج- دستور شرطی Select Case ... End Select

در این نوع دستور شرطی ما یک یا دوتا شرط قرار نمیدیم بلکه میتوانیم بی نهایت شرط قرار بدیم و برای برنامه خود محدودیت های بیشتری قرار بدیم. شکل کلی دستور شرطی (ج) در زیر آمده است.

متغیر مورد نظر که شرط روی آن صورت میگیرد  Select Case

مقدار متغیر  Case

دستور یا دستورات

...

End Select

که در دستور بالا Select Case کلمه کلیدی شرط است .

۰ متغیر مورد نظر که شرط روی آن اعمال میشود : این عبارت میتواند یک عبارت عددی یا متنی باشد.

۰ مقدار متغیر : مقداری است که اگر متغیر دارای آن شود دستورات زیرش اجرا میشود.

۰ دستور یا دستورات : تمامی اعمالی که شما میخواهید برنامه انجام دهد.

شاید درک این نوع دستور شرطی برای کسانی که مبتدی هستند مشکل باشد ولی با یک نمونه برنامه ومثال سعی میکنم به بهترین روش آموزش بدم.

مثال ۱ :

Dim Ali as String

Select Case Ali

Case Hello

"سلام" MsgBox

Case Welcome

"خوش آمدید" MsgBox

Case Air

"هوا" MsgBox

End Select

تحلیل کد برنامه : در مثال ۱ ابتدا ما یک متغیر رشته ای به نام (Ali) تعریف کردیم. در خط بعد شرط خود را اعمال کردیم بر روی متغیر (Ali) یعنی اینکه هر گاه مقدار متغیر ما برابر با چیزی که ما پیش بینی کرده ایم شود دستورات ما باید اجرا شوند. در خط سوم گفتیم که هر وقت مقدار متغیر Ali برابر Hello شد برنامه برای کاربر پیغامی نمایش دهد که پیغام آن "سلام" (معنی کلمه Hello) باشد. و بعد از آن هم به همین صورت دو مقدار دیگر برای متغیر پیش بینی کردیم و معنی آنها را نیز برای کاربر پیش بینی کردیم.(مانند یک دیکشنری انگلیسی به فارسی ساده.)