برنامه نويسي ويژوال بيسيك در اكسل
درس ششم: عبارات شرطي (Conditional Statements)
يه TextBox و يه CommandButton بكشيد. حالا فرض كنيد ميخوايم در رويداد CommandButton1_Click دستوري بنويسيم كه:
«اگر TextBox1 خالي بود» آنگاه «پيغام Invalid Data بدهد» در غير اين صورت «محتواي TB1 را به خانه A1 انتقال دهد».
همونطور كه مي بينيد هر عبارت شرطي از سه قسمت زير تشكيل شده:
1- اگر... (تست منطقي) (Logical Test)
2- آنگاه... (بخش مثبت) (TruePart)
3- در غير اين صورت ... (بخش منفي) (FalsePart)
كه توي برنامه نويسي، عبارت شرطي بالا رو به اين صورت مي نويسيم:
(تذكر: براي نمايش پيغام خطا بايد از دستور MsgBox استفاده كنيم)
کد:
برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
خوب!
حالا اين دستور رو توي رويدادي كه گفتم بگذاريد و ببينيد درست كار مي كنه يا نه؟
اگه درست كار مي كرد، به سوال زير جواب بديد:
برنامه اي بنويسيد كه
«اگر در TB1 عبارت Ali نوشته شده بود» آنگاه «پيغام Invalid Data بدهد» در غير اين صورت «محتواي TB1 را به خانه A2 منتقل كند».
بسيار خوب!
حالا كي مي تونه اين سوال رو جواب بده؟
برنامه اي بنويسيد كه
«اگر مقدار عددي TB1 بزرگتر از 20 بود» آنگاه «پيغام Invalid Data بدهد» در غير اين صورت «مقدار عددي TB1 را در خانه A3 بنويسد»
راهنمايي: براي به دست آوردن مقدار عددي يك TB بايد از دستور ( Val(TextBox1.Text استفاده كنيم.