IBM Lotus Symphony


On...GoSub-Anweisung; On...GoTo-Anweisung [Laufzeit]

Verzweigt an eine von mehreren angegebenen anderen Stellen des Programms in Abhängigkeit eines numerischen Ausdrucks.

Syntax:

On N GoSub Marke1[, Marke2[, Marke3[,...]]]

On NumAusdruck GoTo Marke1[, Marke2[, Marke3[,...]]]

Parameter:

NumAusdruck Ein beliebiger numerischer Ausdruck zwischen 0 und 255, der festlegt, zu welcher Zeile das Programm verzweigt. Bei NumAusdruck = 0 wird die Anweisung nicht ausgeführt. Ist NumAusdruck größer 0, so springt das Programm zur Marke mit der dem Ausdruck entsprechenden Positionsnummer (1 = erste Marke, 2 = zweite Marke usw.)

Marke: Sprungzielzeile der GoTo- oder GoSub-Struktur.

Symbol für Hinweis Die Konventionen für GoTo oder GoSub sind zulässig.

Beispiel:

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 & " Von Sub 1 nach" : Return

Sub2:

sVar =sVar & " Von Sub 2 nach" : Return

Line1:

sVar =sVar & " Marke 1" : GoTo Ende

Line2:

sVar =sVar & " Marke 2"

Ende:

MsgBox sVar,0,"On...Gosub"

End Sub


Produktfeedback | Zusätzliche Dokumentation | Marken