المدير العام أ.نهاد أبومطر
عدد المساهمات : 58 تاريخ التسجيل : 23/09/2009
| موضوع: حلقة التكرار For الثلاثاء ديسمبر 29, 2009 11:34 pm | |
| حلقة التكرار For حلقة التكرار For مشابهة تقريباًللحلقة السابقة Doتستعمل لتكرار عمل معين بعدد محدد. الشكل العام للتعليمة:For a= القيمة الأولى To القيمةالثانيةالحدث (التعليمة)Nextملاحظة( a) مجرد وسيط يمكنك تغيره مثال سريعللجملة البسيطة : For a = 0 To 5 MsgBox "مثال", vbMsgBoxRight, a Next |
في المثال السابق حددناالقيمة الأولى وهي 0 أي قيمة aثم حددنا القيمة الثانيةوهي 5 .لذلك سوف يتم عرض الرسالةبقيمة a أي خمس مرات. ودائما تنتهي جملة التكرار ب: Next ملاحظة: لجملة التكرار For نوعان النوع السابق هو الجملة البسيطة. والآن نأتي إلىالجملة المركبة:الجملة المركبة تحويالحلقة الداخلية والحلقة الخارجية . أي حلقة For داخل حلقة Forمثال سريعللجملة المركبة: For s = 0 To 1
'بداية الحلقة الداخليةFor a = 0 To 2 Print "s="; s, "a="; a Next 'نهاية الحلقةالداخلية Print "" Next |
مثال آخرللجملة For ضع الكود التالي في أداة التوقيت Timerولاتنسى خاصية Interval=100
Dim h Dim w h = Me.Height / 2 w = Me.Width / 2 For i = 1 To w Me.Circle (h, w), i, RGB(Rnd * 100, Rnd * 200, Rnd * 90) Next |
ومن هذانجد أن حلقة التكرار For هي أبسط وأسهل من جملة التكرارالسابقة Do وأي برنامج بسيط يحتاج لأي جملة إما شرطية أوحلقة تكرار.وبهذا نكونقد إنتهينا من الجمل وحلقات التكرار . أرجو أن أكون قد حققتالفائدة. | |
|