سؤال للتحدي فهل من مشارك

ما ناتج تنفيذ هذا البرنامج مع تتبع القيم x , y مع الشرح
Dim x = 12, y As Short = 3

For x = 1 To x Step y

x = y + 1
y = y - x
Next
MsgBox(x)1

ان شاء الله تكون قيمة
x = 4
y = -1
وهينتج خطأ وذلك لتغير قيمة ال x لانها سوف تكون في اول مرة تكرار 13 حتى 13 وعند الرجوع للمقارنة سوف يجد تغير في قيمة ال x حيث انها سوف تكون 4 بالاضافة الي قيمة الزيادة تحولت الى سالب وقيمة البداية اصغر من قيمة النهاية والدنيا ملخبطة والله ياستاذ سيف بس ده اللى انا توصلت له وشكرا يارب يكون صح

ان شاء الله تكون قيمة
x = 4
y = -1
وهينتج خطأ وذلك لتغير قيمة ال x لانها سوف تكون في اول مرة تكرار 13 حتى 13 وعند الرجوع للمقارنة سوف يجد تغير في قيمة ال x حيث انها سوف تكون 4 بالاضافة الي قيمة الزيادة تحولت الى سالب وقيمة البداية اصغر من قيمة النهاية والدنيا ملخبطة والله ياستاذ سيف بس ده اللى انا توصلت له وشكرا يارب يكون صح


اولا نشكر لكم المحاولة
وفعلا y ستكون اخر القيم لها -1
لكن x لن تكون 4
وكذلك لن ينتج خطأ
والدنيا مش ملخبطة ولا حاجة
فقط ان نعرف كيف يكون امر for next

ممكن الحل السليم فى جدول
Please

ممكن الحل السليم فى جدول
please
ان شاء الله سيكون الحل السليم بمشاركة الجميع

نرجو مساهمة الجميع

عند تنفيذ البرنامج تكون قيمة العداد

For x = 1 to 12 Step 3

لأنه يأخذ القيم من جملة الإعلان
ثم يبدأ بتنفيذ التكرار فتكون أول قيمة X تساوي 2 من المعادلة وقيمة y= 1
ثم يكرر مرة أخر فيزيد X بمقدار الزيادة 3 فتصبح 5 ثم في أول معادلة في جمل التكرار تزيد مرة أخري بمقدار واحد فتصبح 6 وعندها تكون Y بمقدار -5 فيذهب إلي إلي بداية التكرارة مرة أخر فتكون X = 9 ويزيد مرة أخري بمقدار واحد فتصبح 10 وتكون Y = -15 و فيذهب إلي إلي بداية التكرارة مرة أخر فتكون X = 13 فينتهي جملة For …. Next
وعلي ذلك تكون أخر قيمىة لـ x = 13 ، y = -15

عند تنفيذ البرنامج تكون قيمة العداد

for x = 1 to 12 step 3

لأنه يأخذ القيم من جملة الإعلان
ثم يبدأ بتنفيذ التكرار فتكون أول قيمة x تساوي 2 من المعادلة وقيمة y= 1
ثم يكرر مرة أخر فيزيد x بمقدار الزيادة 3 فتصبح 5 ثم في أول معادلة في جمل التكرار تزيد مرة أخري بمقدار واحد فتصبح 6 وعندها تكون y بمقدار -5 فيذهب إلي إلي بداية التكرارة مرة أخر فتكون x = 9 ويزيد مرة أخري بمقدار واحد فتصبح 10 وتكون y = -15 و فيذهب إلي إلي بداية التكرارة مرة أخر فتكون x = 13 فينتهي جملة for …. Next
وعلي ذلك تكون أخر قيمىة لـ x = 13 ، y = -15

للاسف لن يحدث هذا والاجابات ليست دقيقة
نشكر لكم المحاولة
وجزاكم الله كل خير

ما ناتج تنفيذ ها البرنامج مع تتبع القيم x , y
dim x = 12, y as short = 3

for x = 1 to x step y

x = y + 1
y = y - x
next
msgbox(x)1


ب
بعد تتبع هذا الكود سوف تكون الاجابة كالتالي :
X=16
y=-1

ب
بعد تتبع هذا الكود سوف تكون الاجابة كالتالي :
X=16
y=-1

بالنسبة لقيمة y فهي اجابة سليمة
اما x فلا
وما هو التتبع
نشكر لكم مساهمنكم بالحل
بارك الله لكم

الأستاذ الفاضل / سيف

رأى أن

x=0
y=-1

و أنتظر رد سيادتكم و لكم خالص الشكر

الأستاذ الفاضل / سيف

رأى أن

x=0
y=-1

و أنتظر رد سيادتكم و لكم خالص الشكر
نشكركم للحل
فعلا Y ستكون -1 ابدا
اما x ستتراوح ما بين 0 و .....................
ويبقى السؤال ما ناتج البرنامج مع التتبع

جزاكم الله كل خير

الأستاذ الفاضل / سيف

