سؤال في جملة for ... next ارجو الاجابة علية

[زياد_عاطف]

المشاركة الأصلية كتبت بواسطة حازم المحمدى

شكرا أستاذ زياد على التواصل و لك منى كل تقدير و إحترام حتى و إن إختلفنا فى الرأى
بالمناسبة أول دخولى للمنتدى سألت عدة أسئلة و ذلك لم يكن لأعرف الإجابة و لكن لكى أحدد مستوى تفكير الأعضاء و أعلم ما إذا كان هناك تفاعل حقيقى و من الذى يقوم بالتفاعل مع الأعضاء الجدد و للعلم مستواك عالى أستاذ زياد
و لكن هنك نقطة كنت أريد مناقشتها معك فى الكود الذى قمت بكتابته و هو كالتالى

Dim A As integer
For A = 1 To 3 Step 0
Label1.text = A
Next
Label2.Text = A

ما القيمة المعروضه فى أداة العنوان Label1 و أداة العنوان Label2 و كم عدد مرات التكرار
أولا عدد مرات التكرار سيكون عدد لا نهائى من المرات و لكن ستكون النتيجة فى كل مرة تكرار هى نفس النتيجة و هى الرقم واحد لذلك سيكون عدد مرات التكرار (1) و ذلك حسب القانون
عدد مرات التكرار = ((النهاية - البداية)/الزيادة )+1
= ((3 - 1 ) / 0 ) + 1
= ( 2 / 0 ) + 1 = ليس لها معنى + 1 = 1
ثانيا فى الأداة Label2 لن يتم عرض أى شىء و ذلك لأن الأمر Label2 جاء بعد نهاية التكرار و هذا التكرار غير متوقف لذلك لن يخرج من الحلقة و لن يتم تنفيذ الكود الذى يلى Next
ثالثا و هو ما يحيرنى أن الأداة Label1 يجب أن يكون بها القيمة 1 و لكن عند التنفيذ عملى لم تكن النتيجة كذلك و لكنها ظلت Label1
السؤال الثانى فى الكود التالى

Dim A As integer
For A = 1 To 3 Step -1
Label1.text = A
Next
Label2.Text = A

ما القيمة المعروضه فى أداة العنوان Label1 و أداة العنوان Label2 و كم عدد مرات التكرار مع ذكر السبب فى كل إجابة

==================================

أولا عدد مرات التكرار سيكون عدد لا نهائى من المرات و لكن ستكون النتيجة فى كل مرة تكرار هى نفس النتيجة و هى الرقم واحد لذلك سيكون عدد مرات التكرار (1) و ذلك حسب القانون
عدد مرات التكرار = ((النهاية - البداية)/الزيادة )+1
= ((3 - 1 ) / 0 ) + 1
= ( 2 / 0 ) + 1 = ليس لها معنى + 1 = 1
===========================
عاطف مهدى (أبو زياد) :
أولا شكرا جزيلا و تقديرى لحضرتك على كلمات الإطراء - و أتمنى ان اكون عند حسن ظنك بى:
================
لو أردت الكلام من خلال القانون فالمقصود بليس لها معنى هى مالا نهاية Infinity
و حسب القانون الذى كتبته = ليس لها معنى + 1=1 هذا الكلام مضمونه أن ما تقصده أنت أن ليس لها معنى قيمة محددة تساوى الصفر و هذا ليس حقيقى فمعنى = ليس لها معنى ( مالانهاية + 1 = مالا نهاية ///////////
=================================

ثانيا فى الأداة Label2 لن يتم عرض أى شىء و ذلك لأن الأمر Label2 جاء بعد نهاية التكرار و هذا التكرار غير متوقف لذلك لن يخرج من الحلقة و لن يتم تنفيذ الكود الذى يلى Next
عاطف مهدى (أبو زياد) :
ثانياً "-
================
لقد كتبت هذه الجملة حتى نتأكد أن البرنامج لن يخرج من الحلقة التكرارية و بالتالى لن تتغير قيمة خاصية الـ Text للأداة Label2 حيث أن البرنامج لن يخرج من الحلقة و يستمر بعرض قيمة العداد ( قيمة البدابة ) [1] بعد كل تكرار لمالا نهاية
و قد لا يعرض البرنامج ما هو متوقع للوصول لحلقة تكرارية ليس فيها بعض التوقف كما فى حالة تم العرض على MsgBox حيث انه بعد كل تكرار يتوقف ليعرض القيمة فى صندوق الرسالة فنضغط Ok ليذهب للتكرار التالى و هكذل مالا نهاية [MsgBox(A) ] و للتخلص من الحلقة التكرارية لا يكون ذلك إلا بعمل Stop Debugging
======================================
ثالثا و هو ما يحيرنى أن الأداة Label1 يجب أن يكون بها القيمة 1 و لكن عند التنفيذ عملى لم تكن النتيجة كذلك و لكنها ظلت Label1
السؤال الثانى فى الكود التالى

Dim A As integer
For A = 1 To 3 Step -1
Label1.text = A
Next
Label2.Text = A

ما القيمة المعروضه فى أداة العنوان Label1 و أداة العنوان Label2 و كم عدد مرات التكرار مع ذكر السبب فى كل إجابة
ثالثاً :-
================
إذا كانت قيمة العداد متزايدة يجب أن تكون قيمة الزيادة موجبة حتى يتم التكرار
لذا لن يتم التكرار
و طالما ذهب البرنامج لكلمة For سيتم تخزين قيمة البداية فى العداد سواء تحقق شرط التكرار أو لا
لذلك سيأخذ المتغير العداد A قيمة البداية [1] و لن يتم التكرار و يذهب للأوامر التى تلى Next إن وجدت فينفذ الجملة Label2.Text =A
فيتم عرض آخر قيمة أسندت للمتغير العداد A و هى [1]

عاطف مهدى (أبو زياد) - ميت موسى - شبين الكوم

=======================================================