حلقة For التكرارية في فيجوال بيسك

مواضيع ذات صلة

كتبه: karwanpro / بتاريخ: 2013-07-26 , هه‌ینی

إن حلقة For هي مشابهة تقريبا لحلقة Do الا انه يعيد تنفيذ الامر بعدد معين انت تختاره وليس بحدث وان كل حلقة له رمز معين بحيث يكون مساويا لعدد الدوران في الحلقة بحيث يستخدم هذا الرمز في الاوامر التي يراد تنفيذها داخل الحلقة, وعندما ينهي الدوران بعدد الحلقات سوف يخرج من الدائرة ليقوم بتنفيذ الاوامر التي تأتي بعدها

الشكل العام للتعليمة:

Code

For a= القيمة الأولى To القيمة الثانية
الحدث (التعليمة)
Next

ملاحظة :(a) مجرد وسيط يمكنك تغيره

مثال سريع للجملة البسيطة :

Code

For a = 0 To 5
MsgBox "مثال", vbMsgBoxRight, a
Next

في المثال السابق حددنا القيمة الأولى وهي 0 أي قيمة a ثم حددنا القيمة الثانية وهي 5 . لذلك سوف يتم عرض الرسالة بقيمة a أي خمس مرات. ودائما تنتهي جملة التكرار ب: Next

ملاحظة: لجملة التكرار For نوعان النوع السابق هو الجملة البسيطة. والآن نأتي إلى الجملة المركبة:
الجملة المركبة تحوي الحلقة الداخلية والحلقة الخارجية . أي حلقة For داخل حلقة For

مثال سريع للجملة المركبة:

Code

For s = 0 To 1

'بداية الحلقة الداخلية
For a = 0 To 2
Print "s="; s, "a="; a
Next
'نهاية الحلقة الداخلية

Print ""
Next

مثال آخر للجملة For
ضع الكود التالي في أداة التوقيت Timerولاتنسى خاصية Interval=100

Code

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)
Nexti

1605 عدد المشاهدات