03-10-12, 01:36 PM
كاتب الموضوع : tibo
بسم الله الرحمان الرحيــــــــــــــــــــم
حلقة التكرار Do
تستعمل جملة التكرار Do لعمل حدث ما بعدد معين
يجب أن تصرح عن متحول قبلها لكي تعمل الجملة:
التعليمة :
ربما شرح الجملة غير مفهوم قليلاً . في السطر الأول صرحنا عن متحول عددي
السطر الثاني بداية جملة التكرار
السطر الثالث زيادة قيمة المتحول a في كل حلقة تكرار
السطر الرابع تكتب التعليمة التي تريدها
السطر الخامس هو عدد مرات التكرار وهو سوف يكون قيمة المتحول a مثلاً :a<6 أو a=5
لذلك سوف يتم عمل التعليمة التي كتبتها 5 مرات ولهذا السبب قلنا عليك التصريح عن متحول لأنه دون ذلك سوف تكرر التعليمة إلى مالانهاية.
سوف نعمل مثال للتعرف أكثر على الجملة:
أضف فورم وزر أمر Command أكتب الشيفرة التالية:
بسم الله الرحمان الرحيــــــــــــــــــــم
حلقة التكرار Do
تستعمل جملة التكرار Do لعمل حدث ما بعدد معين
يجب أن تصرح عن متحول قبلها لكي تعمل الجملة:
كود :
[color=blue][FONT=Courier New]Dim [/FONT][/color][FONT=Courier New]a [/FONT][FONT=Courier New][color=blue]As Intege[/color][/FONT][FONT=Courier New][color=blue]r [/color][/FONT]
[FONT=Courier New]Do [/FONT]
[FONT=Courier New]a=a+1[/FONT]
كود :
[FONT=Courier New]Loob Until (a Value)
[/FONT]
السطر الثاني بداية جملة التكرار
السطر الثالث زيادة قيمة المتحول a في كل حلقة تكرار
السطر الرابع تكتب التعليمة التي تريدها
السطر الخامس هو عدد مرات التكرار وهو سوف يكون قيمة المتحول a مثلاً :a<6 أو a=5
لذلك سوف يتم عمل التعليمة التي كتبتها 5 مرات ولهذا السبب قلنا عليك التصريح عن متحول لأنه دون ذلك سوف تكرر التعليمة إلى مالانهاية.
سوف نعمل مثال للتعرف أكثر على الجملة:
أضف فورم وزر أمر Command أكتب الشيفرة التالية:
كود :
[color=blue]Dim [/color]a [color=blue]As Intege[/color][color=blue]r [/color]
Do
a = a + 1
MsgBox a
[color=blue]Print [/color]a
Loop Until (a = 9)
تكررا الحدث 9 مرات كما في السطر الأخير a=9
ارجو ان يكون الشرح واضح تحياتي لكم
Tibo
Tibo