في VB.NET، لكل حلقة يتم استخدامه لتكرار كتلة من البيانات في مجموعة أو كائنات المجموعة. باستخدام For Each Loop، يمكننا العمل بسهولة مع كائنات المجموعة مثل القوائم والمصفوفات وما إلى ذلك، لتنفيذ كل عنصر من عناصر المصفوفة أو في المجموعة. وعند اكتمال التكرار خلال كل عنصر في المصفوفة أو المجموعة، يتم نقل التحكم إلى العبارة التالية لإنهاء الحلقة.

بناء الجملة:

جافا كائن المساواة

 For Each var_name As [ DataType ] In Collection_Object [ Statements to be executed] Next 

لكل حلقة يستخدم لقراءة كل عنصر من كائن المجموعة أو المصفوفة. ال نوع البيانات يمثل نوع المتغير، و var_name هو اسم المتغير للوصول إلى العناصر من مجموعة مصفوفة أو كائن جمع بحيث يمكن استخدامه في نص لكل حلقة.

مخطط انسيابي لكل حلقة

يمثل المخطط الانسيابي التالي وظيفة For Each Next للتكرار عبر عناصر المصفوفة في لغة برمجة VB.NET .

الخطوة الأولى هي تهيئة مجموعة مصفوفة أو كائن مجموعة لتنفيذ كل عنصر من عناصر المصفوفة بمساعدة المتغيرات في لكل حلقة. يتم استخدام متغير في For Each حلقة للتحقق مما إذا كان عنصر متاح أم لا. إذا كان العنصر متاحًا في كائن المجموعة، فسيتم تنفيذ الكتلة لكل كتلة حتى حالة يبقى صحيحا. بعد تنفيذ كل عنصر من عناصر المصفوفة، ينتقل عنصر التحكم إلى العبارة النهائية.

أمثلة لكل حلقة

اكتب برنامجًا بسيطًا لفهم استخدامات حلقة For Each Next في VB.NET.

For_Each_loop.vb

الفرق بين الجيجابايت والميجابايت

 Imports System Module For_Each_loop Sub Main() 'declare and initialize an array as integer Dim An_array() As Integer = {1, 2, 3, 4, 5} Dim i As Integer 'Declare i as Integer For Each i In An_array Console.WriteLine(' Value of i is {0}', i) Next Console.WriteLine('Press any key to exit...') Console.ReadLine() End Sub End Module 

انتاج:

أنت لصق

في المثال أعلاه، قمنا بإنشاء مصفوفة أعداد صحيحة بالاسم مجموعة () ، ويتم استخدام For Each حلقة لتكرار كل عنصر من عناصر المصفوفة بمساعدة المحدد المتغير 'أنا' .

مثال 2: اكتب برنامجًا بسيطًا لطباعة أسماء الفاكهة باستخدام For Each Loop في VB.NET.

For_each.vb

 Imports System Module For_each Sub Main() 'Define a String array Dim str() As String 'Initialize all element of str() array str = {'Apple', 'Orange', 'Mango', 'PineApple', 'Grapes', 'Banana'} Console.WriteLine('Fruit names are') 'Declare variable name as fruit For Each fruit As String In str Console.WriteLine(fruit) Next Console.WriteLine(' Press any key to exit...') Console.ReadKey() End Sub End Module 

انتاج:

في هذا المثال، شارع () عبارة عن مصفوفة من نوع السلسلة تحدد أسماء الفواكه المختلفة. و فاكهة هو اسم المتغير الذي يتم استخدامه لتكرار كل عنصر من العناصر شارع () مصفوفة باستخدام لكل حلقة في البرنامج. إذا تمت قراءة كافة العناصر، ينتقل التحكم إلى رئيسي() وظيفة إنهاء البرنامج.