رستم فیروززاده
تماس با من
پروفایل من
آرشیو وبلاگ
      آموزش زبان ویژوال بیسیک (برنامه نویسی Visual Basic)
حلقه ها در VB 6.0 نویسنده: رستم فیروززاده - سه‌شنبه ٢٦ خرداد ۱۳۸۸

حلقه ها در VB 6.0

 

1)                                      For… Next

2)                                      While… Wend

3)                                      Do Until | While… Loop

 حلقه For

 

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

For   VarName = Start To End [Step Number]

  

'Statement

 

Next [VarName]


حلقه ها در VB 6.0

 

1)                                      For… Next

2)                                      While… Wend

3)                                      Do Until | While… Loop

 حلقه For

 

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

For   VarName = Start To End [Step Number]

  

'Statement

 

Next [VarName]

VarName: نام متغیر

Start: نقطه شروع شمارش که یک عدد می باشد.(این عدد باید کمتر از End  باشد.)

End: نقطه پایان شمارش که یک عدد می باشد.(این عدد باید بیشتر از Start باشد.)

Step: فاصله انداختن میان اعداد در مجموعه عددی ( در هر چرخش به ازای عدد این دستور، عدد به شمارش اضافه می شود.)

Number: تعداد فاصله ای (گام) که میان اعداد این مجموعه ایجاد می شود.

{ مثال : اگر Step برابر 2 باشد مجموعه ای از اعداد زوج خواهیم داشت ؛ اگر شمارش از صفر 0 شروع شود.}

 

استفاده از حلقه For… Next  در برنامه نویسی :

 

می خواهیم در یک پروژه آیتم های یک لیست باکس (ListBox) را وارد لیست باکس دیگر کنیم. برای این کار

به این اشیاء نیاز داریم.

 

کلاس شیء

تعداد

نام شیء

ListBox

2

List1 , List2

CommandButton

1

Command1

ابتدا از طریق خصیصه List  مربوط به List1 ، آیتم هایی را به این شیء اختصاص دهید ...

ما به List1 آیتم هایی بدین ترتیب ونام میدهیم.

1-      IRAN

2-      INDIA

3-      PALESTIN

4-      PAKISTAN

5-      AFGHANISTAN

6-      LIBY

7-      ALJAZAYER

8-      LIBNAN

9-      MALISIA

10-  ARABISQ

سپس بر روی Command1 دوبار کلیک کنید تا وارد قسمت کد با نمای Command1_Click روبرو شوید.

 قرار است با دستور For   تمام آیتم های موجود در List1 را وارد  List2 کنیم.

 بعد از تایپ For یک متغیراز نوع عددی را با علامت تساوی قرار داده ونقطه شروع را تعیین می کنیم . چون می خواهیم تمام آیتم ها وارد شوند از 0 شروع می کنیم. ( شمارش آیتم ها در ListBox  از صفر شروع می شود.)

 بعد از آن دستور To را تایپ کرده و نقطه پایان را تعیین میکنیم . در خصوص نقطه پایان باید بگوییم که این نقطه در مورد این پروژه واضح است ولی در مورد پروژه هایی که واضح نیست چه باید کرد؟

(در بعضی از پروژه ها ما میخواهیم که کاربر آیتمهای لیست را وارد کند و ما از تعداد آیتم ها اطلاعی نداریم )

برای همین هم باید یک کد کامل بنویسیم تا در مورد ارسال آیتم های هیچ لیستی دچار مشکل نشویم.

