انجمن کدستانMoisrex

آشنایی با حلقه های تکرار

فرض کنید می خواهیم در ویژوال بیسیک برنامه ای بنویسیم که اعداد ۱ تا ۵ را روی فرم چاپ کند , شاید فکر کنید که به سادگی و با استفاده از دستور Print می توان این کار را انجام داد و فقط باید بنویسیم :

جهت چاپ اعداد روم فرم باید آن را در روال Form_Activate بنویسیم :

Print 1

Print 2

Print 3

Print 4

Print 5

برنامه بالا درست است که اعداد ۱ تا ۵ را زیر هم روی فرم چاپ می کند اما واقعاً این دستور منطقی است؟ اگر می خواستید برنامه ای بنویسید که اعداد ۱ تا ۱۰۰ را روی فرم چاپ کند آیا باز هم حوصله می کردید و صد تا دستور Print می نوشتید؟ کاملاً مشخص است که راه حل فوق برای حل این مسئله منطقی نیست. ویژوال بیسیک برای حل این مشکل از حلقه های تکرار استفاده می کند. با استفاده از حلقه های تکرار به راحتی می توانیم اعداد ا تا ۵ را تنها با چند خط کد نویسی چاپ کنیم.

حلقه تکرار For … Next :

روش استفاده را با یک مثال شرح می دهم :

For a = 1 To 5

Print a

Next a

بعد از For ما نامی را برای شمارنده در نظر می گیریم . سپس علامت مساوی را قرار می دهیم و تعداد دفعات تکرار را تعریف می کنیم. در خط دوم شمارنده را پرینت میکنیم و خط سوم بدین مفهوم است که حلقه شمارنده مجدداً با مقدار جدید به اول باز می گردد و عملیات مربوطه را تکرار می کند. این حلقه ۵ بار تکرار می شود و در پایان اعداد ۱ تا ۵ را پشت سر هم و روی فرم چاپ می کند.

نکات قابل توجه :

· حلقه های تکرار می تواند گام کاهشی و افزایشی هم داشته باشد که با Step آن را مشخص می کنیم.

· جهت چاپ اعداد روم فرم باید آن را در روال Form_Activate بنویسیم یا خاصیت AutoRedraw در پنجره خصوصیات Form_Load برابر Ture قرار دهیم.

· حلقه تکرار می تواند از هر عددی شروع شود و به هر عددی ختم شود.

· بهتر است شمارنده را همیشه با یک حرف انگلیسی نام گذاری کنیم تا دچار سردرگمی نشویم.

قطعه برنامه زیر اعداد ۱ تا ۵ را روی فرم و زیر هم چاپ می کند :

For i = 5 To 1 Step – 1

Print i

Next i

سوالات خود را در پ.خ مطرح نمائید. مطمئن باشید بی پاسخ نمی ماند . تشکر یادتون نره !