تعلم معنا: البرمجة بلغة فيجوال بيسك الحلقة (17)

الرياض@نت خالد بن محمد المسيهيج

أحياناً تحتاج إلى تكرار عملية عدد كبير من المرات، كإعادة تسمية مئات الملفات أو تغيير امتداداتها، أو كتابة عدد كبير من الأعداد، فإن اعتمدت على الطريقة اليدوية التقليدية في الإدخال فإن ذلك سيكلفك الكثير من الجهد والوقت، لكن في عالم البرمجة هناك مخرج من هذه المشكلة . ما هو؟
إنه بناء حلقات التكرار، ومن المعلوم أن هناك تكرارا محدودا وتكرارا غير محدود أو غير منته .. وسنتناول في هذا الدرس حلقات التكرار المنتهية باستخدام For..Next .
مثال :
لو افترضنا أنك ترد أن تصنع برنامجاً يقوم بطباعة قائمة بالدروس التي ألقاها المعلم في أحد الفصول الدراسية ومن ثم قصها واستخدامها كملصقات، بحيث تكتب بطريقة آلية وسريعة، لكن عليه أن يقوم بإدخال العدد المطلوب لهذه الدروس.
التطبيق :
فتح مشروع جديد Project1 متضمناً نافذة جديدة Form1 ثم نضع فيها زرين أحدهما يقوم بتنفيذ البرنامج Command1 ،بينما الثاني للخروج من البرنامج Command2 . ثم نقوم بكتابة شيفرة البرنامج (كما تظهر من الصورة 1).
نلاحظ أننا استخدمنا دالة InputBox وذلك من أجل إتاحة الفرصة للمستخدم لإدخال العدد الذي يريد.
سنبدأ بالتطبيق الآن .. ونشغل البرنامج لتظهر لنا شاشة تطلب منا إدخال عدد الدروس وهي الموضحة بالشكل رقم  2فقمنا بإدخال الرقم  15ثم موافق OK ماذا حدث؟
لقد قام البرنامج بطباعة قائمة بخمسة عشر درساً بشكل مرتب .. أنظر للشكل  3، هذه إحدى الوظائف الكبيرة التي تؤديها جملة الدوران التكراري.
يمكن الحصول على الملفات المصدرية للبرنامج موضوع الشرح من خلال الوصلة التالية :

www.ma3refah.org/km/17.zip