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

حلقة التكرار 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 أبسط وأسهل ستجدها بنفس القسم مشروحه. والله ولي التوفيق تاريخ الإضافة : 20/3/2008 زيارات الصفحة : 48 رابط ذو صلة : http://www.nwahy.com كاتب الموضوع : موقع نواحي

استايل نواحياستايل افتراضي