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

عسول · رقم المشاركة : 1 09-18-2008, 01:21 PM

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

تستعمل جملة التكرار 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 أبسط وأسهل ستجدها بنفس القسم مشروحه.

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

أدوات الدرس	إبحث في الدرس
مشاهدة صفحة طباعة الدرس أرسل هذا الدرس إلى صديق	إبحث في الدرس: البحث المتقدم
انواع عرض الدرس
العرض العادي الانتقال إلى العرض المتطور الانتقال إلى العرض الشجري