منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : كيفية تجاوز الاخطاء
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
سلام عليكم ,, كيف حالكم اخواني ان شاء الله بخير


ابي طريقة لتجاوز الاخطاء اللي في Textbox

عملت الة حاسبة ووضعت 6 Textbox ولما يكون فيه فراغ ماكتبت فيه شي , ابيه يطلع لي رسالة خطأ

والكود التالي عليه الخطأ :

كود :
Text1.text = (Val(Text2.text) * Val(Text3.text)) + (Val(Text4.text) * Val(Text5.text)) / Val(Text6.text)



هذا الكود اللي يظهر لي خطأ واتمنى تساعدوني بأقرب وقت
ودمتم بألف خير[/php]
ضع هذا الامر في اول الحدث

PHP كود :
On Error Resume Next 
اخى الكود الصحيح هو

الكود بتاعك فيه تعديلات بسيطة وانا عدلتهالك
كود :
Text1.Text = Val(Text2.Text) * Val(Text3.Text) + Val(Text4.Text) * Val(Text5.Text) / Val(Text6.Text)

بدون استخدام كود تفادي الاخطاء
on error resume next

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

كود :
if  not text6.text=0 then
Text1.text = (Val(Text2.text) * Val(Text3.text)) + (Val(Text4.text) * Val(Text5.text)) / Val(Text6.text)
endif

يعني هذه العملية لن تنفذ في حال التكست6 =0
if text6="" then
"خطأ"msgbox
end if
استخدام هذا الكود يضهر رسالة خطأ في حالة كون text6 فارغ
يعطيكم الف عافية ,,