Module
Contents
Index 🔎︎

# On...GoSub Statement; On...GoTo Statement

បំបែក​ទៅ​ជួរ​មួយ​នៃ​ជួរ​ដែល​បាន​បញ្ជាក់​​ជា​ច្រើន​ក្នុង​កូដ​កម្មវិធី អាស្រ័យ​លើ​តម្លៃ​នៃ​កន្សោម​លេខ ។

## វាក្យ​សម្ពន្ធ ៖

    On N GoSub Label1[, Label2[, Label3[,...]]]
    On NumExpression GoTo Label1[, Label2[, Label3[,...]]]

## ប៉ារ៉ាម៉ែត្រ ៖

NumExpression ៖ កន្សោម​ចំនួន​គត់មួយ​ចំនួន​ដែល​ស្ថិត​នៅ​ចន្លោះ ០ និង ២៥៥ ដែល​កំណត់​ថា​តើ​ជួរ​ណា​មួយ​ដែល​កម្មវិធី​បែក​មែក​ទៅ ។ ប្រសិន​បើ NumExpression ស្មើ 0 សេចក្តី​ថ្លែង​ការណ៍​មិន​ត្រូវ​បាន​ប្រតិបត្តិ​ទេ ។ ប្រសិន​បើ NumExpression ធំ​ជាង ០ កម្ម​វិធី​លោត​ទៅ​ស្លាក​ដែល​មាន​លេខ​ទីតាំង​ដែល​ត្រូវ​គ្នា​ទៅ​នឹង​កន្សោម (1 = ស្លាក​ទី​មួយ 2 = ស្លាក​ទី​ពីរ)

Label ៖ ជួរ​គោលដៅ​ដោយ​យោង​ទៅ​តាម​រចនា​សម្ព័ន្ធ GoTo ឬ GoSub ។

ការ​កំណត់ GoTo ឬ GoSub គឺ​ត្រឹមត្រូវ ។

## ឧទាហរណ៍ ៖

    Sub ExampleOnGosub
    Dim iVar As Integer
    Dim sVar As String
        iVar = 2
        sVar =""
        On iVar GoSub Sub1, Sub2
        On iVar GoTo Line1, Line2
        Exit Sub
    Sub1:
        sVar =sVar &  " From Sub 1 to" : Return
    Sub2:
        sVar =sVar &  " From Sub 1 to" : Return
    Line1:
        sVar =sVar &  " Label 1" : GoTo Ende
    Line2:
        sVar =sVar &  " Label 1"
    Ende:
        MsgBox sVar,0,"On...GoSub"
    End Sub