طلبات الأعضاء للعام الدراسي 2012-2013

[MR : ABO BATTA]

المشاركة الأصلية كتبت بواسطة hass****hawy

الغريب أن نوع بيان المعاملات first و second يؤثر فى مكان حدوث الخطأ
فعندما يكون نوع بيان المعاملات first و second نفس نوع بيان الدالة وهو byte يحدث الخطأ عند الأمر total = first + second
و عندما يكون نوع بيان المعاملات first و second نفس نوع بيان القيمة الراجعة total وهو مثلاً short يحدث الخطأ عند الأمر return total

هو ده الكلام المظبوط والاستنتاج الصحيح يا مستر حسن

[سيف سالم]

المشاركة الأصلية كتبت بواسطة hass****hawy

الغريب أن نوع بيان المعاملات First و second يؤثر فى مكان حدوث الخطأ
فعندما يكون نوع بيان المعاملات First و second نفس نوع بيان الدالة وهو Byte يحدث الخطأ عند الأمر total = First + second
و عندما يكون نوع بيان المعاملات First و second نفس نوع بيان القيمة الراجعة total وهو مثلاً Short يحدث الخطأ عند الأمر Return total

فعندما يكون نوع بيان المعاملات First و second نفس نوع بيان الدالة وهو Byte يحدث الخطأ عند الأمر total = First + second
لماذا لا تفسر هكذا
فعندما يكون نوع بيان المعاملات First و second نفس نوع بيان الدالة وهو Byte يحدث الخطأ عند الأمر total = First + second لانه لايمكن التخزين في نوع مغاير الا هو نوع المتغير داخل الدالة

اما

و عندما يكون نوع بيان المعاملات First و second نفس نوع بيان القيمة الراجعة total وهو مثلاً Short يحدث الخطأ عند الأمر Return total
تفسر هكذا
و عندما يكون نوع بيان المعاملات First و second مغايرنوع بيان الدالة وهو Byte ومتفق مع نوع بيان المتغير داخل الدالة total وهو مثلاً Short يحدث الخطأ عند الأمر Return total لانه ليس نوع بيان الدالة byte

[tigerload]

[QUOTE=سيف سالم;5289582]سؤال نرجو الرد عليه مع التفسير

Public Class Form1


Function Sum(ByVal First As Byte, ByVal second As Byte) As Byte
Dim total As Short
total = First + second
Return total

End Function

مع خالص تقديري للاراء ولاكن الصورة المرفقة موضحة المشكلة ولا ادري لما الجدال
1- لاحظ التظليل اتي اين في الصورة اتى على السطر الخاص بجملة التخصيص
total = First + second
مع سطر اعلان الدالة
Function Sum(ByVal First As Byte, ByVal second As Byte) As Byte
تمام
2 - وقال ان الخطأ overflow تمام
نوضح
انت جمعت byte + byte وخصصته في short تمام
ورجعت ال Short ل byte تمام
لحد هنا عادي
بس لما تستخدم قيم تعدي الحد بتاع الدالة byte لن يستطيع المترجم تحويلها ضمنيا كما في التخصيص العادي : - إزاي تحط مثلا 2 لتر في ازازة 1 لتر مثلاً ماشي الحال
عشان كدة المترجم علملك على سطر الجمع وظللك بالرصاصي سطر اعلان الدالة عشان يقلك خلي بالك انت معلن ايع وجا تخصص ايه
فين بقى القيمة overflow ؟
فين طبعا في سطر التخصيص
عشان كدة علملك عليه اصفر وقالك overflow مع سطر الاعلان عشان طلاحظ الي انت اخطأته كأنه بيقلك متصحى يا عم انت نايم خلي بالك
وشكراً
أخوكم سعد

[سيف سالم]

[QUOTE=tigerload;5292797]

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

سؤال نرجو الرد عليه مع التفسير

Public Class Form1


Function Sum(ByVal First As Byte, ByVal second As Byte) As Byte
Dim total As Short
total = First + second
Return total

End Function

