IBM Lotus Symphony


‏‎Erl Function [Runtime]‎‏

يتم ارجاع رقم السطر حيث تم حدوث خطأ أثناء تنفيذ البرنامج.

الصيغة:

Erl

القيمة المرتجعة:

رقم صحيح

المعاملات:

شارة الملاحظة تقوم وظيفة Erl function فقط بارجاع رقم السطر وليس العلامة المميزة لسطر.

مثال:

sub ExampleError

on error goto ErrorHandler REM Set up error handler

Dim iVar as Integer

Dim sVar As String

REM Error caused by 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) + "In line : " + Erl + chr(13) + Now , 16 ,"An error occurred"

end sub


التعليق التقييمي عن البرنامج | المزيد من المطبوعات الفنية | العلامات التجارية