حدد نوع الخطأ الذى يمكن أن يحدث عند تنفيذ الكود Code التالى وبين سببه ثم قم بتعديله حتى يمكن تجنب هذا الخطأ ؟
Dim Radius As Byte
Radius = Me.TextBox1.Text
نسعد بكم أعزائي الطلاب والطالبات في المعلم الناجح يسرنا بزيارتكم أن نقدم الاجابة على أسئلتكم المتنوعة من مناهج التعليم السعودي من مصدرها الصحيح ولكم الأن إجابة السؤال ألذي يقول :- حدد نوع الخطأ الذى يمكن أن يحدث عند تنفيذ الكود Code التالى وبين سببه ثم قم بتعديله حتى يمكن تجنب هذا الخطأ ؟
Dim Radius As Byte
Radius = Me.TextBox1.Text
//
والآن أعزائي الزوار في موقع المعلم الناجح almalnaajih نقدم لكم الأجابة الصحيحه والنموذجية على سؤالكم وهي كالتالي حدد نوع الخطأ الذى يمكن أن يحدث عند تنفيذ الكود Code التالى وبين سببه ثم قم بتعديله حتى يمكن تجنب هذا الخطأ ؟
Dim Radius As Byte
Radius = Me.TextBox1.Text
الإجابة هي
حدد نوع الخطأ الذى يمكن أن يحدث عند تنفيذ الكود 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 و سيتم شرحها فى الفصل الثانى
.