codage spécial

Invité

Je n'avais jamais l'essai, parce que pensais que cela ne fonctionnait pas, et pourtant pour ce que je fais ceci a une importance pour moi.
Ecrire devant des boucles ou des testes.

Code:: ' codage spécial
dim a%,b%,c% :height 0,900
label ecrit
b%=4
b%=b%+1:gosub ecrit:for a%=1 to 6
b%=b%+1:gosub ecrit: c%=c%+1
b%=b%+1:gosub ecrit: if c%=5
b%=b%+1:gosub ecrit: message "c%="+str$(c%)
b%=b%+1:gosub ecrit: else
b%=b%+1:gosub ecrit: print "a%="+str$(a%)+" c%="+str$(c%)
b%=b%+1:gosub ecrit: end_if
b%=b%+1:gosub ecrit:next a%
b%=b%+1:gosub ecrit:print "c'est fini"
b%=b%+1:gosub ecrit:end
' ------------------------
ecrit:
print "passage:"+str$(b%)
return

Et ça fonctionne. Il ne doit pas y avoir beaucoup de monde pour y avoir pensé.

Invité

A peine publié, par acquit de conscience, je fais la même chose avec un label. Je mets la même chose devant ecrit: et surprise cela a marché, alors qu'à la suite d'un label il y a erreur.
Cela signifie qu'on peut incorporer des numéros de lignes sous forme de variable, devant les codes.

Ce qui serait bien maintenant est d'avoir la variable système pour les numéros de lignes.

Très intéressant, ton astuce ! Je la mets de côté...

» Codage ROT13
» codage d'une valeur numérique...
» Aide avec codage de DLL en Delphi
» AUTOMENU ou le codage automatique de menus
» Codage de la notation scientifique des nombres réels