شكراً جزيلاً لحضرتك

و لكن هل حضرتك تطرح سؤال آخر
ما ناتج البرنامج مع التتبع

ما ناتج تنفيذ ها البرنامج مع تتبع القيم x , y
dim x = 12, y as short = 3

for x = 1 to x step y

x = y + 1
y = y - x
next
msgbox(x)1



الأستاذ الفاضل / سيف

شكراً جزيلاً لحضرتك

و لكن هل حضرتك تطرح سؤال آخر
ما ناتج البرنامج مع التتبع


بارك الله لكم
هو دا السؤال الاصلي

الأستاذ الفاضل / سيف

حضرتك رأى

x=4
y=-1

ثم

x=0
y=-1

و ستظل هكذا

x=0
y=-1

إلى ما لا نهاية

أنتظر رد سيادتكم و لكم جزيل الشكر

الأستاذ الفاضل / سيف

حضرتك رأى

x=4
y=-1

ثم

x=0
y=-1

و ستظل هكذا

x=0
y=-1

إلى ما لا نهاية

أنتظر رد سيادتكم و لكم جزيل الشكر

شكرا لتفاعلكم
ولكن كيفية التتبع
وفعلا y ستكون -1 الى مالا نهاية
اما x ستتراوح بين الصفر و ..............

والسؤال ما زال قائم
ما ناتج البرنامج مع تتبع القيم

سيحدث خطأ في البرنامج
كيف اعطي قيمة ابتدائية للمتغير x=12 ثم ابدأ العداد بقيمة لx =ا ثم ينتهي العداد بقيمة للمتغير x ايضا
وياريت قبل ما نطرح هذه الاسئلة الجدلية نقوم بتجريبها عمليا علي البرنامج
ولكم الشكر

سيحدث خطأ في البرنامج
كيف اعطي قيمة ابتدائية للمتغير x=12 ثم ابدأ العداد بقيمة لx =ا ثم ينتهي العداد بقيمة للمتغير x ايضا
وياريت قبل ما نطرح هذه الاسئلة الجدلية نقوم بتجريبها عمليا علي البرنامج
ولكم الشكر
تم التجريب
والتتبع عمليا
ولم يحدث اي خطأ
وعليكم التـأكد بانفسكم بجهازكم
والسؤال ليس جدلي نهائي
ويبقى المشاركة من الاعضاء
وبعد المشاركة
يبقى التفسير وكيف يعمل vb


جزاكم الله كل خير

عند تتبع المتغيرات كانت النتيجة كالتالي وذلك بكتابة msgbox قبل next
x=4
y=-1

ثم

x=0
y=-1

و ستظل هكذا

x=0
y=-1

إلى ما لا نهاية
وعندما نكتب msgbox بعد next يعلق البرنامج
ولكم الشكر

عند تتبع المتغيرات كانت النتيجة كالتالي وذلك بكتابة msgbox قبل next
x=4
y=-1

ثم

x=0
y=-1

و ستظل هكذا

x=0
y=-1

إلى ما لا نهاية
وعندما نكتب msgbox بعد next يعلق البرنامج
ولكم الشكر
بارك الله لكم
علشان نعرف التتبع عمليا
اكتب البرنامج كدا
Dim x = 12, y As Short = 3
MsgBox(x)
MsgBox(y)
For x = 1 To x Step y
MsgBox(x)
MsgBox(y)
x = y + 1
y = y - x
MsgBox(x)
MsgBox(y)
Next
MsgBox(x)
دا عمليا
يبقى التفسير
كيف

قيمة x ستتراوح بين 0 و 3
ولكم الشكر

قيمة x ستتراوح بين 0 و 3
ولكم الشكر
بارك الله لكم
نحن نعلم بان سؤال تتبع
ان نقوم نحن بدور vb ونتوقع القيم
فما هو حل السؤال من غير الجهاز

للاسف لن يحدث هذا والاجابات ليست دقيقة

نشكر لكم المحاولة

وجزاكم الله كل خير


ياريت يا استاذ سيف تدخل البرنامج في افذة الكود وتأخذ المخرجات علي Listbox وتشوف النتائج حتكون سليمة ولا لأ

ياريت يا استاذ سيف تدخل البرنامج في افذة الكود وتأخذ المخرجات علي Listbox وتشوف النتائج حتكون سليمة ولا لأ

دا جزء اولي من النتائج في listbox
http://www.thanwya.com/vb/attachment.php?attachmentid=76430&stc=1&d=1332240346

القيمة النهائية ل x = صفر
و القيمة النهائية ل y = سالب واحد

القيمة النهائية ل x = صفر
و القيمة النهائية ل y = سالب واحد
مشكور
ولكن ليس هناك قيمة نهائية ل X لام البرنامج سيستمر الى ما شاء الله
السؤال نشوف ازاي ودا بيتعارض مع طريقة عمل for الموجودة في الكتاب وكل الكتب الخارجية وطريقة شرح اغلب المدرسين

