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

[سيف سالم]

المشاركة الأصلية كتبت بواسطة nahla m

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

حضرتك رأى

x=4
y=-1

ثم

x=0
y=-1

و ستظل هكذا

x=0
y=-1

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

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

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

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

[albhe]

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

[سيف سالم]

المشاركة الأصلية كتبت بواسطة albhe

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

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

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

[albhe]

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

ثم

x=0
y=-1

و ستظل هكذا

x=0
y=-1

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

[سيف سالم]

المشاركة الأصلية كتبت بواسطة albhe

عند تتبع المتغيرات كانت النتيجة كالتالي وذلك بكتابة 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)

دا عمليا
يبقى التفسير
كيف

[albhe]

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

[سيف سالم]

المشاركة الأصلية كتبت بواسطة albhe

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

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

[السيد شعبان]

المشاركة الأصلية كتبت بواسطة سيف سالم

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

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

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

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

[سيف سالم]

المشاركة الأصلية كتبت بواسطة السيد شعبان

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

دا جزء اولي من النتائج في listbox

[سيد بيكو]

القيمة النهائية ل 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 ليس صحيح