Module
Contents
Index 🔎︎

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

Lauseella haaraudutaan yhteen useista mahdollisista ohjelmakoodin riveistä, riippuen numeerisen lausekkeen arvosta.

## Syntaksi:

    On N GoSub tunnus1[, tunnus2[, tunnus3[,...]]]
    On numeerinen_lauseke GoTo tunnus1[, tunnus2[, tunnus3[,...]]]

## Parametrit:

Numeerinen_lauseke: Arvoltaan väliltä 0...255 oleva numeerinen lauseke, joka määrää, mihin rivitunnukseen ohjelma haarautuu. Jos numeerinen_lauseke on 0, lausetta ei suoriteta. Jos numeerinen_lauseke on suurempi kuin 0, ohjelma hyppää tunnukseen, jonka asema vastaa lausekkeen arvoa (1 = ensimmäinen tunnus; 2 = toinen tunnus ...)

Tunnus: kohderivi GoTo tai GoSub-rakenteen mukaisesti.

GoTo tai GoSub -käytänteet ovat voimassa.

## Esimerkki:

    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 & " Sub1:stä" : Return
    Sub2:
        sVar =sVar & " Sub2:sta" : Return
    Line1:
        sVar =sVar & " Line1:een" : GoTo Ende
    Line2:
        sVar =sVar & " Line2:een"
    Ende:
        MsgBox sVar,0,"On...GoSub"
    End Sub