مع خالص تقديري للاراء ولاكن الصورة المرفقة موضحة المشكلة ولا ادري لما الجدال
1- لاحظ التظليل اتي اين في الصورة اتى على السطر الخاص بجملة التخصيص
total = First + second
مع سطر اعلان الدالة
Function Sum(ByVal First As Byte, ByVal second As Byte) As Byte
تمام
2 - وقال ان الخطأ overflow تمام
نوضح
انت جمعت byte + byte وخصصته في short تمام
ورجعت ال Short ل byte تمام
لحد هنا عادي
بس لما تستخدم قيم تعدي الحد بتاع الدالة byte لن يستطيع المترجم تحويلها ضمنيا كما في التخصيص العادي : - إزاي تحط مثلا 2 لتر في ازازة 1 لتر مثلاً ماشي الحال
عشان كدة المترجم علملك على سطر الجمع وظللك بالرصاصي سطر اعلان الدالة عشان يقلك خلي بالك انت معلن ايع وجا تخصص ايه
فين بقى القيمة overflow ؟
فين طبعا في سطر التخصيص
عشان كدة علملك عليه اصفر وقالك overflow مع سطر الاعلان عشان طلاحظ الي انت اخطأته كأنه بيقلك متصحى يا عم انت نايم خلي بالك
وشكراً
أخوكم سعد

نشكر الاستاذ سعد
يعنى تقصد الجهاز بيقولك انك اخطأت لان short ليس هو نوع القيمة الراجعة وان نوع القيمة الراجعة هو byte

[tmrmsr]

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

Public Class Form1
Function Sum(ByVal First As Byte, ByVal second As Byte) As Byte
Dim total As Short
total = First + second
Return total
End Function

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
MsgBox(Sum(255, 1))
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim total As Short
total = 255 + 1
MsgBox(total))
End Sub

End Class

عند الضغط على button2 ماذا يحدث

عند الضغط على button1 ماذا يحدث

طبعا مع التفسير

[hassanalhawy]

ممكن حضرتك الإنتقال للرابط التالى حيث تم إثارة الموضوع وبه العديد من المناقشات
مطلوب الحل فورا

[tmrmsr]

1- يجوز الإعلان عن متغير أو غيره نوع بيانه يختلف عن نوع بيان الدالة ثم نجعله القيمة الراجعة (Value)
2- عندما تستقبله الدالة عند استدعائها يتم تحويله لنفس نوع بيان الدالة
حيث أن الدالة Sum نوع بيانها Byte وتم استخدام المتغير Total المعلن في نطاق الدالة Sum بنوع بيان Short كقيمة راجعة

3- عند استدعاء الدالة Sum في نطاق معالج الحدث الخاص ب Button1
تم تخصيص قيمة للوسيط الأول والوسيط الثاني أكبر من مدى نوع بيان الدالة وهذا لا يجوز فيتسبب في خطأ Runtime
منها نخلص
عند استدعاء الدالة لابد من تخصيص قيم من نفس نوع بيان وسائط الدالة أو يمكن تحويلها لهذا النوع وأن تكون في مدى القيم المسموح بها
الإعلان عن الدالة سليم لكن الاستدعاء لم يلتزم بمواصفات الدالة (مجازا)

[hassanalhawy]

