تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
حلقة التكرار Do
#1
كاتب الموضوع : tibo


بسم الله الرحمان الرحيــــــــــــــــــــم

حلقة التكرار 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
}}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Big Grin [مقال] كفية التعامل مع حلقة التكرار For , For Each alims 8 3,450 01-11-15, 11:51 PM
آخر رد: adel27
  حلقة نقاش- السحب والإفلات في بيئة الدوت نيت RaggiTech 0 318 03-10-12, 01:39 PM
آخر رد: RaggiTech
  (الدرس الثالث - الجزء 1 ) = امر التكرار والدوران for ... next مبسط RaggiTech 0 386 01-10-12, 03:11 PM
آخر رد: RaggiTech

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم