شما در انجمن های ما ثبت نام نکرده اید یا هنوز وارد نشده اید . در صورتی که عضو نیستید همین حالا ثبت نام کنید.    
انجمن مذهبی ، فرهنگی و سیاسی نورآسمان

به گروه اسلامی ما در گوگل بپیوندید تا همیشه با هم باشیم


بازگشت   انجمن مذهبی ، فرهنگی و سیاسی نورآسمان > كامپيوتر > برنامه نویسی > Visual Basic


پاسخ
 
LinkBack ابزارهای موضوع جستجو در موضوع نحوه نمایش
قدیمی 12-07-2008, 22:14   #1
مدیرکل انجمنهای نور آسمان
 
vorojax آواتار ها
 
تاریخ عضویت: Jun 2008
محل سکونت: همشهری حضرت عشق
نوشته ها: 6,916
Thanks: 5,987
Thanked 10,673 Times in 3,137 Posts
پیش فرض دستورات مهم 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

امضای vorojax
اللهم عجل لولیک الفرج
لــــطــف الــــهـی بکند کار خویش
مـژده رحـــــمــــــت برساند سروش


vorojax آنلاین نیست.  
Digg this Post!Tweet this Post!Share on FacebookShare on google+
پاسخ با نقل قول
لینک ها
The Following User Says Thank You to vorojax For This Useful Post:
پاسخ

آموزش قرار دادن مطلب ، نظر و فعاليت در نورآسمان

لیست کامل لینک های جالب و مفید لینکدانی نورآسمان


برچسب ها
مهم, دستورات


کاربران در حال دیدن موضوع: 1 نفر (0 عضو و 1 مهمان)
 
کاربران دعوت شده

ابزارهای موضوع جستجو در موضوع
جستجو در موضوع:

جستجوی پیشرفته
نحوه نمایش

مجوز های ارسال و ویرایش
شما نمیتوانید موضوع جدیدی ارسال کنید
شما امکان ارسال پاسخ را ندارید
شما نمیتوانید فایل پیوست در پست خود ضمیمه کنید
شما نمیتوانید پست های خود را ویرایش کنید

BB code هست فعال
شکلک ها فعال است
کد [IMG] فعال است
کد HTML غیر فعال است
Trackbacks are فعال
Pingbacks are فعال
Refbacks are فعال


TwitterFacebookGoogle Plushttp://www.nooreaseman.ir/p/blog-page_6643.htmlRSS Feedتبادل لينك

مسئولیت مطالب و نظرات مندرج در سایت بر عهده شخص ارسال کننده بوده و سایت نورآسمان هیچ گونه مسئولیتی در قبال موضوعات مطرح شده ندارد.
در صورت تمایل با رایانامه سایت به ادرس nooreaseman@chmail.ir تماس حاصل کنید.


اکنون ساعت 07:17 برپایه ساعت جهانی (GMT - گرینویچ) +3.5 می باشد.


Powered by: vBulletin Version 3.8.7
Copyright © 2000-2006 Jelsoft Enterprises Ltd.
Search Engine Friendly URLs by vBSEO 3.5.2

vBFarsi Language Pack Version 4.0 beta1