الحلقات التكرارية loops في الفيجول بيسك دوت نت

السلام عليكم ورحمة الله وبركاته عزيزي المبرمج اليوم درسنا  عن الحلقات او الدوال التكراريه .

الحلقات التكرارية Repetition or Looping Function

الحلقة التكرارية ( Looping ) هي عملية التكرار والاستمرار في تنفيذ مجموعة من الجمل البرمجية طالما بقي الشرط محققا أو حتى يتحقق الشرط أو لعدد يحدده المستخدم من المرات 

 أنواع الحلقات التكرارية loops 

: While-End .While، Do-Loop، For

الحلقة while - end while

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

القاعدة المتبعة في الحلقة while - end while

  “شرط تكرار الحلقة "
  While (Condition) 
  Statement1  
  Statement2 الاجراءت بعد تحقق شرط
  Statement(s)
  End While    انهاء التكرار

  

مثال تطبيقي في الحلقة while - end while

تنفيذ برنامج يقوم بإظهار رسالة خمس مرات للمستخدم ويكتب فيها ترتيب التكرار. وشرط تكرار هذه الحلقة أن تكون قيمة ال counter أصغر من 6 وعندما تصبح قيمته 6 سيخرج البرنامج من الحلقة ويتوقف عن التكرار. وعند تنفيذ الحلقة في كل مرة يتم طباعة رسالة تحتوي على قيمة ال .counter

