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

[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

[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]

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

[hassanalhawy]

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

[tmrmsr]

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

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

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

[tmrmsr]

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

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

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

[hassanalhawy]

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

[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

[tmrmsr]

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

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

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

[MR : ABO BATTA]

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

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

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

[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

[hassanalhawy]

لقد قمت بتطبيق ما قلته فى كود برمجة عادى وكانت النتيجة مشابهة

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim total As Short
Dim first, Second As Byte
first = 255
Second = 1
total = first + Second
MsgBox(total)
End Sub

ولكن ما علاقة ناتج الجمع 256 بالـ Byte
هل هذا له علاقة بكيفية معالجة البيانات داخل المعالج .؟
وإذا كان الأمر كذلك فهل هذه المعالجة لها إمتداد فى الذاكرة ؟
وهل عملية الإستدعاء من الذاكرة قبل المعالجة لها تأثير فى عملية التخزين؟
نريد توضيح لأن الأمر مبهم

[hassanalhawy]

وممكن توضح بنفس الكيفية ما الذى يحث عند تنفيذ الكود التالى

function sum(byval first as byte, 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