حدد نوع الخطأ الذى يمكن أن يحدث عند تنفيذ الكود Code التالى وبين سببه ثم قم بتعديله حتى يمكن تجنب هذا الخطأ ؟
يسعدنا زيارتكم في موقعنا مدينه العلم الذي يقدم افضل المعلومات النموذجية والاجابة الصحيحة للسؤال التالي
حدد نوع الخطأ الذى يمكن أن يحدث عند تنفيذ الكود Code التالى وبين سببه ثم قم بتعديله حتى يمكن تجنب هذا الخطأ
Dim Radius As Byte
Radius = Me.TextBox1.Text
الإجابه الصحيحه هي
الخطأ هنا من نوع أخطاء عند التشغيل Runtime Errors . والذى يمكن أن يحدث نتيجة
1 - عند إدخال قيمة نصية فى صندوق النص TextBox1
2 - أو عند عدم إدخال أى بيانات فى صندوق النص TextBox1
3 - أو عند إدخال بيانات رقمية تتعدى حدود مدى نوع البيان Byte وهى من 0 : 255
وعندها لن يستطيع مترجم اللغة Compiler تحويل القيمة النصية أو السلسلة النصية الفارغة لنوع البيان Data Type المناسب وهو Byte ولتجنب هذا الخطأ يتم تعديل الكود كما يلى
Dim Radius As Byte
Try
Radius = Me.TextBox1.Text
Catch ex As Exception
MsgBox("من فضلك أدخل قيم عددية فى صندوق النصوص")
End Try
هناك طريقة أخرى لتجنب مثل تلك الأخطاء باستخدام الدالة Isnumeric( ) مع جملة If و سيتم شرحها فى الفصل الثانى
