IBM Lotus Symphony


Instruction GoSub...Return [Exécution]

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.

Syntaxe :

voir Paramètres

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 (":").

Icône Avertissement 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.

Exemple :

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


Commentaires en retour sur le produit | Documentation complémentaire | Marques