حلقة التكرار Do {الجمعة 28 أكتوبر - 21:45}

تستعمل جملة التكرار Do لعمل حدث ما بعدد معين .



يجب أن تصرح عن متحول قبلها لكي تعمل الجملة:

Dim a As Integer Do a=a+1 التعليمة Loob Until (a Value)

ربما شرح الجملة غير مفهوم قليلاً . في السطر الأول صرحنا عن متحول عددي



السطر الثاني بداية جملة التكرار



السطر الثالث زيادة قيمة المتحول a في كل حلقة تكرار



السطر الرابع تكتب التعليمة التي تريدها



السطر الخامس هو عدد مرات التكرار وهو سوف يكون قيمة المتحول a مثلاً :a<6 أو a=5



لذلك سوف يتم عمل التعليمة التي كتبتها 5 مرات ولهذا السبب قلنا عليك التصريح عن
متحول لأنه دون ذلك سوف تكرر التعليمة إلى مالانهاية.





سوف نعمل مثال للتعرف أكثر على الجملة:





أضف فورم وزر أمر Command أكتب الشيفرة التالية:

Dim a As Integer Do a = a + 1 MsgBox a Print a Loop Until (a = 9)

تكررا الحدث 9 مرات كما في السطر الأخير
a=9





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



والله ولي التوفيق