IBM Lotus Symphony
|
يتم اتاحة برنامج error-handling routine بعد حدوث خطأ، أو استئناف تنفيذ البرنامج.
On {Error GoTo Labelname | GoTo 0 | Resume Next}
GoTo Labelname: اذا حدث خطأ، يتم اتاحة error-handling routine يقوم بالبدء بالسطر "Labelname".
Resume Next: اذا حدث خطأ، سيستمر تنفيذ البرنامج من العبارة التي تلي العبارة التي حدث بها الخطأ.
GoTo 0: يتم الغاء اتاحة error handler في الاجراء الحالي.
يتم استخدام عبارة On Error GoTo للتصرف تجاه الأخطاء التي تحدث في أمر مركب. يجب أن يتم ادراج العبارة في بداية الاجراء (في برنامج error-handling routine محلي) أو في بداية وحدة برامج.
Sub ExampleReset
On Error Goto ErrorHandler
Dim iNumber As Integer
Dim iCount As Integer
Dim sLine As String
Dim aFile As String
aFile = "c:\data.txt"
iNumber = Freefile
Open aFile For Output As #iNumber
Print #iNumber, "هذا سطر من النص"
Close #iNumber
iNumber = Freefile
Open aFile For Input As iNumber
For iCount = 1 to 5
Line Input #iNumber, sLine
If sLine <>"" then
rem
end if
Next iCount
Close #iNumber
Exit Sub
ErrorHandler:
Reset
MsgBox "All files will be closed",0,"Error"
End Sub