بسم الله الرحمن الرحيم

مقدمة :

في هذا الدرس سوف تتعلم التعامل مع العبارة For…Next لكي تعيد تنفيذ كود معين عدد من المرات و كذا من أجل حساب عدد المرات التي تم تنفيذ الكود فيها.

عند كتابتك لأي برنامج قد تحتاج لأن تعيد أمر معين عدد من المرات، و طبعا ليس من السهل أن تعيد كتابة الأمر يدويا فهذا أمر جد متعب، لنفرض مثلا أنك تريد ان تكتب كود يقوم باظهار سلسلة أرقام في الشاشة، أول خطوة ستقوم بكتابة Method تقوم باستقبال بارامتر و هو الرقم الذي سيتم اظهاره على الشاشة و ستكون ال Method بالشكل التالي :

Sub DisplayNumber(ByVal Number As Integer)

Console.Write(Number)

End Sub

السطر Console.Write(Number) يقوم بكتابة الرقم الممرر الى ال Method في شاشة ال Console.

بعد هذه المرحلة يأتي دور الجملة التكرارية For…Next فلنفرض أننا نريد كتابة سلسلة الأرقام من 0 الى 1000 ما علينا الا كتابة الكود التالي :

For i As Integer = 0 to 1000

DisplayNumber(i)

Next

كما نلاحظ فأولا قمنا بتعريف متغير i داخل الجملة التكرارية و هذا شئ جديد في الدوت نت و لم يكن بالامكان عمله في الفيجوال 6 بعد ذلك أعطينا نقطة البداية و هي 0 ثم النهاية و هي 1000، ثم قمنا باستدعاء ال Method التي أنشأناها مسبقا و مررنا لها المتغير i الذي ستظهره على الشاشة و عند الوصول الى الكلمة Next يتم اضافة 1 الى المتغير i و عندما يصبح المتغير i يساوي 1000 يقوم البرنامج بالخروج من الحلقة التكرارية و ستكون النتيجة الظاهرة على الشاشة كالتالي:

012345678910111213…1000

Comments (1)

	1. Written by Guest on 23-01-2007 13:01 - Guest

Only registered users can write comments.
Please login or register.

Powered by AkoComment Tweaked Special Edition v.1.4.6
AkoComment © Copyright 2004 by Arthur Konze - www.mamboportal.com
All right reserved