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