Nwahy Articles V3 pro

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

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

القسم فيجوال بيسك - الزيارات 8460 - التاريخ 20/3/2008
تستعمل جملة التكرار 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 أبسط وأسهل ستجدها بنفس القسم مشروحه.

والله ولي التوفيق
مشاركة الموضوع
Facebook Twitter Google+ Pinterest Reddit StumbleUpon Linkedin Tumblr Google Bookmarks Email
كن أول من يقيم الموضوع
12345

أضف تعليقك على الموضوع