ما باید نقطه پایان را بر حسب تعداد آیتم های آن جعبه لیست تعیین کنیم، برای این کار بعداز دستور To تایپ میکنیم :    List1.ListCount – 1  (خصیصه ListCount تعداد آیتم ها در یک لیست را به ما ارائه میدهد و به دلیل اینکه شمارش آیتم ها از صفر شروع شده ولی خصیصه ListCount شمارش را از 1 شروع می کند ؛ ما باید یک شمارش از این خصیصه کم کنیم تا حلقه ما درست عمل کند.

بعداز این، کلید Enter  را فشار داده و به لاین بعد میرویم و این دستور را برای ارسال آیتم ها به لیست دوم تایپ میکنیم.

List2.AddItem   List1.List (I)

همانطور که میبینید از خصیصه AddItem از List2 برای اضافه آیتم ها به این لیست استفاده شده. و به جای رشته ای که به لیست باید اضاف شود از خصیصه List از List1 استفاده کرده ایم   که در مقابل آن درون پرانتز کاراکتر I قرار دارد که همان متغیر ماست.(به این متغیر شمارش گر یا شمارنده (Counter)گفته میشود.)

به کد تکمیل شده توجه کنید :

For I = 0 To List1.ListCount – 1

List2.AddItem List1.List (I)

Next I

همانطور که می بینید در پایان،   Next تایپ کرده ایم که بهمراه متغیر آمده . می توان متغیر را یاد آوری نکرد.

( ویژوال بیسیک  خود شمارش را پیگیری می کند.)

*** " برای خروج از حلقه For از دستور Exit For استفاده می شود. " ***

 

حلقه While

 دستور While با کلمه While شروع و با Wend پایان می یابد.

دستور While، حلقه ای می سازد که تا زمان True بودن شرط اجرای دستورات محوله ادامه می یابد و به محض False شدن شرط، حلقه پایان می یابد.

 

شکل کلی دستور :

While شرط یا شروط

 

'Statement

 

Wend

مثال :

While Val (Text1.Text) < 100

   Text1.Text = Val (Text1.Text) + 1

Wend

 

 این دستور اگر عدد درون Text1 کمتر از 100 باشد را تا 100 همراهی می کند درغیر این صورت عدد تغییری نمی کند.

 

حلقه Do… Loop

این دستور توسط شروط ساخته شده از دستور While ویا Until دستورات محوله را انجام می دهد.این دستور با Do شروع و با Loop خاتمه می یابد.

ساختار دستور Do… Loop :

Do [Until | While] شرط        

'Statement

Loop

 

Or

 

Do

'Statement

Loop [Until | While] شرط

همانطور که می بینید این دستور به دو نحو وبه چهار نوع مختلف قابل اعمال می باشد.

بهتر است شرط بهمراه Until  یا While در ابتدای دستور بعداز Do بیاید.

اگر دستور بهمراه Until شرط گذاری شود زمانی که شرط True شود حلقه می ایستد. ولی While  بالعکس عمل می کند یعنی تا زمانی که شرط True است حلقه پویاست. (زمانی که شرط False  شود حلقه می ایستد.)

 

 

 تا بعد..

  نظرات ()
مطالب اخیر کانال تلگرام وبلاگ ایجاد Local Database برای پروژه و بکارگیری آن ( بصورت ویزاردی) Snippet و استفاده آن در VS دانلود نرم افزار Trust Information آشنایی با خصوصیات پروژه Project Properties ایده های شما در حیطه نرم افزار رایانه Object Browser ایجاد پروژه جدید در میحط VS 2008 بکار گیری متغیر ها در VB 9.0 آشنایی با محیط ویژوال استادیو 2008
کلمات کلیدی وبلاگ api (۱) components information (۱) convert functions (۱) create project (۱) download trust information (۱) local database (۱) object browser (۱) select case (۱) snippet (۱) vb 90 (۱) wizard local database (۱) ارایه ها (۱) ارتباط با پایگاه داده (۱) ایجاد پروژه جدید با vb (۱) پایگاه داده (۱) تابع (٢) تابع جعبه پیام (۱) تاریخ (۱) تبدیل نوع داده (۱) تلگرام (۱) توابعمرتبط با رشته (۱) تولید نرم افزار با ایده شما (۱) حلقه ها (۱) دانلود (۱) دانلود نرم افزار trust information (۱) دستور enum (۱) دستور with (۱) رابط کاربری برنامه نویس (۱) ریسورس (۱) زمان (۱) نرم افزار trust information (۱) ویژوال بیسیک 2008 (۱) کانال (۱)
دوستان من تولید نرم افزار از ایده های بکر شما دانلود نرم افزار Snippet Maker 2.0 Download Visual Studio SQL and XML Tutorial Quick Learn ايجاد حساب هاي كاربري براي برنامه نسخه آزمایشی نرم افزار ساخت فایل adm پرسش و پاسخ کانال تلگرام این وبلاگ ارتباط با نویسنده وبلاگ در تلگرام پرتال زیگور طراح قالب