حلقة التكرار For مشابهة تقريباً للحلقة السابقة Do
تستعمل لتكرار عمل معين بعدد محدد.
الشكل العام للتعليمة:
ملاحظة :(a) مجرد وسيط يمكنك تغيره مثال سريع للجملة البسيطة :
في المثال السابق حددنا القيمة الأولى وهي 0 أي قيمة a ثم حددنا القيمة الثانية وهي 5 . لذلك سوف يتم عرض الرسالة بقيمة a أي خمس مرات. ودائما تنتهي جملة التكرار ب : Next ملاحظة: لجملة التكرار For نوعان النوع السابق هو الجملة البسيطة. والآن نأتي إلى الجملة المركبة: الجملة المركبة تحوي الحلقة الداخلية والحلقة الخارجية . أي حلقة For داخل حلقة For
مثال سريع للجملة المركبة:
مثال آخر للجملة For ضع الكود التالي في أداة التوقيت Timerولاتنسى خاصية Interval=100
ومن هذا نجد أن حلقة التكرار For هي أبسط وأسهل من جملة التكرار السابقة Do وأي برنامج بسيط يحتاج لأي جملة إما شرطية أو حلقة تكرار. وبهذا نكون قد إنتهينا من الجمل وحلقات التكرار . أرجو أن أكون قد حققت الفائدة.
وبالتوفيق للجميع
For a= القيمة الأولى To القيمة الثانية
الحدث (التعليمة)
Next
ملاحظة :(a) مجرد وسيط يمكنك تغيره مثال سريع للجملة البسيطة :
For a = 0 To 5
MsgBox \'مثال\', vbMsgBoxRight, a
Next
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 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 وأي برنامج بسيط يحتاج لأي جملة إما شرطية أو حلقة تكرار. وبهذا نكون قد إنتهينا من الجمل وحلقات التكرار . أرجو أن أكون قد حققت الفائدة.
وبالتوفيق للجميع