ما ناتج تنفيذ ها البرنامج مع تتبع القيم x , y
Dim x = 12, y As Short = 3

For x = 1 To x Step y

x = y + 1
y = y - x
Next
MsgBox(x)1


ان شاء الله تكون آخر قيمة لـــ x = 0 إلى ما نهاية وقيمة Y = -1

ان شاء الله تكون آخر قيمة لـــ x = 0 إلى ما نهاية وقيمة Y = -1
ليس هناك قيمة نهائبة x ولكن ستبدل بين 0 و 3

السؤال كيف تحل هذة المسائل

ما ناتج تنفيذ ها البرنامج مع تتبع القيم x , y
Dim x = 12, y As Short = 3

For x = 1 To x Step y

x = y + 1
y = y - x
Next
MsgBox(x)1


عدادا التكرار = 1.4.7.10.13
عدد مرات التكرار = 4
معنى ذلك ان جميع الاوامر التى تلى for سوف تكرر 4 مرات وهنا نجد ان الfor جاءت بالحالتين
وهما اولا اما المتغير غير متواجد بالعملية الحسابية مثل x=y=1
قيمة x هنا = 7
اما الحالة الثانية وهى دخول المتغير في االعملية الحسابية
y=y-xهنا قيمة
y= 5 واله اعلم

عدادا التكرار = 1.4.7.10.13
عدد مرات التكرار = 4
معنى ذلك ان جميع الاوامر التى تلى for سوف تكرر 4 مرات وهنا نجد ان الfor جاءت بالحالتين
وهما اولا اما المتغير غير متواجد بالعملية الحسابية مثل x=y=1
قيمة x هنا = 7
اما الحالة الثانية وهى دخول المتغير في االعملية الحسابية
y=y-xهنا قيمة
y= 5 واله اعلم
عدد مرات النكرار ما لانهاية
اما عدد مرات التكرار 4 ليس صحيح

السلام عليكم ورحمة الله وبركاته
الاستاذ / محمد رمضان
الحل الصحيح والأكيد إن شاء الله
إن x = 0 ، y = -1

<font color="black"><b>ا<b>لسلام عليكم ورحمة الله وبركاته <br>
الاستاذ / محمد رمضان <br>
الحل الصحيح والأكيد إن شاء الله <br>
إن x = 0 ، y = -1 </b></b></font>

السلام عليكم ورحمة الله وبركاته
الاستاذ / محمد رمضان
الحل الصحيح والأكيد إن شاء الله
إن x = 0 ، y = -1
قيم ء ستتراوح ما بين 0 و 3
هات برهانك على صحة حلك

نتائج هذا البرنامج هي
النكرار نهائي
y -1
x تتراوح بين 0 و 3

كما سبق وظهر ب listbox
بس المشكلة ما هو الحل ماذا حدث كيف ظهرت هذه النتائج فقط لا غير

نتائج هذا البرنامج هي
النكرار نهائي
y -1
x تتراوح بين 0 و 3

كما سبق وظهر ب listbox
بس المشكلة ما هو الحل ماذا حدث كيف ظهرت هذه النتائج فقط لا غير

يا أستاذ سيف يا ريت حضرتك تحل المسألة

x x=y+1 y=y-x
-1 4 1
-1 0 4
-1 0 7
-1 0 10
-1 0 13
واخر x=13

x x=y+1 y=y-x
-1 4 1
-1 0 4
-1 0 7
-1 0 10
-1 0 13
واخر x=13
معذرة اجابة خطأ
والاجابة الصحيحة التكرار مستمر
ولكم الشرح كيف

اتفق مع nahla m

الى الاخ الاستاذ الفاضل سيف سالم قبل ان اعطيك الحل فهذا ماقد تعلمته منشرح استاذى الفاضل أ/ احمد قرنى اليكم الحل مع جزيل الشكر
سيتم الحل عن طريق التحويل من امر for Next الى امر Do While
x= 1
y=3
Do Whlie <=12
y=y+x
x=x+3
loop MsgBox X
وان كنت مخطئآ فالحل ستكون القيم
x=13
Y=25 وهذا ماقد تعلمته من استاذى احمد قرنى ولكنى اتطلع الى المزيد منكم وشكرآآآآآآآآآآآآآآآآآآ

الى الاخ الاستاذ الفاضل سيف سالم قبل ان اعطيك الحل فهذا ماقد تعلمته منشرح استاذى الفاضل أ/ احمد قرنى اليكم الحل مع جزيل الشكر
سيتم الحل عن طريق التحويل من امر for Next الى امر Do While
x= 1
y=3
Do Whlie <=12
y=y+x
x=x+3
loop MsgBox X
وان كنت مخطئآ فالحل ستكون القيم
x=13
Y=25 وهذا ماقد تعلمته من استاذى احمد قرنى ولكنى اتطلع الى المزيد منكم وشكرآآآآآآآآآآآآآآآآآآ
الحل معروف
فقط انقل البرنامج داخل vb
وشغل فقط لا غير لن يكون كما قلت
والنتائج كما هي معلنة في listbox
ولكن كيف تم هذا

