IBM Lotus Symphony
|
يتم ارجاع كود خطأ يعرف الخطأ الذي حدث أثناء تنفيذ البرنامج.
Err
رقم صحيح
يتم استخدام وظيفةErr function في برامج error-handling routines لتحديد الخطأ والتصرف التصحيحي.
sub ExampleError
on error goto ErrorHandler REM Set up error handler
Dim iVar as Integer
Dim sVar As String
REM Error occurs due to non-existent file
iVar = Freefile
Open "\file9879.txt" for Input as #iVar
Line Input #iVar, sVar
Close #iVar
exit sub
ErrorHandler:
MsgBox "Error " & Err & ": " & Error$ + chr(13) + "At line : " + Erl + chr(13) + Now , 16 ,"an error occurred"
نهاية البرنامج