عرض مشاركة واحدة
  #13  
قديم 10-04-2017, 11:20 PM
الصورة الرمزية زياد_عاطف
زياد_عاطف زياد_عاطف غير متواجد حالياً
معلم كمبيوتر و تكنولوجيا المعلومات
 
تاريخ التسجيل: Aug 2008
المشاركات: 503
معدل تقييم المستوى: 16
زياد_عاطف is on a distinguished road
Opp


كل شىء و شرح كامل لكيفية عمل جملة
For Next

============================================
فى جملة For Next
(1) إذا كانت البداية التى بعد علامة = أقل من النهاية التى بعد كلمة To يجب ان تكون قيمة الزيادة التى بعد كلمة Step موجبة حتى يتم التكرار /// و يتم التكرار حينئذ طالما كانت قيمة العداد أقل من أو تساوى قيمة النهاية التى بعد كلمة To
و يتوقف التكرار إذا أصبحت قيمة العداد أكبر من قيمة النهاية التى بعد كلمة To
ملاحظة :- فى الحالة السابق شرحها إذا كانت الزيادة التى بعد كلمة Step تساوى (0) لن يتم الخروج من الحلقة التكرارية و تنفذ الأوامر التى بين For و بين Next الى ما لا نهاية حتى يتم عمل Stop Debugging
========
(2) إذا كانت البداية التى بعد علامة = اكبر من النهاية التى بعد كلمة To يجب ان تكون قيمة الزيادة التى بعد كلمة Step سالبة حتى يتم التكرار /// و يتم التكرار حينئذ طالما كانت قيمة العداد أكبر من أو تساوى قيمة النهاية التى بعد كلمة To
و يتوقف التكرار إذا أصبحت قيمة العداد أقل من قيمة النهاية التى بعد كلمة To
ملاحظة :- فى الحالة السابق شرحها إذا كانت الزيادة التى بعد كلمة Step تساوى (0) لن يتم التكرار /// و يتم تخصيص قيمة البداية التى بعد علامة = فى العداد و يكون ذلك هو التأثير الوحيد لجملة التكرار على المتغير العداد
==========
(3) إذا كانت البداية التى بعد علامة = تساوى النهاية التى بعد كلمة To و كانت الزيادة التى بعد كلمة Step تساوى صفر لن يتم الخروج من الحلقة التكرارية و تنفذ الأوامر التى بين For و بين Next الى ما لا نهاية حتى يتم عمل Stop Debugging
==========
(4) إذا كانت البداية التى بعد علامة = تساوى قيمة النهاية التى بعد كلمة To يتم تكرار الأوامر مرة واحدة فقط
==========
(5) وظيفة كلمة Next هو
(أ) زيادة قيمة العداد الحالية بقيمة الزيادة التى بعد Step و ذلك بعد كل تكرار
(ب) مقارنة قيمة العداد بشرط التكرار فى الجملة حسب ما ذكر فى بند (1) و (2)
==========
(6) قيمة العداد بعد نهاية التكرار تساوى قيمتة أثناء آخر تكرار مضافا لها قيمة الزيادة التى بعد Step
==========
مع أطيب الأمنيات بالنجاح و التفوق لأبنائنا الطلبة
اعداد الأستاذ/ عاطف مهدى حسان
ميت موسى / شبين الكوم

ابريل 2017