أتفضلوا الاجابة
يتوقف البرنامج عن التنفيذ بعد نهاية أول تكرار حيث تصبح قيمة x=4 وقيمة المتغير y بــ -1 سالب واحد
وهنا يكون مقدار الزيادة بنقصان اى بمقدار -1 والعداد x فى ازدياد بناءً على جملة For x = 1 to Y
ولهذا التعارض سوف يتوقف البرنامج عن التنفيذ

أتفضلوا الاجابة
يتوقف البرنامج عن التنفيذ بعد نهاية أول تكرار حيث تصبح قيمة x=4 وقيمة المتغير y بــ -1 سالب واحد
وهنا يكون مقدار الزيادة بنقصان اى بمقدار -1 والعداد x فى ازدياد بناءً على جملة for x = 1 to y
ولهذا التعارض سوف يتوقف البرنامج عن التنفيذ
ما ناتج تنفيذ ها البرنامج مع تتبع القيم x , y
dim x = 12, y as short = 3
msgbox(x)1
msgbox(y)1
for x = 1 to x step y

msgbox(x)1
msgbox(y)1
x = y + 1
y = y - x

msgbox(x)1
msgbox(y)1
next
msgbox(x)1


جرب نفس التمرين على الجهاز بعد اضافة اللون الازرق علشان تعرف التتبع
ونفذ البرنامج
ستجد انه سيستمر في التنفيذ
وستكون النتائج النهائية
0
-1
3
-1
وستستمر تلك الرسائل بدون توقف
هذا اكيد
ولكن كيف ام هذا
ايه الشرح

لو سمحتوا انا عاوزة الاجابة النهائية الصح بسرعه

لو سمحتوا انا عاوزة الاجابة النهائية الصح بسرعه
دي صورة من النتائج والبرنامج سيستمر
http://www.thanwya.com/vb/attachment.php?attachmentid=76430&stc=1&d=1332240346

تمرين جميل و رائع و يحتوى على ابتكار فى الاسلوب
انت استاذنا الرائع يا استاذنا العزيز / سيف
لك جزيل الشكر و التقدير
عاطف حسان / ميت موسى

تمرين جميل و رائع و يحتوى على ابتكار فى الاسلوب
انت استاذنا الرائع يا استاذنا العزيز / سيف
لك جزيل الشكر و التقدير
عاطف حسان / ميت موسى
بارك الله لكم استاذ عاطف
كنا نرجو المشاركة من السادة مدرسي المادة
حتى نتعرف كيف تعمل for next لان ما ورد بالكتاب ليس له اساس من الصحة

For x =1 to x step y

المتغير Y يمثل خطوات تزايد العداد X:
وهو له ثلاث حالات:

1- اذا كان المتغير Y اصغر من الصفر وهو مثالنا هذا يساوى Y=-1 وذلك فى التكرار الثانى
فان البرنامج سوف يعمل ولكن لن ينتهى حيث ان خطوات الزيادة بالسالب ولن نصل الى نهاية



2- اذاكان المتغير Y يساوى صفر يحدث خطأ داخل البرنامج وبالتالى البرنامج لن يعمل

3-اذا كان المتغير Y اكبر من الصفر يعمل البرنامج كما هو الحال فى الامثلة الطبيعية

For x =1 to x step y

المتغير Y يمثل خطوات تزايد العداد X:
وهو له ثلاث حالات:

1- اذا كان المتغير Y اصغر من الصفر وهو مثالنا هذا يساوى Y=-1 وذلك فى التكرار الثانى
فان البرنامج سوف يعمل ولكن لن ينتهى حيث ان خطوات الزيادة بالسالب ولن نصل الى نهاية



2- اذاكان المتغير Y يساوى صفر يحدث خطأ داخل البرنامج وبالتالى البرنامج لن يعمل

3-اذا كان المتغير Y اكبر من الصفر يعمل البرنامج كما هو الحال فى الامثلة الطبيعية
لكن قيمة y =3 وليس -1 في بداية البرنامج
وليس هتاك من قال لما يكون سالب التكرار ما لا نهاية هذا غير حقيقي

عندما x=12
y=3
........
x=1
y=3
.............
x=4
y=3
......\
x=7
y=-1
.........
x=0
y=-1
........
x=3
y=-1
.........
x=0
y=-1


فتكون قيمة y=-1
x ما بين 0 و 3 ويستمر البرنامج الي مالا نهاية

عندما x=12
y=3
........
X=1
y=3
.............
X=4
y=3
......\
x=7
y=-1
.........
X=0
y=-1
........
X=3
y=-1
.........
X=0
y=-1


فتكون قيمة y=-1
x ما بين 0 و 3 ويستمر البرنامج الي مالا نهاية
السؤال كيفية الحساب للحصول على هذة القيم
اي شرح للحل
بارك الله لكم

