Err Function

ནོར་འཁྲུལ་གྱིས་ཚབ་ཨང་ཕྱིར་ལོག་བྱེད་པ་དང་བྲིས་རྟགས་བྱ་རིམ་ལག་བསྟར་བརྒྱུད་རིམ་ནང་ཐོན་པའི་ནོར་འཁྲུལ་ལ་སྤྱོད།

བརྡ་འཕྲོད་

Err

ཕྱིར་ལོག་ཐང་

ཧྲིལ་གྲངས་

ཁུགས་གྲངས་

ནོར་འཁྲུལ་གྱིས་འཆར་ཅན་བྱ་རིམ་ལས་སྣོན་བྱས་པ་དང་ Err རྟེན་གྲངས་སྤྱད་དེ་ནོར་འཁྲུལ་གཏན་འཁེལ་ལམ་བྱ་ཐབས་ཡོ་བསྲང་བྱེད་པ།

དཔེ་གཞི་

Sub ExampleError

on error goto ErrorHandler REM ནོར་འཁྲུལ་གྱིས་བྱ་རིམ་ལས་སྣོན་བྱ་རྒྱུ་བཀོད་སྒྲིག་བྱེད་པ་

Dim iVar as Integer

Dim sVar As String

REM ཡིག་ཆ་བསྡད་མེད་པ་ལས་ནོར་འཁྲུལ་ཐོན་པ་

    iVar = Freefile

    Open "\file9879.txt" for Input as #iVar

    Line Input #iVar, sVar

    Close #iVar

Exit Sub

ErrorHandler:

    MsgBox "ནོར་འཁྲུལ་ " & Err & ":" & Error$ + chr(13) + "ཕྲེང་གྲངས་ " + Erl + chr(13) + Now , 16 ,"ནོར་འཁྲུལ་བྱུང་བ་"

End Sub