يتم كتابة الكود التالي عند النقر المزدوج على أداة الزر : Button

  Private Sub Button1_Click(ByVal sender As System.Object, ByVal 
  e As System.EventArgs) Handles Button1.Click 

  Dim counter As Integer 
  counter = TextBox1.Text 
  counter = 0 
  While (counter < 6( 
  MessageBox.Show(counter( 
  counter = counter + 1 
  End While 
  End Sub

شاهد بالصور كيف تم انشاء تطبيق على الحلقة  الاولى

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

الدالة For Loop تقوم بتنفيذ تكرار الكود أو الجملة البرمجية المحصورة بين العدد أو القيمة الأولى (الابتدائية) من أعداد التكرار والقيمة النهائية التي تتوقف عندها حلقة التكرار.

القاعدة المتبعة في الحلقة التكرارية : For … Next

  For [variable] = Start To End 
  Statement1 
  Statement2 
  … 
  Next [Variable[ 

مثال تطبيقي على الحلقة التكرارية : For … Next 

تحليل التطبيق: تصميم برنامج يقوم بتنفيذ الحلقة التكرارية للمتغير (a )بين القيمة الأولى (0)وتتزايد إلى أن تصل إلى القيمة النهائية ) (10) التي تتوقف عندها الحلقة التكرارية مع إظهار أعداد التكرار في كلا من مربع النص TextBox1 ورسالة MessageBox في نفس الوقت .   

يتم كتابة الكود التالي عند النقر المزدوج على أداة الزر button1

  : Loop 
  Private Sub Button1_Click(ByVal sender As System.Object, By- 
  Val e As System.EventArgs) Handles Button1.Click

  Dim a As Integer = 0 
  "بداية الحلقة التكرارية من العدد 0 إلى 
  العدد النهائي 10 الذي يتوقف عنده التكرار" 
  For a = 0 To 10 
  TextBox1.Text = a 
  MessageBox.Show("The value of a is:" & a( 
  Next a 
  End Sub
  

ملاحظه عند الضغط على تنفيذ البرنامج يظهر لك البرنامج وعند ضغط على زر button تظهر لك نافذه اضغط عليها 10 مرات بمعنئ تم تنفيذ حلقه تكرار 10 مرات كما هوه موضح بالصور 

الحلقة  التكرارية : Do … Loop

تستخدم هذه الدالة في الاستمرار في تكرار تنفيذ الكود المرفق لها وبالتالي على المبرمج وضع الشرط الذي يؤدي إلى إيقافها ضمن الكود المرفق باستخدام Exit Do التي تخرج من الحلقة التكرارية وليس من الإجراء كله. ولهذه الدالة أنواع منها : . Do-While-Loop، Do-Until-Loop

القاعدة المتبعة في الحلقة  التكرارية : Do … Loop

  Do 
  Statement(s)
  Exit Do 
  Statement(s)
  Loop 
  

مثال تطبيقي على الحلقة  التكرارية : Do … Loop

تحليل التطبيق: يقوم هذا التطبيق بتكرار كود معين عند تشغيله حيث يدخل في حلقة تكرارية بإظهار قيمة العداد (counter) في رسالة Message box حتى تصبح قيمته وبعدها يخرج من الحلقة التكرارية فقط بسبب وجود الأمر البرمجي Exit Do ثم يتم تنفيذ الإجراء الذي يلي الحلقة التكرارية وهو ظهور رسالة MessageBox ( The loop Ended) 

 يتم كتابة الكود التالي عند النقر المزدوج على الزر : Button1

  Private Sub Button1_Click(ByVal sender As System.Object, ByVal 
  e As System.EventArgs) Handles Button1.Click 

  Dim counter As Integer 
  counter = 0 
  Do 
  If counter = 3 Then 
  Exit Do 
  MsgBox("The loop Ended“) 
  End If 
  MsgBox(counter) 
  counter = counter + 1 
  Loop 
  MsgBox("The loop Ended“)
  End Sub
  

لاحظ الصور

الحلقة  التكرارية Do - While -Loop

في هذه الدالة يقوم البرنامج بتكرار الكود المرفق له طالما بقي الشرط محققا على يمين While وعند عدم تحققه فإن البرنامج يخرج من الحلقة التكرارية أي بعكس عمل الدالة .Do-Until-Loop

القاعدة المتبعة في الحلقة  التكرارية Do - While -Loop

  Do While 
  Statement1 
  Statement2 
  Statement(s)
  Loop 
  

مثال يجمع بين الدالة التكرارية Do-While-loop و Exit-Do

تحليل البرنامج: تنفيذ برنامج يقوم بإظهار رسالة Messagebox 5مرات بشكل تكراري ويوجد بها الاسم المدخل عند إدخال أي اسم في مربع النص TextBox1 وإيقاف التكرار أو الحلقة التكرارية بإظهار رسالة أخرى تحتوي على كلمة " End " من خلال الأمر البرمجي : Exit Do 

 يتم كتابة الكود التالي عند النقر المزدوج على الزر : Button1

  Private Sub Button1_Click(ByVal sender As System.Object, ByVal 
  e As System.EventArgs) Handles Button1.Click 

  "هذا المتغير يستخدم في عداد التكرار"
  Dim i As Integer = 1 
  "المتغير الذي يتم إدخاله في مربع النص كاسم"
  Dim a As String 
  a = TextBox1.Text 
  Do While i <= 5 
  “شرط تكرار الحلقة وهو إظهار رسالة بالاسم المدخل 5 مرات فقط“ 

  MessageBox.Show("The name is:" & a)
  If a = "End" Then 
  "إنهاء الحلقة التكرارية بإظهار رسالة Exit Do
  End If 
  TextBox1.Text = a 
  "إكمال الإجراء عند إدخال اسم في مربع النص وإظهار 5 رسائل بالتزايد" 
  i = i + 1 
  “الخروج من الإجراء كله” 
  Loop 

  End Sub
  

لاحظ الصور

الحلقة التكرارية Do - Until - loop

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

القاعدة المتبعة في الحلقة التكرارية Do - Until - loop

Do Until (condition) 
Statement1 
Statement 2 
… 
Loop 

مثال تطبيقي على الحلقة التكرارية Do - Until - loop

تحليل التطبيق: يقوم هذا التطبيق بالاستمرار في تكرار ظهور مربع الإدخال Input Box لكتابة الاسم الصحيح فيه في حالة عدم تحقق الشرط بكتابة كلمة خاطئة أو التكرار حتى يتحقق الشرط وذلك بإدخال الكلمة الصحيحة في صندوق الإدخال وهي " ."Abcd 

 يتم كتابة الكود التالي من خلال النقر المزدوج على الزر button1

  


  Private Sub Button1_Click(ByVal sender As System.Object, By- 
  Val e As System.EventArgs) Handles Button1.Click

  Dim x As String = "Abcd“ 
  Do 
  x = InputBox("Please, Enter Correct Name“)
  Loop Until x = "Abcd” 
  End Sub
  

لاحظ الصور

تعديل المقال