الحلقات التكرارية -For … Next

الحلقات التكرارية

For … Next

من ابسط انواع الحلقات التكرارية و تستخدم لتكرار تنفيذ كود ما لعدد معين من المرات و الشكل العام كالتالى

For متغير العد = 0 to n step 1

Code

Next

مثال :

For I as integer = 1 to 10

Listbox1.items.add (i)

Next

عند تنفيذ هذا المثال فان البرنامج سوف يعبىء List box بالارقام من 1 الى 10

التكرار المعكوس و التحكم فى عدد التكرارات

لو اردنا تعبئة List box بالارقام من 10 الى 1 لكتبنا الكود بالشكل التالى

For I as integer = 10 to 1 step -1

Listbox1.items.add (i)

Next

عند التنفيذ سوف يقوم البرنامج بالتعبئة تنازليا من 10 الى 1 نتيجة لاننا حددنا اتجاه التكرار بالسالب (متناقص)

الخروج من التكرار

يمكن ايقاف التكرار اذا توافر شرط معين باستخدام Exit for

For i As Integer = 0 To 5

x = x + 1

lst.Items.Add(x)

If x = 6 Then

Exit For

End If

Next

فى السطر الرابع ادخلنا شرط للتكرار اذا كانت قيمة x = 6 فلن يتم متابعة التكرار

تجاوز حلقة واحده من التكرار بـ Continue for

x = txt.Text

For i As Integer = 0 To 5

x = x + 1

If x = 6 Then Continue For

End If

lst.Items.Add(x)

Next

يقوم الكود السابق بتعبئة Listbox بقيم متغير بتكرار من الصفر الى الرقم 5 كما يظهر فى السطر الاول

فى السطر الرابع ادخلنا شرط للتكرار اذا كانت قيمة x = 6 فلن يتم تنفيذ كود التكرار لهذه القيمة

المراجع :

Visual basic.Net اساسيات البرمجة م – محمد عبد الكريم

Visual Basic .NET for Dummies by : Wales Wang

المثال التالى يوضح تكرارت For.. Next

لتحميل المثال اضغط هنا

Password : vb2009