IBM Lotus Symphony
|
Vykonávanie programu pokračuje v rámci príkazov Sub alebo Function v riadku procedúry uvedenom v návestí.
Pozrite si Parametre
Sub/Function
blok príkazov
GoTo Label1
návestie_2:
blok príkazov
Exit Sub
návestie_1:
blok príkazov
GoTo návestie_2
End Sub/Function
Príkazom GoTo dajte aplikácii IBM® Lotus® Symphony™ Basic pokyn, aby pokračovala v spustení programu na inom mieste v danej procedúre. Táto poloha musí byť indikovaná návestím. Zadávanému návestiu priraďte názov a ukončite ho dvojbodkou (":").
Varovanie: Nemôžete použiť príkaz GoTo na odchod zo Sub alebo Function.
Sub Príklad_On_Gosub
Dim iVar ako typ Integer
Dim sVar As String
iVar = 2
sVar =""
On iVar GoSub Sub1, Sub2
On iVar GoTo riadok_1, riadok_2
Exit Sub
Sub1:
sVar =sVar & " Zo Sub 1 do" : Return
Sub2:
sVar =sVar & " Zo Sub 2 do" : Return
riadok_1:
sVar =sVar & " návestie_ 1"
riadok_2:
sVar =sVar & " návestie 2"
Print sVar
End Sub