موضوع: دستورات مهم vb

عملگرهای شرطی: = ، > ، < ، =< ، => ، < > . پاسخ این عملگر ها یا True است یا False.

بوسیله کلمات زیر می توانید عبارت شرطی زیر را با هم ترکیب کنید.

And: هر دو طرف باید درست باشد تا پاسخ True شود.

Or: اگر یکی از طرف های شرط درست باشد پاسخ True می شود.

Xor: فقط یک طرف باید درست باشد نه دو طرف تا پاسخ True شود.

Not: True را تبدیل به False و False را به True تبدیل می کند.

ترتیب اجرای این کلمات در موقع اجرا به این ترتیب است:1-Not 2-And 3- Or 4- Xor

مثال:

(3<5) And (6>2) => True

(6>4) Or (4<2) => True

دستور If: شکل کلی آن به صورت زیر است:

If (شرایط) Then

دستورات

Else

دستورات

End If

در شرایط می توان از عملگرهای ترکیبی استفاده کرد.(And ، Or،...)

اگر پاسخ شرط True باشد دستورات بین Then و Else اجرا می شود واگرنه دستورات بین Else و End If اجرا می شود. چندین شرط نیز می تواند در دل همدیگر نوشته شود.

دستور Select Case: یک نوع If است که یک متغییر را مورد بررسی قرار می دهد. شکل کلی آن به صورت زیر است:

Select Case نام متغییر

Case عبارت

دستورات

[Case عبارت]

[دستورات]

Case Else

End Select

مثال:

Select Case strText

Case “A”

lblName.Caption = “Ali”

Case “M”

lblName.Caption = “Mohammad”

Case Else

lblName.Caption = “Hossein”

End Select

اگر مقرار متغییر StrText A باشد در برچسب Ali نوشته می شود و اگر M باشد Mohammad نوشته می شود و در غیر این صورت Hossein نوشته می شود.

Select Case intGrade

Case Is >= 90

lblCondition.Caption=”Very Good”

Case Is >= 50

Condition.Caption=”Good”

Case Else

Condition.Caption=”Bad”

End Select



Select Case intGrade

Case 90 To 100

lblCondition.Caption=”Very Good”

Case 50 T0 90

Condition.Caption=”Good”

Case Else

Condition.Caption=”Bad”

End Select



Case 101,102 To 110, Is>300

در مورد خط بالا اگر مقدار متغییر 101 یا 102 تا 110 یا بزرگتر از 300 باشد دستورات زیر آن اجرا می شود.

حلقه : گاهی لازم می شود که یکسری از دستورات به تعداد خاصی اجرا شود. برای مثال گرفتن یک رمز از کاربر تا زمانی که رمز درست را وارد کند. در Basic حلقه های مختلفی داریم که آن ها را بررسی می کنیم.

حلقه Do: شکل کلی آن به صورت زیر است:

Do While یا Until شرط

دستورات

Loop

یا:

Do

دستورات

Loop While یا Until شرط

فرق این دو شکل در آن است که در شکل دوم حداقل یک بار دستورات اجرا می شود. اگر قبل از شرط While باشد تا زمانی که پاسخ شرط True باشد حلقه تکرار می شود. و اگر Until باشد تا زمانی که جواب شرط False است حلقه اجرا می شود.

مثل:

Dim I as Integer

I = 1

Do

Label1.Caption = I

I = I+1

Loop Until I=10

این حلقه تا زمانی که I مساوی 10 شود حلقه اجرا می شود.

حلقه For: شکل کلی آن به صورت زیر است:

For متغییر = حد آغاز To حد پایان Step عدد

دستورات

Next متغییر

متغییر ذکر شده متغییر عددی است. وقتی دستورات به حلقه می رسد متغییر به حد آغاز ست می شود. بعد دستورات اجرا می شود تا به Next می رسد. در این لحظه متغییر با حد پایان مقایسه می شود. اگر از حد پایانی کوچکتر یا مساوی بود حلقه ادامه می یابد . در این لحظه یکی به متغییر افزوده می شود. این رون ادامه می یابد تا متغییر از حد پایانی بیشتر شود.

اگر بخواهیم که به متغییر به تعداد دخواه افزوده شود بعد از حد پایان Step را می نویسیم . اگر Step را ننویسیم به طور پیش فرض به متغییر یکی یکی افزوده می شود.

مثال:

For I = 1 To 10 Step 2

Label1.Caption = I

Next I

این نکته مهم است که حلقه For نیز می تواند تو در تو باشد.

اگر بخواهید تحت شرایطی از حلقه خارج شوید از این دستور استفاده کنید:

Exit For یا Do