رجو حل هذة الاسئلة مع التوضيح والشرح

اكتب الاكواد اللازمه لتنفيذ الأتي :
1- حذف العنصر الثالث فى صندوق الاداه List box


2-الامر ( IF .. Then .. Else ) هو امر اختيار ........ .
( مجموعتين من الاوامر - إحدى مجموعتين من الاوامر - لا شىء مما سبق )
3- تستطيع مع المتغيرdate أ) جمع أيام ب) جمع ساعات ج) طرح ايام د) كل ما سبق
علما بان كتاب المدرسة يذكر انة لايمكن القيام بعملية جمع وطرح ايام عادية ولكن نستخدم الطرق او الوسائل

رجو حل هذة الاسئلة مع التوضيح والشرح

اكتب الاكواد اللازمه لتنفيذ الأتي :
1- حذف العنصر الثالث فى صندوق الاداه List box


2-الامر ( IF .. Then .. Else ) هو امر اختيار ........ .
( مجموعتين من الاوامر - إحدى مجموعتين من الاوامر - لا شىء مما سبق )
3- تستطيع مع المتغيرdate أ) جمع أيام ب) جمع ساعات ج) طرح ايام د) كل ما سبق
علما بان كتاب المدرسة يذكر انة لايمكن القيام بعملية جمع وطرح ايام عادية ولكن نستخدم الطرق او الوسائل


listbox.items.removeat (2) -1
2- احدي مجموعتين من الاوامر
3- كل ما سبق

السلام عليكم
اساتذة المنتدى الكرام
هذا السؤال كان تحدي
وكان الهدف منه هو اظهار عجز الادارة العامة ومؤلف الكتاب
في شرح كيف يعمل
الامر
for next
ومازال التحدي قائم
فهل توصل احدكم
الى كيفية الحل

السلام عليكم
اساتذة المنتدى الكرام
هذا السؤال كان تحدي
وكان الهدف منه هو اظهار عجز الادارة العامة ومؤلف الكتاب
في شرح كيف يعمل
الامر
for next
ومازال التحدي قائم
فهل توصل احدكم
الى كيفية الحل

سؤال للتحدي فهل من مشارك

ما ناتج تنفيذ هذا البرنامج مع تتبع القيم x , y مع الشرح
Dim x = 12, y As Short = 3

For x = 1 To x Step y

x = y + 1
y = y - x
Next
MsgBox(x)1

الفصل الدراسي انتهى
وضغط التدريس خلاص
والامتحانات خلصت
مفيش مشارك

تأسف لعدم وجود احد يقدر يفسر حل المسألة

محدش عايز يشارك في التفكير

هذه مشاركة من استاذ فاضل وواضح انه بخيل في المعلومة لقلة عدد مشاركاته
الاستاذ الفاضل ابو محمد 2
وان اتفقت في البعض فانا اختلف في الاخر
اولا نعرض التفسير من وجه نظر الاستاذ ابو محمد

http://www.thanwya.com/vb/attachment.php?attachmentid=80276&stc=1&d=1337367045



اولا نشكر الاستاذ الفاضل ابو محمد
وكنا نود ان يكون التتبع من بداية البرنامج وليس من بداية التكرار
هل معنى ذلك ان هناك 2 متغير x في الذاكرة واحد تحت مسمى العداد X والاخر متغير x عادي
ام ان كلاهما متغير واحد
كيف يتم التخزين في المتغيرات بداية من اول البرنامج وكيف يتم القراءة

الناتج x=13 لان عدد مرات التكرار 4 مرات يبدأ من 1 حتى 12 بزيادة 3 اذن قيمة x=1,4,7,10 داخل التكرار اما القيمة 13 هى التى تخرجه من الحلقة التكرارية وينتقل لتنفيذ اول امر بعد next وهو ظهور مربع رسالة به قيمة x وهى 13

الناتج x=13 لان عدد مرات التكرار 4 مرات يبدأ من 1 حتى 12 بزيادة 3 اذن قيمة x=1,4,7,10 داخل التكرار اما القيمة 13 هى التى تخرجه من الحلقة التكرارية وينتقل لتنفيذ اول امر بعد next وهو ظهور مربع رسالة به قيمة x وهى 13
للاسف الحل خطأ
والموضوع اساسا لازالة التفكير دا عند حل for next علشان للاسف الكتاب علم الناس الامر خطأ

x=13 لانها اخر قيمة خرجته من التكرار لينفذ ما بعدnext وهو ظهور رسالة بها قيمة المتغير x

هل من مشارك

استاذ سيف
بتتبع البرنامج :
فى أول مرة تكون قيمة x=4 , y=-1
ثم بعد ذلك فى التكرار المرة الثانية تكون قيمة x=0 , y = -1
وسوف يستمر التكرار هكذا الى مالا نهاية على القيم الاخيرة ان x=0 , y=-1 ولا ينتهى التكرار

