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