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

[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 ونتوقع القيم
فما هو حل السؤال من غير الجهاز

[سيد بيكو]

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

[mahgooz]

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

[سيف سالم]

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

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

قيم ء ستتراوح ما بين 0 و 3
هات برهانك على صحة حلك

[mahgooz]

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