استاذ سيف
بتتبع البرنامج :
فى أول مرة تكون قيمة x=4 , y=-1
ثم بعد ذلك فى التكرار المرة الثانية تكون قيمة x=0 , y = -1
وسوف يستمر التكرار هكذا الى مالا نهاية على القيم الاخيرة ان x=0 , y=-1 ولا ينتهى التكرار
نرجو الشرح بدء من الامر dim
ماذا حدث وكيف تم الاعلان عن المتغيرات وكيف تم التخزين وكيف تم تنفيذ ام for وهل فعلا الامر for معروف عدد المرات مسبقا وهكذا الى اخر البرنامج
شكرا لكم وجزاكم الله كل خير

اولا اشكرك لهذه المعلومة الجديدة وهى ان الحلقة التكرارية For....Next تعمل بطريقة اخرى غير المشروحة فى الكتاب والتى للاسف نعتقدها صحيحة وبالفعل قد صدمت اثناء تتبعى القيم لان فيها ما يخالف ما اعتقده صحيح لان البرنامج لا يعتمد على اخر قيمة للمتغير ....فارجو شرح ذلك وجزاكم الله كل خير

اولا اشكرك لهذه المعلومة الجديدة وهى ان الحلقة التكرارية For....Next تعمل بطريقة اخرى غير المشروحة فى الكتاب والتى للاسف نعتقدها صحيحة وبالفعل قد صدمت اثناء تتبعى القيم لان فيها ما يخالف ما اعتقده صحيح لان البرنامج لا يعتمد على اخر قيمة للمتغير ....فارجو شرح ذلك وجزاكم الله كل خير
جزاكم الله كل خير
وهذا السؤال الهدف الرئيسى له
جذب كل المشاركين
الى ان طريقة شرح for next والتى تعلمناها وعلمناها للطلاب
للاسف الشديد خطأ
وكان نفسي ان يشارك الجميع في الحل
وقريبا ساقوم بشرح كامل للسؤال
مدعوم بالفيديو من داخل البرنامج
وكذلك مدعوم من الدعم الرسمي للبرنامج

انتظرونا في شرح المثال ان شاء الله
بارك الله للجميع

الاستاذ الفاضل / سيف
x=4 y=2
x=3 y=-1
x=0 y=-1
x=0 y=-1

الرسالة ستكون قيمة x=0

الاستاذ الفاضل / سيف
x=4 y=2
x=3 y=-1
x=0 y=-1
x=0 y=-1

الرسالة ستكون قيمة x=0
لن بذهب الى خطوة الرسالة

هو مشx=1 to 12 step3
طيب هيكون التكرار 1و4و7و10
يبقى عندى التكرار 4 مرات
ثم اجد قيم x
x=y+1
3+1=4
4+1=5
5+1=6
6+1=7
و بالنسبة لy
y=y-x
3-5=-2وهكذا ولا ايه
مش عارفة المسالة ده ماشية ازاى
حد يحلها باخراج القيم x,y ثم يضعها

هو مشx=1 to 12 step3
طيب هيكون التكرار 1و4و7و10
يبقى عندى التكرار 4 مرات
ثم اجد قيم x
x=y+1
3+1=4
4+1=5
5+1=6
6+1=7
و بالنسبة لy
y=y-x
3-5=-2وهكذا ولا ايه
مش عارفة المسالة ده ماشية ازاى
حد يحلها باخراج القيم x,y ثم يضعها
الغرض من السؤال ليس الحل
ولكن كبف يمكن ام for next

أفضل اجابة هى تطبيق البرنامج عملى
ولذلك نسخته على VB.net الا انه به خطا ولم يظهر أى شى ولذلك أعتقد أن به خطا
************
اما بقراءة البرنامج نجد أنه تم تخصيص متغيرين فى أول سطر متغير واحد باسم x وقيمته 12 من نوع Short ومتغير باسم y من نوع Short بقيمة 3
فى السطر الثانى تم وضع حلقة تكرارية بدايتها (عدادها) x يساوى واحد ونهايتها x ومقدار الزيادة y
فى الشطر الثالث والرابع تم تغير قيم x , y طبقا للمعادلات المعطاة
وبالتالى تكون القيم كما يلى:
x=12 y=3 قبل الحلقة التكرارية
x=4 y=-1 فى أول تكرار
x=0 فى بداية التكرار الثلنى فلا يحقق شرط التكرار فيتوقف التكرار
وبالتالى تكون فى التهاية x=0 y=-1
ما هو ردك

أفضل اجابة هى تطبيق البرنامج عملى
ولذلك نسخته على vb.net الا انه به خطا ولم يظهر أى شى ولذلك أعتقد أن به خطا
************
اما بقراءة البرنامج نجد أنه تم تخصيص متغيرين فى أول سطر متغير واحد باسم x وقيمته 12 من نوع short ومتغير باسم y من نوع short بقيمة 3
فى السطر الثانى تم وضع حلقة تكرارية بدايتها (عدادها) x يساوى واحد ونهايتها x ومقدار الزيادة y
فى الشطر الثالث والرابع تم تغير قيم x , y طبقا للمعادلات المعطاة
وبالتالى تكون القيم كما يلى:
X=12 y=3 قبل الحلقة التكرارية
x=4 y=-1 فى أول تكرار
x=0 فى بداية التكرار الثلنى فلا يحقق شرط التكرار فيتوقف التكرار
وبالتالى تكون فى التهاية x=0 y=-1
ما هو ردك
طب ايه نوع الخطأ الظاهر لك
علشان نحكم
والاجابة خطأ

