Err Function

Liveras prieraran kodon kiu identigas la eraron okazintan dum programa ruliĝo.

Sintakso:

Err

Liverota valoro:

Entjero

Parametroj:

La funkcio Err uziĝas en erarotraktantaj proceduroj por trovi la eraron kaj la ĝustigan agon.

Ekzemplo:


Sub ExampleError
on error goto ErrorHandler REM Starigi traktilon por eraroj
Dim iVar as Integer
Dim sVar As String
REM Eraro okazas pro neekzistanta dosiero.
    iVar = Freefile
    Open "\file9879.txt" for Input as #iVar
    Line Input #iVar, sVar
    Close #iVar
Exit Sub
ErrorHandler:
    MsgBox "Eraro " & Err & ": " & Error$ + chr(13) + "At line : " + Erl + chr(13) + Now , 16 ,"eraro okazis"
End Sub

Error-Handling Functions