حلقة التكرار 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 أبسط وأسهل ستجدها بنفس القسم مشروحه.
والله ولي التوفيق
|
اضف مقالك
اضف في الكتب
اضف في القصائد
اضف في البرامج
اضف في دليل المواقع
اضف في الصور
: 76 |
: 0 |
: 17
في شريط الأدوات أو من قائمة Tools إختر Menu Edior فيظهر لك محرر القوائم
يستعمل الكائن OEL لإدارج تطبيق في برنامجك كإدراج صورة نقطية يمكنك التحرير والرسم فيها من داخل برنامجك عن طريق دمج الرسام معه.
تستخدم أداة التوقيت Timer لعمل حدث بعد وقت معين أو لتكرار الحدث طول التكرار
المتواجدون الان
الاعضاء 
الزوار 
