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

āĻ¸āĻ‚āĻ–ā§āĻ¯āĻžāĻ¸ā§‚āĻšāĻ• āĻāĻ•ā§āĻ¸āĻĒā§āĻ°ā§‡āĻļāĻ¨ā§‡āĻ° āĻŽāĻžāĻ¨ā§‡āĻ° āĻ‰āĻĒāĻ° āĻ¨āĻŋāĻ°ā§āĻ­āĻ°āĻļā§€āĻ˛, āĻĒā§āĻ°ā§‹āĻ—ā§āĻ°āĻžāĻŽ āĻ•ā§‹āĻĄā§‡ āĻŦāĻŋāĻ­āĻŋāĻ¨ā§āĻ¨ āĻ¨āĻŋāĻ°ā§āĻĻāĻŋāĻˇā§āĻŸ āĻ˛āĻžāĻ‡āĻ¨ā§‡āĻ° āĻāĻ•āĻŸāĻŋāĻ¤ā§‡ āĻļāĻžāĻ–āĻžāĻ­ā§āĻ•ā§āĻ¤ āĻ•āĻ°ā§‡ āĻĨāĻžāĻ•ā§‡āĨ¤

āĻ¸āĻŋāĻ¨āĻŸā§āĻ¯āĻžāĻ•ā§āĻ¸:


On N GoSub Label1[, Label2[, Label3[,...]]]
On NumExpression GoTo Label1[, Label2[, Label3[,...]]]

āĻĒā§āĻ¯āĻžāĻ°āĻžāĻŽāĻŋāĻŸāĻžāĻ°:

NumExpression: 0 āĻāĻŦāĻ‚ 255 āĻāĻ° āĻŽāĻ§ā§āĻ¯ā§‡ āĻ¯ā§‡āĻ•ā§‹āĻ¨ā§‹ āĻ¸āĻ‚āĻ–ā§āĻ¯āĻžāĻ¸ā§‚āĻšāĻ• āĻāĻ•ā§āĻ¸āĻĒā§āĻ°ā§‡āĻļāĻ¨ āĻ¯āĻž āĻĒā§āĻ°ā§‹āĻ—ā§āĻ°āĻžāĻŽā§‡āĻ° āĻļāĻžāĻ–āĻž āĻšāĻŋāĻ¸ā§‡āĻŦā§‡ āĻ•ā§‹āĻ¨ āĻ˛āĻžāĻ‡āĻ¨āĻŸāĻŋ āĻ°ā§Ÿā§‡āĻ›ā§‡ āĻ¤āĻž āĻ¨āĻŋāĻ°ā§āĻ§āĻžāĻ°āĻŖ āĻ•āĻ°ā§‡ āĻĨāĻžāĻ•ā§‡āĨ¤ āĻ¯āĻĻāĻŋ NumExpression āĻāĻ° āĻŽāĻžāĻ¨ 0 āĻšā§Ÿ, āĻ¤āĻžāĻšāĻ˛ā§‹ āĻ¸ā§āĻŸā§‡āĻŸāĻŽā§‡āĻ¨ā§āĻŸāĻŋ āĻšāĻžāĻ˛āĻžāĻ¨ā§‹ āĻšā§Ÿ āĻ¨āĻžāĨ¤ āĻ¯āĻĻāĻŋ NumExpression āĻāĻ° āĻŽāĻžāĻ¨ āĻ¯āĻĻāĻŋ 0 āĻāĻ° āĻšāĻžāĻ‡āĻ¤ā§‡ āĻŦā§œ āĻšā§Ÿ, āĻĒā§āĻ°ā§‹āĻ—ā§āĻ°āĻžāĻŽāĻŸāĻŋ āĻāĻ•āĻŸāĻŋ āĻ¸ā§āĻĨāĻžāĻ¨ āĻĒāĻ°āĻŋāĻŦāĻ°ā§āĻ¤āĻ¨ āĻ•āĻ°ā§‡ āĻāĻ•āĻŸāĻŋ āĻ¸ā§āĻ¤āĻ°ā§‡ āĻšāĻ˛ā§‡ āĻ¯āĻžā§Ÿ āĻ¯āĻž āĻāĻ•ā§āĻ¸āĻĒā§āĻ°ā§‡āĻļāĻ¨ (1 = āĻĒā§āĻ°āĻĨāĻŽ āĻ˛ā§‡āĻŦā§‡āĻ˛; 2 = āĻĻā§āĻŦāĻŋāĻ¤ā§€ā§Ÿ) āĻ¸āĻ‚āĻļā§āĻ˛āĻŋāĻˇā§āĻŸ āĻāĻ•āĻŸāĻŋ āĻ…āĻŦāĻ¸ā§āĻĨāĻžāĻ¨ āĻ•ā§āĻ°āĻŽ āĻ°ā§Ÿā§‡āĻ›ā§‡āĨ¤

āĻ˛ā§‡āĻŦā§‡āĻ˛: GoTo āĻ…āĻĨāĻŦāĻž GoSub āĻ—āĻ āĻ¨ āĻ…āĻ¨ā§āĻ¸āĻžāĻ°ā§‡ āĻŸāĻžāĻ°ā§āĻ—ā§‡āĻŸ āĻ˛āĻžāĻ‡āĻ¨āĨ¤

āĻ¨ā§‹āĻŸ āĻ†āĻ‡āĻ•āĻ¨

GoTo āĻ…āĻĨāĻŦāĻž GoSub āĻ•āĻ¨āĻ­ā§‡āĻ¨āĻļāĻ¨ āĻ•āĻžāĻ°ā§āĻ¯āĻ•āĻ°āĨ¤


āĻ‰āĻĻāĻžāĻšāĻ°āĻŖ:


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 & " From Sub 1 to" : Return
Sub2:
    sVar =sVar & " From Sub 2 to" : Return
Line1:
    sVar =sVar & " Label 1" : GoTo Ende
Line2:
    sVar =sVar & " Label 2"
Ende:
    MsgBox sVar,0,"On...GoSub"
End Sub

Please support us!