sur les SUB: vérification avec les variables locales.

Invité

Voici un petit programme conçu pour voir comment réagissent les variables locales avec l'extérieur.

On est parti avec l'idée qu'une variable locale n'est valable que dans la sub, et ce n'est pas toujours le cas.

Code:: ' teste de sortie de sub
label branche
teste("je regarde le loup passer")

end

sub teste(a$)
   dim_local v%
   repeat
   v% = instr(a$," ")
   if v% > 0 then gosub branche
   branche()
   until v%=0 or scancode = 27
   ' ------------------------------
   if 1 = 2

branche:
   message str$(v%) + chr$(13) + a$
   a$ = right_pos$(a$,v%+1) :' avec gosub, on continue a se servir des variables locales
   return

sub branche()
   message "sub branche() a$=" + a$ :' a$ n'est plus reconnu
   end_sub
   end_if
   ' ------------------------------
end_sub

Cela peut aider à comprendre certains problèmes.
Généralement on essaye de ne se servir que de sub, ors lorsqu'on a besoin de transmettre des paramètres locaux, il est préférable de se servir d'un sous-programme, plutôt que de les mettre dans les parenthèses.

je le remets en présentation normale:

Code:: ' teste de sortie de sub
label branche
teste("je regarde le loup passer")

end

sub teste(a$)
dim_local v%
repeat
v% = instr(a$," ")
if v% > 0 then gosub branche
' branche() :' faire l'essai ensuite sans l'apostrophe
until v%=0 or scancode = 27
end_sub

branche:
message str$(v%) + chr$(13) + a$
a$ = right_pos$(a$,v%+1) :' avec gosub, on continue a se servir des variables locales
return

sub branche()
message "sub branche() a$=" + a$ :' a$ n'est plus reconnu
end_sub

C'est une précision intéressante, Cosmos70.

En effet, je ne me suis pas amusé à appeler, à partir d'une procédure, des sous-programmes par gosub et qui sont localisés en-dehors de la procédure. Si j'ai besoin de ça, je crée systématiquement une autre procédure placée ailleurs dans le programme.

Mais la conclusion, intéressante, est que les variables locales sont libérées si et seulement si une des commandes END_SUB ou EXIT_SUB est exécutée. Ceci explique le phénomène.

Invité

Oui, on n'a jamais fait l'essai, mais maintenant je comprend mieux les problèmes que j'ai pu avoir. Dommage ne pas y avoir pensé plus tôt.

Edit:
Ah oui! J'avais mis un sous-programme et une sub à l'intérieur d'une autre, seulement pour montrer que cela fonctionnait, vu que j'en étais à une démonstration. Je me suis souvenu qu'une fois qu'une fois j'ai pensé mettre un sous-programme, mais qui comportait une série de subs intermédiaires. On avait le nom d'une sub pour faire quelque chose, et tout était englobé.

Tu as raison. et je pense que Jack pourrait mettre cette information dans la doc, au niveau de la description des SUB.

Invité

Voici une vérification supplémentaire: j'ai mis une variable global a$
Et voici une explication sur un problème que j'ai posé, et qu'on ne comprenait pas ce que je disais sur un bug:

Le sous-programme n'utilisait pas la variable globale comme je le pensais, mais la variable locale.

Code:: ' teste de sortie de sub
label branche
dim a$
a$ = "a$ est ici une variable globale"
teste("je regarde le loup passer")

end

sub teste(a$)
   dim_local v%
   repeat
   v% = instr(a$," ")
   if v% > 0 then gosub branche
   ' branche() :' faire l'essai ensuite sans l'apostrophe
   until v%=0 or scancode = 27
end_sub

branche:
   message str$(v%) + chr$(13) + a$
   a$ = right_pos$(a$,v%+1) :' avec gosub, on continue a se servir des variables locales
return

sub branche()
   message "sub branche() a$=" + a$ :' a$ n'est plus reconnu
end_sub

» bug SEVERE fnc+sub n°4: pb n°2 avec variables locales
» bug SEVERE fnc+sub n°3: pb avec variables locales
» Variables locales et DIM dynamique
» Fonctions Chaine et variables locales
» les sous-programmes, les variables globales et locales