Try Catch

[مجید آرتا 5,874]

به نام خدا

سلام

توی زبان های برنامه نویسی مختلف ساختارهایی جهت مهار و کنترل خطاها استفاده میشه که بیسیک هم از این مورد مستثنی نیست

این ساختار به صورت زیر استفاده میشه:

Try
کد های مورد نظرتان
Catch
Log("Error")
End Try

یک مثال می زنیم بهتر متوجه شید

مثال:برنامه ای بنویسید که عددی رو از کاربر بگیره و در قالب یک مسج باکس تک تک ارقام عدد ورودی رو نشون بده

Sub Button1_Click   
Try
Dim n As Int
n=EditText1.Text
Do While (n>0)
Dim s As Int
s=n Mod 10
Msgbox(s,"Try")
n=n/10
Loop
Catch
Log("Error")
End Try
End Sub

توجه کنید ما برای اینکه برنامه مون هنگام کار کرش نکنه و خطایی پیش نیاد از TRY استفاده می کنیم

کدهای بالا هم چیزه مهمی ندارن اول اومدیم یک متغیر اینتجر تعریف کردیم برابرش کردیم با عدد ورودی

یک حلقه تعریف کردیم گفتیم تا زمانی اجرا بشه که عدد بزرگتر از صفرهه

اومدیم باقیمانده عدد ورودی بر 10 رو توی یک متغیر دیگه ریختیم و توی مسج باکس نشون دادیم

و در اخر دوباره عدد ورودی رو تقسیم بر 10 میکنیم تا ارقام بعدی بدست بیان

امیدوارم مفید باشه

[asajadi84 567]

ممنون از آموزش مفیدتون.

منم میخواستم دو مورد از کاربرد های این کد رو بگم.

1- وقتی با کتابخونه ی phone دستور ارسال ایمیل یا اس ام اس یا ... داده میشه ممکنه به دلایل ممکن نبودن ارتباط برنامه ارور بده که با این کد میشه توی توست مسیج پیام داد "متاسفانه ارتباط ممکن نیست"

2- وقتی که کاربر روی گوشی اش کافه بازار نصب نیست ممکنه با کلیک روی مواردی مثل «نظر و امتیاز به برنامه در بازار» یا «دیگر برنامه های ما» با ارور روبرو بشه که با این کد میشه توی یک مسیج باکس یا توست مسیج اطلاع بدیم "بازار روی گوشی نصب نیست"

هر چند که برای مورد 2 علاوه بر این کار میشه نصب بودن بازار چک بشه (با کتابخونه ای مثل AriaLib امکان اعلام وضعیت نصب بودن یه برنامه روی گوشی مخاطب هست)

[alirezakazemizaroomi 437]

به نام خدا

سلام

توی زبان های برنامه نویسی مختلف ساختارهایی جهت مهار و کنترل خطاها استفاده میشه که بیسیک هم از این مورد مستثنی نیست

 

امیدوارم مفید باشه

 

ممنون از آموزشتون

آیا برای فورس کلوز هم میشه از این روش استفاده کرد،من استاده کردم جواب نداد؟