255 ليست أكبر من مدى الـ Byte
((MsgBox(Sum(255, 1

[tmrmsr]

المشاركة الأصلية كتبت بواسطة hass****hawy

255 ليست أكبر من مدى الـ Byte
((MsgBox(Sum(255, 1

معذرة
ناتج الجمع وعند التحويل لنوع بيان الدالةbyte

[tmrmsr]

في زر Button 2
تم تخصيص قيمة من خلال ناتج تعبير 255+1
التي هي في حدود نطاق مدى نوع المتغير

لذلك عرضت الرسالة
ولم يحدث خطأ

لكن في زر Button1
المتغير استقبل القيمة لأنها تناسبه لكن عند تحويلها لنوع بيان الدالة القيمة أصبحت خارج نطاق نوع بيان الدالة
فحدث خطأ Overflow
وشكرا

[hassanalhawy]

الخطأ لم يكن فى الأمر Return total ولكنه حدث فى الأمر total = First + second
وكما ذكرت حضرتك فإن total نوعها Short سوف تستقبل ناتج الجمع دون مشاكل
فكيف يظهر الخطأ فى total = First + second

[tmrmsr]

المشاركة الأصلية كتبت بواسطة hass****hawy

الخطأ لم يكن فى الأمر return total ولكنه حدث فى الأمر total = first + second
وكما ذكرت حضرتك فإن total نوعها short سوف تستقبل ناتج الجمع دون مشاكل
فكيف يظهر الخطأ فى total = first + second

الأمر يحتاج لبحث واطلاع امهلني بعض من الوقت

[tmrmsr]

المشاركة الأصلية كتبت بواسطة hass****hawy

الخطأ لم يكن فى الأمر Return total ولكنه حدث فى الأمر total = First + second
وكما ذكرت حضرتك فإن total نوعها Short سوف تستقبل ناتج الجمع دون مشاكل
فكيف يظهر الخطأ فى total = First + second

الخطأ حدث عن تنفيذ السطر total = First + second
بسبب عندما يتم جمع قيمة المتغير First الذي نوعه Byte والمتغير Second الذي نوع Byte
ناتج الجمع يتم تمثيله أيضا في شكل Byte
وبما أن ناتج الجمع أكبر من الحد المسموع يحدث خطأ Runtime

لو القيمة في الحد المسموح يتم تحويل الناتج الذي نوعه Byte إلى Short
ليخزن في المتغير Total

ثم يتم تحويل المتغير Total إلى Byte ويرجع للدالة

وحلا لهذا الوضع
قم بعمل تحويل صريح
total =CShort( First) +CShort ( second)

ستجد الخطأ يظهر في سطر Return Total

[سيف سالم]

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

1- يجوز الإعلان عن متغير أو غيره نوع بيانه يختلف عن نوع بيان الدالة ثم نجعله القيمة الراجعة (Value)
2- عندما تستقبله الدالة عند استدعائها يتم تحويله لنفس نوع بيان الدالة
حيث أن الدالة Sum نوع بيانها Byte وتم استخدام المتغير Total المعلن في نطاق الدالة Sum بنوع بيان Short كقيمة راجعة

3- عند استدعاء الدالة Sum في نطاق معالج الحدث الخاص ب Button1
تم تخصيص قيمة للوسيط الأول والوسيط الثاني أكبر من مدى نوع بيان الدالة وهذا لا يجوز فيتسبب في خطأ Runtime
منها نخلص
عند استدعاء الدالة لابد من تخصيص قيم من نفس نوع بيان وسائط الدالة أو يمكن تحويلها لهذا النوع وأن تكون في مدى القيم المسموح بها
الإعلان عن الدالة سليم لكن الاستدعاء لم يلتزم بمواصفات الدالة (مجازا)

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

في زر Button 2
تم تخصيص قيمة من خلال ناتج تعبير 255+1
التي هي في حدود نطاق مدى نوع المتغير

لذلك عرضت الرسالة
ولم يحدث خطأ

لكن في زر Button1
المتغير استقبل القيمة لأنها تناسبه لكن عند تحويلها لنوع بيان الدالة القيمة أصبحت خارج نطاق نوع بيان الدالة
فحدث خطأ Overflow
وشكرا

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

معذرة
ناتج الجمع وعند التحويل لنوع بيان الدالةbyte

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

الأمر يحتاج لبحث واطلاع امهلني بعض من الوقت

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

الخطأ حدث عن تنفيذ السطر total = First + second
بسبب عندما يتم جمع قيمة المتغير First الذي نوعه Byte والمتغير Second الذي نوع Byte
ناتج الجمع يتم تمثيله أيضا في شكل Byte
وبما أن ناتج الجمع أكبر من الحد المسموع يحدث خطأ Runtime

لو القيمة في الحد المسموح يتم تحويل الناتج الذي نوعه Byte إلى Short
ليخزن في المتغير Total

ثم يتم تحويل المتغير Total إلى Byte ويرجع للدالة

وحلا لهذا الوضع
قم بعمل تحويل صريح
total =CShort( First) +CShort ( second)

ستجد الخطأ يظهر في سطر Return Total

اولا نتوجه بالشكر للاستاذ تامر
"تم تخصيص قيمة للوسيط الأول والوسيط الثاني أكبر من مدى نوع بيان الدالة وهذا لا يجوز فيتسبب في خطأ Runtime"
هل هذا استنتاج ام مسند الى رأي علمى
"المتغير استقبل القيمة لأنها تناسبه"
طبعا المتغير لم يستقبله من الاساس رغم ان القيمة تناسبة تماما ولم تتخطى المدى short
"حدث عن تنفيذ السطر total = First + second
بسبب عندما يتم جمع قيمة المتغير First الذي نوعه Byte والمتغير Second الذي نوع Byte
ناتج الجمع يتم تمثيله أيضا في شكل Byte
وبما أن ناتج الجمع أكبر من الحد المسموع يحدث خطأ Runtime "
طبعا ناتج الجمع 256 يناسب النوع short تماما بعكس ما ذكرتم وحدث الخطأ وهذا هو المطلوب تفسيره لماذا لم يقبل النوع short تخزين 256 التى تناسب معه
"لو القيمة في الحد المسموح يتم تحويل الناتج الذي نوعه Byte إلى Short
ليخزن في المتغير Total"
القيمة 256 في الحد المسموح للمكان التى ستخصص له total
وحلا لهذا الوضع
نحن لا نريد حلا ولكن نريد تفسير ليه متغير يرفض قبول قيمة مسموح بها في نطاقه في مكان ويقبلها في مكان اخر

طبعا الهدف ليس سوى الوصول الصح ايه
هل ما بعد return القيمة الراجعة نوعها هو النوع ما بعد as في تعريف الدالة ام لا

[hassanalhawy]

ممكن حضرتك تنظر لتلك المناقشات

المشاركة الأصلية كتبت بواسطة hass****hawy

أولاً بالنسبة للزر الأول قيمة tatal سوف تكون 256 وهذا الرقم تتقبله tatal لأنها من نوع short
ولكن عند تحويل تلك القيمة الراجعة من نوع بيان short إلى نوع بيان byte اللى هوا نوع بيان الدالة sum يصطدم التحويل بأعلى قيمة لمدى الـ byteوهو 255 فيعطى رسالة خطأ وقت التشغيل
ولكن السؤال هنا
إذا كان شرحى هذا صحيح
فلماذا لم يشر للخطأ للسطر return total ؟ ولكنه أشار للسطر السابق له وهو total = first + second
هذا غير مفهوم
عذراً أستاذ / سيف فأنا أسأل وأرد على نفسى

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

اصبت الحقيقة
لماذا الرن تيم في هذا السطر
ولماذا نفذ في button2
البرنامج لم يصل بعد للقيمة الراجعة حتى يصدم بالنوع

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

انت عارف
لو اردنا ان نفسر
لماذا الكمبيوتر لم يستطع تخصيص 256 في النوع short
هو نفس السبب
فسر
1+2=4

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

يبقى نوصل الى ان نوع القيمه الراجعه هى نفس نوع الداله برغم اختلاف نوع الاعلان

المشاركة الأصلية كتبت بواسطة hass****hawy

هذا هو التفسير المنطقى لذلك
وحتى لو كتبنا الكود كما يلى سوف يعطى خطأ فى نفس السطر

function sum(byval first as byte, byval second as byte) as
dim total as short
total = first + second
total = total - 1
return total
end function

بالرغم من أن total أصبحت قيمتها فى المدى المسموخ لـ byte

المشاركة الأصلية كتبت بواسطة hass****hawy

أنظر لهذا التعديل وستعجب له

function sum(byval first as short, byval second as short) as byte
dim total as short
total = first + second
return total

end function



private sub button1_click(byval sender as system.object, byval e as system.eventargs) handles button1.click
msgbox(sum(255, 1))
end sub

ستجد أن الخطأ ظهر فى سطر return total

المشاركة الأصلية كتبت بواسطة hass****hawy

أنظر لهذا التعديل وستعجب له

function sum(byval first as string, byval second as string) as byte
dim total as string
total = first + second
return total

end function



private sub button1_click(byval sender as system.object, byval e as system.eventargs) handles button1.click
msgbox(sum("255", "1"))
end sub

ستجد أن الخطأ ظهر فى سطر return total

المشاركة الأصلية كتبت بواسطة hass****hawy

الغريب أن نوع بيان المعاملات first و second يؤثر فى مكان حدوث الخطأ
فعندما يكون نوع بيان المعاملات first و second نفس نوع بيان الدالة وهو byte يحدث الخطأ عند الأمر total = first + second
و عندما يكون نوع بيان المعاملات first و second نفس نوع بيان القيمة الراجعة total وهو مثلاً short يحدث الخطأ عند الأمر return total