IBM Lotus Symphony
|
Palauttaa virhekoodin, joka tunnistaa ohjelman suorituksen aikana ilmenneen virheen.
Err
Kokonaisluku
Err-funktion avulla voit määrittää virheen ja korjaustoimenpiteen virheenkäsittelyohjelmassa.
sub ExampleError
on error goto ErrorHandler REM Määritä virheenkäsittely
Dim iVar as Integer
Dim sVar As String
REM Olematon tiedosto aiheutti virheen
iVar = Freefile
Open "\file9879.txt" for Input as #iVar
Line Input #iVar, sVar
Close #iVar
exit sub
ErrorHandler:
& Error$ + chr(13) + "At line : " + Erl + chr(13) + Now , 16 ,"an error occurred"
end sub