un label dans une sub

C'est une très mauvaise technique de programmation. Désolé de le dire aussi crûment que ça.

Un sous-programme doit se terminer par la commande RETURN. Une procédure de termine par la commande END_SUB. Ces deux commandes ne sont pas équivalentes.

Tu peux effectivement placer un label dans une procédure, tu peux même faire un GOTO ou un GOSUB en direction de ce label, ou l'utiliser comme label pour un évènement. Et il s'exécutera sans problème. Seulement, arrivé au END_SUB, il produira un crash.

Il faut inverser la construction. Il faut faire le sous-programme colplet, du labe au RETURN. Ce label peut alors servir normalement, pour un évènement. Et dans la procédure d'où tu as extrait la partie qui devient un sous-programme, tu fais un GOSUB vers ce label.

Voilà. C'est aussi simple que ça.

Un exemple de structure d'un programme, pour t'aider.

Code:

'
variables()
labels()
gui()
donnees()
end


bonjour:
message "Le programme est prêt à fonctionner"
return

sub donnees()
set_focus 11
on_click 11,bonjour
' -------
end_sub

sub labels()
label bonjour
end_sub

sub variables()
' ------
end_sub

sub gui()
button 11:caption 11,"Bonjour"
' -------
end_sub

A+

@RMont,

Pour simplifier et pour commencer avec des SUB, on peut dire (dans l'état actuel de Panoramic) que l'on peut remplacer tout les sous-programme appelé par un GOSUB (voir un GOTO) par une SUB sans paramètre. comme ci-dessous

Code:

Bonjour: ' là il faut déclarer le label
' ----
return
' dans ce premier cas on appelle le sous-programme "bonjour" par GOSUB ou GOTO
' -------------------------------------------------------------- OU
sub bonjour() ' ici pas besoin de déclaration de label
' ----
end_sub
' dans ce deuxième cas on appelle le sous-programme "bonjour" par bonjour()

Par contre si le sous-programme "Bonjour" doit être appelé par un événement lancé à partir d'un objet Panoramic (ON_CLICK avec un BUTTON par exemple), alors la procédure SUB ne peut pas être employée (obligation de passer par un LABEL)

Dans un deuxième temps tu pourras regarder les SUB avec passage de un ou plusieurs paramètres

Code:

bonjour("Raymond")
END
SUB bonjour(prenom$)
message "Bonjour "+prenom$
end_sub

A+