Module
Contents
Index 🔎︎

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

Encrucia a una de delles llinies especificaes del códigu del programa, dependiendo del valor d'una espresión numbérica.

## Sintaxis:

    On N GoSub Etiqueta1[, Etiqueta2[, Etiqueta3[,...]]]

    On ExpresiónNum GoTo Etiqueta1[, Etiqueta2[, Etiqueta3[,...]]]

## Parámetros:

ExpresiónNum: Cualquier espresión numbérica ente 0 y 255 que determine a qué llinia encrucia'l programa. Si ExpresiónNum ye 0, la instrucción nun s'executa. Si ExpresiónNum ye mayor que 0, el programa salta a la etiqueta que tien un númberu de posición que correspuende a la espresión (1 = Primer etiqueta; 2 = Segunda etiqueta)

Etiqueta: Llinia destín acordies cola estructura GoTo o GoSub.

Les convenciones de GoTo o GoSub son válides.

## Exemplu:

    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 &  " De Sub 1 a" : Return

    Sub2:

        sVar =sVar &  " De Sub 2 a" : Return

    Line1:

        sVar =sVar &  " Etiqueta 1" : GoTo Final

    Line2:

        sVar =sVar &  " Etiqueta 2"

    Ende:

        MsgBox sVar,0,"On...GoSub"

    End Sub