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

[mah2986491]

جزاك الله خير في كل الاحوال عارف قاصد تساعد بس السؤال الموجه بيشغل دماغ الطالب انما هو مش دايما صح الموضوع شكرا ليك وربنا يوفق

[ابو موده]

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

ضع علامة صح او خطا

يتم الاعلن عن الدالة function ووسيطها من نفس النوع

مهو دا اللي جاء في دمياط هههههههههه

انا عن نفسي قلت للطلبة ان اجابته صح

[سيف سالم]

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

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]

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

[سيف سالم]

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

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

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

[سيف سالم]

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

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

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

[hassanalhawy]

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

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

ماذا تقصد بهذا التفسير

[سيف سالم]

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

ماذا تقصد بهذا التفسير

طبعا التفسير
كان فسر
2+1=4
لما نيجى نفسر هكذا
صيغة عملية الجمع صحيحة ولا غبار عليها
حيث تم جمع عدد مع عدد فيكون الناتج عدد لان عملية الدمج عملية مغلقة
ولكن قيمة 1+2 ليست هي دي القيمة 4
هل هذا تفسير
طبعا دا اسمه لف ودوران
وسفسطة فقط ولا غير
اما التفسير
يكون هكذا
1+2=4
عملية حسابية خاطئة
فقط ولاغير وبكل بساطة

[جعيصه]

Arithmetic operation resulted in an overflow.

[جعيصه]

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

[سيف سالم]

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

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

تمام كلام جميل
ليت الاخرين يفسروا
اصحاب الراي الاخر

[hassanalhawy]

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

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

[hassanalhawy]

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

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

[hassanalhawy]

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

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

[hassanalhawy]

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