این قسمت رو هم حال نداشتم PDF کنم و هم خیلی ها با دانلود نرم افزار Adobe Reader مشکل دارند
==================================================
قسمت سوم آموزش پاوربیسیک : ساختارهای شرطی قسمت اول
==================================================
دستور IF :
این دستور در شکل های گوناگون به کار برده می شود:
1-IF بدون End IF :
فرمول :
کد:
If شرط Then کدهای صحیح Else کدهای غلط
که شرط می تواند مقایسه 2 عدد یا رشته یا ... باشد
کدهای صحیح کدهایی هستند که در صورت درست بودن شرط اجرا خواهند شد
کدهای غلط کدهایی هستند که در صورت غلط بودن شرط اجرا می شوند
که قسمت کدهای صحیح به بعد اختیاری است و می تواند نباشد :
کد:
If شرط Then کدهای صحیح
مثال :
کد:
x%=10
y%=15
IF x%<y% Then y%=0 Else x%=0
دو خط اول تعریف و مقدار دهی به دو متغیر است=مراجعه شود به قسمت اول آموزش داده ها
خط سوم چک می کند که اگر x از y کوچکتر بود y را مساوی با 0 کند وگرنه x را برابر با 0 می کند
که شرط درست است و y برابر با 0 می شود
2-If با End If :
فرمول :
کد:
If شرط Then
کدهایی که در صورت درست بودن شرط اجرا می شوند
Else
کدهایی که در صورت غلط بودن شرط اجرا می شوند
End If
می بینید که مشابه نوع قبلی است اما در خط های جداگانه به اضافه End If
باز هم Else اختیاری است :
کد:
If شرط Then
کدهایی که در صورت درست بودن شرط اجرا می شوند
End If
در این نوع اگر شرط درست بود دستورات اجرا وگرنه هیچ اتفاقی نمی افتد اما اگر Else در شرط باشد
در صورت غلط بودن شرط دستورات بعد از آن اجرا می شود
مثال :
کد:
Dim x,y as Integer
x=10
y=15
If x%>y% Then
y=0
Else
x=0
End If
در این مثال شرط غلط است زیرا x از y کوچکتر است پس دستورات پس از Else اجرا می شود
3-If متداخل یا تودرتو :
در این نوع می توان شرطهای مختلفی را چک و تصمیم گیری کرد که توصیه می کنم از Select Case که در
قسمت بعد یاد می دهم استفاده کنید
فرمول :
کد:
If شرط اول Then
کدهایی که در صورت درست بودن شرط اول اجرا می شوند
ElseIf شرط دوم Then
کدهایی که در صورت درست بودن شرط دوم اجرا می شوند
ElseIf شرط سوم Then
کدهایی که در صورت درست بودن شرط سوم اجرا می شوند
.
.
.
ElseIf شرط آخر Then
کدهایی که در صورت درست بودن شرط آخر اجرا می شوند
Else
کدهایی که در صورت غلط بودن تمامی شرط ها اجرا می شوند
End If
تذکر :
نقل قول: اگر بیشتر از یک شرط در این نوع درست باشد اولین شرطی که برنامه به آن برسد اجرا خواهد شد
در صورتی که هیچ یک از شرط ها اجرا نشود دستورات بعد از Else اجرا خواهد شد
بازهم Else اختیاری است
مثال :
کد:
Dim x%
Dim y%
x%=10
y%=15
If x%=y% Then
x%=0
ElseIf x%>y% Then
x%=1
ElseIf x%<y% Then
y%=1
ElseIf x%>=y% Then
x%=2
ElseIf x%<=y% Then
y%=2
Else
x%=10
y%=10
End If
دیگه اینم توضیح نمی خواد چون تمام دستوراتی را که استفاده کرددم در مقالات قبلی شرح دادم
===================================================
دستور IIF
نقل قول: این دستور دقیقا کار IF و Else را انجام می دهد
فرمول :
کد:
متغیر=IIf(مقدار غلط,مقدار صحیح,شرط)
شرط در اینجا نیز می تواند یک مقایسه عددی یا ... باشد
در صورتی که شرط درست باشد مقدار صحیح در متغیر قرار می گیرد
و در غیر این صورت مقدار غلط در متغیر قرار می گیرد
نقل قول: این دستور دقیقا مشابه دستور ? در ++C می باشد
مثال :
کد:
Dim x,y,z as Integer
x=10
y=15
z=IIf(x<y,10,15)
در اینجا چک می کند که اگر x از y بزرگتر است 10 را در z قرار ده وگرنه 15 در z قرار می گیرد
که شرط درست است و z برابر با 10 می شود