از اونجایی که رفیقمون ترمیناتور چند روزه غیبش زده تصمیم گرفتم آخر خودم پست آموزشی وی بی رو بروز رسانی کنم و اگه ببینم پیداش نمیشه پست های بعدی رو هم خودم مینویسم

توی این پست در مورد case , switch و choose به ترتیب توضیح میدم که امیدوارم ازم شاکی نشین چون میخوام یه دفعه ای سه تا دستور رو تو یه پست جا بدم که اگه اینارو + چیزایی که تو پست های قبلی گفته شده بلد باشین میتونین بهتر پیش برین

خب اول از همه بریم سراغ دستور Select case : این دستور یه چیزی تو مایه های دستور شرطیه If توی ویژوال بیسیک هستش اما با این تفاوت که ما یه بار یه چیز رو مورد انتخاب قرار میدیم و دیگه نیازی نیست هی اونو فراخوانی کنیم یا ... ، از این دستور میتونیم به شکل پایین استفاده کنیم

select case textBox1.text
case 100
msgbox("Adad vared shode 100 mibashad")
case 1000
msgbox("Adad vared shode 1000 mibashad")
End Select

توی اینجا ما با استفاده از دستور Select case کادر متنی رو مورد هدف قرار دادیم و شرطامونو پایینش با استفاده از case نوشتیم که شرطامون به این شکله که اگر عدد textBox برابر بود با 100 نشون بده عدد وارد شده صد میباشد ، بعدش دوباره با استفاده از همون case به جای else گفتیم اگر عدد وارد شده توی کادر پیام 1000 بود ، نشون بده عدد وارد شده هزار میباشد و در آخر هم که با استفاده از End Select مثل End If به شرطمون پایان دادیم

---

خب حالا بریم سراغ دستور Choose : از این تابع تو جاهای خیلی کمی ازش استفاده میشه ، مثلا فکر کنین شما میخواین یه برنامه بنویسین که کاربر یه عدد بین یک تا هفت نوشت ، بگه که اون روز چند شنبست ، برای اینکار میتونیم از تابع Choose استفاده کنیم ، خودشم باید تابع رو داخل متغیر قرار بدیم

Virus32 = Choose(textBox1.text,"Shanbe","Yek-Shanbe","Do-Shanbe","Se-Shanbe","Chahar-Shanbe","Panj-Shanbe","Jome")
msgbox(Virus32)

با اینکار ما تابع رو ریختیم داخل متغیر Virus32 بعدش گفتیم اگه کادر متنی ، متنش یک تا هفت بود ، روز مربوط به اون عدد رو تو کادر پیام نمایش بده ، یه نکته در مورد این تابع بگم اینکه ، اگه اعداد بیشتر از 7 وارد کنیم خطا میده یا اگر میخوایم خطا نده باید از قبل براش توی Choose عدد در نظر بگیریم برای اینکار هم میتونیم قبل از بسته شدن پرانتز به این شبکه عمل کنیم

,"مقدار مورد نظر"

با اینکار ما اگه هشت بزنیم قبول میکنه و خطا نمیده

---

خب بریم سراغ دستور آخر یعنی Switch : این دستور یه چیزی تو مایه های دستور Choose هست اما یه مقدار پیشرفته تر ، به این شکل که ما میتونیم مقدار هم در نظر بگیریم و بگیم اگر کادر متنی مقدارش فلان شد ، اونموقع بیا و عملیات مورد نظر مارو انجام بده ، مثلا ما میخوایم یه برنامه بنویسیم که سه تا عدد یک تا سه رو پشتیبانی کنه و وقتی کاربر اعداد یک تا سه رو وارد کرد اونموقع اون عمل رو برای اون عدد در نظر بگیره ، اینم باید بگم که دستور سوئیچ هم مثل Choose  باید داخل متغیر قرار بگیره ، به این کدا دقت کنین 

Virus32 = Switch(textBox1.text="1","Yek",textBox1.text="2","Do",textBox1.text="3","Se")
msgbox(Virus32)

خب حالا ما اینجا هر مقداری رو که کد نویسی کردیم ، مجدد اومدیم و گفتیم که اگر textBox1.text برابر شد با فلان چیز اونموقع فلان چیز رو توی کادر پیام نمایش بده

راستی تا یادم نرفته این نکته رو بگم این توابعی که گفتم یه چیزایی تو مایه های دستورای شرطی یا همون If هستن و اینو خیلی راحت میشه فهمید ، مثلا ما توی تابع Switch گفتیم متن کادر متنی برابر با فلان چیز شد ، فلان چیز رو نشون بده که اینم تو نوع خودش یه دستور شرطیه

موفق باشید