IBM Lotus Symphony
|
Appelle une sous-routine indiquée par un libellé provenant d'une sous-routine ou d'une fonction. Les instructions suivant le libellé sont exécutées jusqu'à l'instruction Return suivante. Ensuite, l'exécution du programme se poursuit par l'instruction suivant l'instruction GoSub.
voir Paramètres
Sub/Function
bloc d'instructions
Etiquette
bloc d'instructions
Etiquette GoSub
Exit Sub/Function
Etiquette :
bloc d'instructions
Return
End Sub/Function
L'instruction GoSub appelle une sous-routine locale de l'intérieur d'une sous-routine ou d'une fonction, indiquée par un libellé. Le nom du libellé doit se terminer par un signe deux-points (":").
![]() |
Si le programme rencontre une instruction Return qui n'est pas précédée de GoSub, Lotus Symphony Basic renvoie un message d'erreur. Utilisez Exit Sub ou Exit Function pour vous assurer que le programme quitte une sous-routine ou une fonction avant d'atteindre l'instruction Return suivante. |
L'exemple suivant illustre l'utilisation des instructions GoSub et Return. En exécutant deux fois une section de programme, le programme calcule la racine carrée de deux nombres saisis par l'utilisateur.
Sub ExempleGoSub
dim iInputa as Single
dim iInputb as Single
dim iInputc as Single
iInputa = Int(InputBox$ "Saisissez le premier nombre : ","EntréeNombre"))
iInputb = Int(InputBox$ "Saisissez le second nombre : ","EntréeNombre"))
iInputc=iInputa
GoSub SquareRoot
Print "La racine carrée de";iInputa;" est";iInputc
iInputc=iInputb
GoSub SquareRoot
Print "La racine carrée de";iInputb;" est";iInputc
Exit Sub
SquareRoot:
iInputc=sqr(iInputc)
Return
End Sub