[COLOR="Red"]
أظن أن الخطا هو عدم انتهاء التكرار(حلقة تكرار ليس لها نهاية) وبالتالى عدم الوصول الى الى نهاية التكرار وبالتالى عدم طباعة قمية x فى مربع الرسالة

[color="red"]
أظن أن الخطا هو عدم انتهاء التكرار(حلقة تكرار ليس لها نهاية) وبالتالى عدم الوصول الى الى نهاية التكرار وبالتالى عدم طباعة قمية x فى مربع الرسالة
طبكدا مفيش اخطء والمطلوب معلافة القيم

سيتم التكرار إلى مالا نهاية لان قيمة xستظل 0 وقيمة y ستظل -1 إلى ما لا نهاية
نرجو الرد والافادة

سيتم التكرار إلى مالا نهاية لان قيمة xستظل 0 وقيمة y ستظل -1 إلى ما لا نهاية
نرجو الرد والافادة
السؤال كيف
وليست النتائج المطلوبة
وهل هتاك قيم بالرغم انه لن يخرج شئ ام لا

شئ على قدنا كدة
****
سيتم اعلان x=12
y=3
ثم مع بداية التكرار
سيتم اظهار رسالة بقيمة x=1
y=3
وبعد المعادلات فى المرة الأولى x=4
y=-1
وبعد ذلك غُلُب حمارى
وأطلب من حضرتك شئ
اترك التفسير بدون اجابة فترة
يمكن لما نشتغل فى الجد
يأتى الوحى
ولك جزيل الشكر

شئ على قدنا كدة
****
سيتم اعلان x=12
y=3
ثم مع بداية التكرار
سيتم اظهار رسالة بقيمة x=1
y=3
وبعد المعادلات فى المرة الأولى x=4
y=-1
وبعد ذلك غُلُب حمارى
وأطلب من حضرتك شئ
اترك التفسير بدون اجابة فترة
يمكن لما نشتغل فى الجد
يأتى الوحى
ولك جزيل الشكر
ليس هنالك اي رسائل سوف تظهر
والموضوع متروك للتفكير
بارك الله لكم

جملة for x = 1 to x step y دي صحيحة ام هي خطأ في الكتابة مثلا تكون for i = 1 to x step y
ارجو التوضيح

جملة for x = 1 to x step y دي صحيحة ام هي خطأ في الكتابة مثلا تكون for i = 1 to x step y
ارجو التوضيح
مفيش اي اخطاء
ممكن تكون قيمة العداد البداية والنهاية والزيادة او النقصان متغيرات
عادي جدا

قيمة x هي 3
وقيمة y هي -1

هذه مشاركة من استاذ فاضل وواضح انه بخيل في المعلومة لقلة عدد مشاركاته
الاستاذ الفاضل ابو محمد 2
وان اتفقت في البعض فانا اختلف في الاخر
اولا نعرض التفسير من وجه نظر الاستاذ ابو محمد

http://www.thanwya.com/vb/attachment.php?attachmentid=80276&stc=1&d=1337367045



اولا نشكر الاستاذ الفاضل ابو محمد
وكنا نود ان يكون التتبع من بداية البرنامج وليس من بداية التكرار
هل معنى ذلك ان هناك 2 متغير x في الذاكرة واحد تحت مسمى العداد X والاخر متغير x عادي
ام ان كلاهما متغير واحد
كيف يتم التخزين في المتغيرات بداية من اول البرنامج وكيف يتم القراءة
أنا لا أعتقد ان هناك 2 متغير x في الذاكرة واحد تحت مسمى العداد X والاخر متغير x عادي
بل من تتبع التغير فى قيم المتغير X فهذا يدل على وجود مخزن واحد فى الذاكرة له
أما من تتبع التغير فى قيم المتغير Y فهذا يشير إلى وجود 2 مخزن فى الذاكرة له
الأول : بقيمة 3 وهى قيمة الزيادة للعداد فى جملة For والتى سيتم التعامل معها على أنها قيمة لا يجوز التعديل فيها مثل الثوابت
الثانى : وهو الذى سيتغير قيمته بالتعبير Y = Y - X

