Module
Contents
Index 🔎︎

# Erl Function

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

## བརྡ་འཕྲོད་

    Erl

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

ཧྲིལ་གྲངས་

## ཁུགས་གྲངས་

Erl རྟེན་གྲངས་ཀྱིས་ཕྲེང་ཨང་ཁོ་ན་ཕྱིར་ལོག་བྱེད་པ་ལས་ཕྲེང་གི་གཞི་གྲངས་མཚོན་ཚུལ་ཕྱིར་ལོག་མི་བྱེད།

## དཔེ་གཞི་

    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 "Error " & err & ":" & error$ + chr(13) + "In line :" + Erl + chr(13) + Now , 16 ,"An error occured"

    End Sub