الاخطاء و انواعها
عند عمل برنامج بالفيجوال بيسيك, يمكن ان تخطئ في كتابة كود او ما شابه, بل هناك ايضا اخطاء غير مرئية تحدث اثناء تشغيل البرنامج باستمرار.
انواع الاخطاء
SyntaxError: و هذا النوع من الاخطاء يحدث اثناء كتابة الكود
RunTimeError: و هو توقف مفاجئ للبرنامج, مثلا عند تحميل تحميل صورة في C مثلا, ولم يجد البرنامج هذه الصورة, فيحدث هذا النوع من الاخطاء..
LogicalError: و هو خطأ يحدث من قبل المبرمج, فيكتب كود تؤدي الي نتيجة لا يريدها...
تفادي الاخطاء
تفادي جميع الاخطاء التي تحدث بالبرنامج:
اتفادي جميع الاخطاء التي تحدث اثناء تشغيل البرنامج اكتب هذا السطر في بداية كل كود:
On Error Resume Next
رسالة تنبيه اثناء حدوث RunTimeError:
عند حدوث RunTimeError تظهر رسالة محتوياتها كالتالي:
RunTimeError ‘#’
ErrType
حيث تكون # هي رقم الخطأ, و ErrType نوع الخطأ مثلCantLoadFile او CantFindFile..
و لنفترض ان نوع الخطأ هو CantFindFile اي لا يمكن العثور علي الملف و يحدث اثناء تحميل صورة و نص غير موجود, اما رقمه فهو 53, و تريد كتابة كود عند حدوث هذا الخطأ تظهر رسالة تنبيه, فاكتب الكود هكذا:
On Error GoTo Bibo
Bibo:
If Err.Number = 53 Then
MsgBox “هذا الملف لا وجود له..”, 16
End If
و هكذا عند وقوع هذا الخطأ ستظهر هذه الرسالة..
و اذا اردت ان يظهر رقم الخطأ و سببه برسالة باسم مشروعك استخدم هذا الكود:
On Error GoTo alaa
alaa:
If Err Then
MsgBox Err.Number & Chr(10) & Err.Description, 16
End
End If
عند عمل برنامج بالفيجوال بيسيك, يمكن ان تخطئ في كتابة كود او ما شابه, بل هناك ايضا اخطاء غير مرئية تحدث اثناء تشغيل البرنامج باستمرار.
انواع الاخطاء
SyntaxError: و هذا النوع من الاخطاء يحدث اثناء كتابة الكود
RunTimeError: و هو توقف مفاجئ للبرنامج, مثلا عند تحميل تحميل صورة في C مثلا, ولم يجد البرنامج هذه الصورة, فيحدث هذا النوع من الاخطاء..
LogicalError: و هو خطأ يحدث من قبل المبرمج, فيكتب كود تؤدي الي نتيجة لا يريدها...
تفادي الاخطاء
تفادي جميع الاخطاء التي تحدث بالبرنامج:
اتفادي جميع الاخطاء التي تحدث اثناء تشغيل البرنامج اكتب هذا السطر في بداية كل كود:
On Error Resume Next
رسالة تنبيه اثناء حدوث RunTimeError:
عند حدوث RunTimeError تظهر رسالة محتوياتها كالتالي:
RunTimeError ‘#’
ErrType
حيث تكون # هي رقم الخطأ, و ErrType نوع الخطأ مثلCantLoadFile او CantFindFile..
و لنفترض ان نوع الخطأ هو CantFindFile اي لا يمكن العثور علي الملف و يحدث اثناء تحميل صورة و نص غير موجود, اما رقمه فهو 53, و تريد كتابة كود عند حدوث هذا الخطأ تظهر رسالة تنبيه, فاكتب الكود هكذا:
On Error GoTo Bibo
Bibo:
If Err.Number = 53 Then
MsgBox “هذا الملف لا وجود له..”, 16
End If
و هكذا عند وقوع هذا الخطأ ستظهر هذه الرسالة..
و اذا اردت ان يظهر رقم الخطأ و سببه برسالة باسم مشروعك استخدم هذا الكود:
On Error GoTo alaa
alaa:
If Err Then
MsgBox Err.Number & Chr(10) & Err.Description, 16
End
End If
0 التعليقات:
إرسال تعليق
ما هو رايكم فى المدونة ؟ او يتم الاقتراح لاضافة اشياء اخرى ؟