أنا لا أعتقد ان هناك 2 متغير x في الذاكرة واحد تحت مسمى العداد X والاخر متغير x عادي
بل من تتبع التغير فى قيم المتغير X فهذا يدل على وجود مخزن واحد فى الذاكرة له
أما من تتبع التغير فى قيم المتغير Y فهذا يشير إلى وجود 2 مخزن فى الذاكرة له
الأول : بقيمة 3 وهى قيمة الزيادة للعداد فى جملة For والتى سيتم التعامل معها على أنها قيمة لا يجوز التعديل فيها مثل الثوابت
الثانى : وهو الذى سيتغير قيمته بالتعبير Y = Y - X
نشكر الاستاذ حسن
بس للاسف الاستاذ ابو محمد لم يستكمل الحوار ويشرح التتبع منذ بداية البرنامج
ونحن نريد المشاركة من الحل ويتم التتبع وكيفية حدوث ذلك
حتى يفهم الكل الامر for next

سؤال للتحدي فهل من مشارك

ما ناتج تنفيذ هذا البرنامج مع تتبع القيم x , y مع الشرح
dim x = 12, y as short = 3

for x = 1 to x step y

x = y + 1
y = y - x
next
msgbox(x)1


================================================== =======
فى اول تكرار

x = 3 + 1 = 4
y =3 - 1 = -1
فى ثانى تكرار

x = -1 + 1 = 0
y = -1 -0 = -1

بعد ذلك for x = 1 t 0 step -1
سيتم التكرار طالما ان قيمة العداد x = 1 اكبر من او تساوى النهاية 0 لان قيمة step سالب
فيكون ثالث تكرار
x = -1 + 1 = 0
y = -1 - 0 = -1
و بذلك تكون الجملة بعد ذلك for x = 1 t 0 step -1

سيتم التكرار طالما ان قيمة العداد x = 1 اكبر من او تساوى النهاية 0 لان قيمة step سالب

فيكون رابع تكرار
x = -1 + 1 = 0
y = -1 - 0 = -1
و بهذا نكون قد انتقلنا لحلقة تكرارية لا نهائية يتم فيها عرض مربعى رسالة الاول فيه قيمة x=0 و الثانى فيه قيمة y=-1
=============
عاطف حسان / ميت موسى

؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

================================================== =======
فى اول تكرار

x = 3 + 1 = 4
y =3 - 4 = -1
فى ثانى تكرار

x = -1 + 1 = 0
y = -1 -0 = -1

بعد ذلك for x = 1 t 0 step -1
سيتم التكرار طالما ان قيمة العداد x = 1 اكبر من او تساوى النهاية 0 لان قيمة step سالب
فيكون ثالث تكرار
x = -1 + 1 = 0
y = -1 - 0 = -1
و بذلك تكون الجملة بعد ذلك for x = 1 t 0 step -1

سيتم التكرار طالما ان قيمة العداد x = 1 اكبر من او تساوى النهاية 0 لان قيمة step سالب

فيكون رابع تكرار
x = -1 + 1 = 0
y = -1 - 0 = -1
و بهذا نكون قد انتقلنا لحلقة تكرارية لا نهائية يتم فيها عرض مربعى رسالة الاول فيه قيمة x=0 و الثانى فيه قيمة y=-1
=============
عاطف حسان / ميت موسى






طبعا الاستاذ عاطف كان يقصد 4
السؤال لماذا بعد ثاني تكرار كانت بعد ذلك for x = 1 t 0 step -1
ولو صح ما قمت بتفسيره
كان سيكون بعد اول تكرار
بعد ذلك for x = 1 t 4 step -1
وكان توقف التكرار

قيمة نهاية العداد ستبقى كما هى بدون تغيير من أول حلقة وإلى مالا نهاية وهى 1
قيمة معل الزيادة y ستبقى كما هى بدون تغيير من أول حلقة وإلى مالا نهاية وهى 3

قيمة نهاية العداد ستبقى كما هى بدون تغيير من أول حلقة وإلى مالا نهاية وهى 1
قيمة معل الزيادة y ستبقى كما هى بدون تغيير من أول حلقة وإلى مالا نهاية وهى 3
هذا بالفعل ما يحدث
النهاية والخطوة قيم تقرأ مرة واحده مع for كما لو كان تحت تحت اسماء مخازن ثابته النهاية والخطوة ولا يعود البرنامج نهائيا الى for مرة اخرى

لا اعلم مدي منطقية الاجابات
لقد جربت البرنامج مع التتبع اكثر من مرة على اكثر من برنامج يعطى حلقة غير منتهية تسبب توقف البرنامج على الاستجابة
هل حد جرب البرنامج على الجهاز ؟؟؟

هذا بالفعل ما يحدث
النهاية والخطوة قيم تقرأ مرة واحده مع for كما لو كان تحت تحت اسماء مخازن ثابته النهاية والخطوة ولا يعود البرنامج نهائيا الى for مرة اخرى
Each time Visual Basic encounters the Next statement, it increments the counter by step and returns to the For statement. Again it compares the counter to end, and again it either executes the block or terminates the loop depending on the result. This process continues until the counter passes end or an Exit For statement is executed.
and returns to the For statement. أليس هذا عودة للأمر For مرة ثانية

الله ربي حقا