تتبع الأخطاء؟

بواسطة القالب try catch finally

تضع في جملة try الكود الذي تريده تنفيذه وتتوقع أو تتعمد صدور خطأ منه. وفي جملة catch الكود اللازم لمعالجة الخطأ .

جملة catch اختيارية ، والكود الذي بداخلها ينفذ سواء تم اصطياد الخطأ في جملة catch أم لم يتم اصطياده.

الصيغة العامة

Try
{ مقطع من الكود }

Catch اسم_الاستثناء As نوع الاستثناء
{ مقطع معالجة هذا النوع من الاستثناءات }
……….
Catch يمكن أن يتكرّر مقطع 
لأيّ عدد من المرّات، بأنواع مختلفة من الاستثناءات
……….
Catch اسم_الاستثناء As Exception
{ مقطع معالجة باقي أنواع الاستثناءات }
Finally
{  مقطع إلزامي، ينفّذ في كلّ الأحوال}
End Try

مثلا في زر الناتج في برنامج آلة حاسبة

Private Sub BtEquals_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles BtEquals.Click
Dim Result As Double
Operand2 = Val(LbDisplay.Text)
Try
Select Case Operator

Case "+"
Result = Operand1 + Operand2

Case "-"
Result = Operand1 - Operand2

Case "*"
Result = Operand1 * Operand2

Case "/"
If Operand2 <> "0" Then _
Result = Operand1 / Operand2
End Select

LbDisplay.Text = Result

Catch Exc As Exception
MsgBox(Exc.Message)
LbDisplay.Text= "ERROR"

Finally
' هذه الجملة سيتم تنفيذها في كل الأحوال، سواء حدث استثناء أم لا
' وذلك لأنّنا نريد مسح محتويات الشاشة لاستقبال الأرقام الجديدة
ClearDisplay = True
End Try
End Sub