If شرط مورد نظر Then دستور مورد نظر
حالا مثال خودمون رو روی این دستور پیاده می کنیم
If فردا باران نیاید Then من به کوه خواهم رفت
دستور if در ویژوال بیسیک به دو صورت نوشته میشه
الف- معمولی: صورت معمولی دستور if مثل مثالی هست که قبلا زدیم.در این صورت از دستور فقط یک کار برای ما انجام می شود.
If شرط مورد نظر Then دستور مورد نظر
ب- در این حالت ما می توانیم یک یا چند دستور را اجرا کنیم.باید توجه داشت که در پایان دستور ها باید کلمه End if را برای اتمام کار بنویسیم در غیر این صورت برنامه پیغام خطا می دهد.
If شرط مورد نظر Then
دستور شماره1
دستور شماره 2
دستور شماره3
دستور شماره......
End if
2-دستور شرطی If & Else
گاهی اوقات نياز داريم که در صورت برقرار بودن شرط خاصی يک سری دستورات اجرا و در صورت برقرار نبودن آن شرط دسته ای ديگر از دستورات اجرا گردند. به عنوان مثال اگر فردا باران بيايد من به کوه نمی روم در غير اين صورت من به کوه خواهم رفت.
If شرط مورد نظر Then
دستور اول
Else
دستور دوم
End if
حالا مثال رو روی این دستور پیاده می کنیم.
If فردا باران بیاید Then
من به کوه نمی روم
Else
من به کوه می روم
End if
حالا ویژوال بیسیک رو اجرا کنید و از پنجره ی باز شده New Project رو انتخاب کنید تا یک پروژه ی جدید باز شود.
وقتی پروژه ی جدید باز شد از طریق منوی سمت چپ یک Command Button به فرمتون اضافه کنید.
روی command button دو بار کلیک کنید تا پنجره ی کد نویسی باز بشه.
در این قسمت ما می خواهیم دستور if را برسی کنیم پس کد نویسی را شروع می کنیم.در پنجره ی کدنویسی هر چقدر متن هست رو پاک کنید و به جای اون این کدهارو بزارید.
Private Sub Command1_Click()
If 50 < 100 Then Beep
End Sub
خط اول و آخر مربوط به اینه که مشخص میکنه در چه جایی این شرط بررسی بشه که ما به برنامه گفتیم در موقعی که بر روی command button کلیک میشه این شرط رو بررسی کن.
خط دوم هم به برنامه میگه اگر عدد 50 کمتر از 100 بود در اون صورت بوق بزن(Beep)
حالا می خواهیم دستور If &Else را بررسی کنیم.
مانند قبل یک پروژه ی جدید باز کنید و در یک command Button به اون اضافه کنید.
با دوبل کلیک بر روی Command Button پنجره ی کدنویسی را باز کنید و کدهای داخل اون رو پاک کنید و این کدها رو بهش اضافه کنید.
Private Sub Command1_Click()
If 50 < 100 Then
MsgBox "50 kamtar az 100 ast"
Else
MsgBox "50 bishtar az 100 ast"
End If
End Sub
در خط اول و آخر مثل قبل به برنامه گفتیم که در چه جایی شرط بررسی بشه.
در خط دوم شرط مورد نظر رو نوشتیم"اگر عدد 50 کمتر از 100 بود" در اون صورت
در خط سوم دستوری رو نوشتیم که در ازای درست بودن شرط اجرا میشه پیغام "50 kamtar az 100 ast" رو نشون بده
خط چهارم هم کلمه ی Else یا "در غیر این صورت " رو نوشتیم
در خط پنجم هم دستوری رو نوشتیم که به ازای درست نبودن شرط اجرا میشه "پیغام 50 bishtar az 100 ast رو نشون بده"
در خط ششم هم پایان شرط رو اعلام کردیم
نکته:دستور MsgBox برای نشان دادن یک پیغام استفاده می شود که دستور ساده ی آن به این صورت است
تبادل
لینک هوشمند
