من سرم شلوغه ولی تا اخر هفته واستون مطالب جدید میزارم
اشکان همیشه پابر جاست
اشکان همیشه پابر جاست
سلام گل هام من هنوز زنده و پا برجام همتون رو دوست دارم
در برنامه نویسی مواردی پیش می آید که بخواهیم دستور یا دستوراتی، هنگامی که شرط خاصی برقرار است، توسط برنامه به اجرا در آید. این مورد در زندگی روزمره نیز دیده می شود؛ به عنوان مثال " اگر فردا باران نیاید، من به کوه خواهم رفت." شرط مورد نظر نیامدن باران است و عملی که قرار است انجام شود رفتن به کوه می باشد.در برنامه نویسی ویژوال بیسیک این شرط به صورت زیر نوشته می شود
If شرط مورد نظر Then دستور مورد نظر
حالا مثال خودمون رو روی این دستور پیاده می کنیم
If فردا باران نیاید Then من به کوه خواهم رفت
دستور if در ویژوال بیسیک به دو صورت نوشته میشه
الف- معمولی: صورت معمولی دستور if مثل مثالی هست که قبلا زدیم.در این صورت از دستور فقط یک کار برای ما انجام می شود.
If شرط مورد نظر Then دستور مورد نظر
ب- در این حالت ما می توانیم یک یا چند دستور را اجرا کنیم.باید توجه داشت که در پایان دستور ها باید کلمه End if را برای اتمام کار بنویسیم در غیر این صورت برنامه پیغام خطا می دهد.
If شرط مورد نظر Then
دستور شماره1
دستور شماره 2
دستور شماره3
دستور شماره......
End if
گاهی اوقات نیاز داریم که در صورت برقرار بودن شرط خاصی یک سری دستورات اجرا و در صورت برقرار نبودن آن شرط دسته ای دیگر از دستورات اجرا گردند. به عنوان مثال اگر فردا باران بیاید من به کوه نمی روم در غیر این صورت من به کوه خواهم رفت.
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 برای نشان دادن یک پیغام استفاده می شود که دستور ساده ی آن به این صورت است
MsgBox "پیغام مورد نظر"
برای دیدن جواب ایشون روی ادامه مطلب کلیک کنید
ادامه مطلب 1-Auto size=این خاصیت در صورتی که true باشه باعث میشه تا اندازه label به طور اتوماتیک به اندازه متن اون باشه و اگر false باشه اندازه به صورت دستی قابل تغییر است.
2-Back Style= اگر این خاصیت مساوی 0 یا transparent باشه label شفاف میشه و فقط متن اون پیدا میشه و اگر 1 یا Opaque باشه label به صورت مات و غیر شفاف در میاد که رنگ اون توسط خاصیت Back color قابل تغییر است
3-BorderStyle= اگر مقدار این خاصیت 0 یا None باشه label به صورت تخت Flat تبدیل میشه و اگر مقدارش مساوی 1 یا Fixed Single باشه label به صورت 3بعدی نمایش داده میشه
ایران باید همیشه سبز باشه
و در کل همیشه باید زیبا باشه
موسوی حمایتت می کنیم