Erl Function

āĻĒā§āϰ⧋āĻ—ā§āϰāĻžāĻŽ āϚāĻžāϞāύāĻžāϰ āϏāĻŽā§Ÿ āϝ⧇ āϏāĻžāϰāĻŋāϤ⧇ āĻ¤ā§āϰ⧁āϟāĻŋ āϏāĻ‚āϘāϟāĻŋāϤ āĻšā§Ÿ āϤāĻž āĻĒā§āϰāĻĻāĻžāύ āĻ•āϰ⧇ āĻĨāĻžāϕ⧇āĨ¤

āϏāĻŋāύāĻŸā§āϝāĻžāĻ•ā§āϏ:


Erl

āĻĒā§āϰāĻĻāĻžāύ āĻŽāĻžāύ:

Integer

āĻĒā§āϝāĻžāϰāĻžāĻŽāĻŋāϟāĻžāϰ:

āύ⧋āϟ āφāχāĻ•āύ

Erl āĻĢāĻžāĻ‚āĻļāύāϟāĻŋ āĻļ⧁āϧ⧁āĻŽāĻžāĻ¤ā§āϰ āϕ⧋āύ āϏāĻžāϰāĻŋ āϞ⧇āĻŦ⧇āϞ āύ⧟, āĻāĻ•āϟāĻŋ āϏāĻžāϰāĻŋāϰ āĻ•ā§āϰāĻŽ āĻĒā§āϰāĻĻāĻžāύ āĻ•āϰ⧇ āĻĨāĻžāϕ⧇āĨ¤


āωāĻĻāĻžāĻšāϰāĻŖ:


Sub ExampleError
on error goto ErrorHandler REM āĻ¤ā§āϰ⧁āϟāĻŋ āĻšā§āϝāĻžāĻ¨ā§āĻĄāϞāĻžāϰ āϏ⧇āϟ āφāĻĒ āĻ•āϰ⧇ āĻĨāĻžāϕ⧇
Dim iVar As Integer
Dim sVar As String
āĻŦāĻŋāĻĻā§āϝāĻŽāĻžāύ āύ⧟ āĻāĻŽāύ āĻāĻ•āϟāĻŋ āĻĢāĻžāχāϞ⧇āϰ āĻĻā§āĻŦāĻžāϰāĻž REM Error āĻšā§Ÿ
    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

Please support us!