STOPPER un programme

Invité

Pour ceux qui ne le savent pas, il est possible d'arréter un programme.
Vous allez dire, qu'il y a la commande STOP, mais stop pose un problème, et ne sert que pour le débogage.
Ainsi un STOP bloque tout. Essayé de regardé un memo avec les glissières, ou de modifier un edit. Il faut cliquer sur les boutons pour cela.
Ensuite si à un moment dans votre programme, vous voulez arréter pour voir un edit, ou autre, il n'y a que la MESSAGE , message... qui peut le faire.
Ors c'est un procédé que j'utilise régulièrement. J'utilise END dans les lignes de code. Voici un exemple:

Code:: ' teste avec plusieur END
label message1 , message2 , message3 , commande1
dim a,b,c,a$,b$,c$

button 1:left 1,000:top 1,10:caption 1,"end_1":on_click 1,message1
button 2:left 2,100:top 2,10:caption 2,"activé boutons bas" :width 2,100:on_click 2,message2

button 3:left 3,000:top 3,35:caption 3,"end_2"
button 4:left 4,100:top 4,35:caption 4,"activé boutons haut":width 4,100
memo 5:top 5,150:width 5,width(0)-20
END
' ¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤
message1:
message "bouton 1 appuyé" :RETURN
message2:
message "bouton 2 appuyé"

' voir cette ligne.................
item_add 5,"le programme est arrété par le END. pour continuer il faut cliquer sur le bouton 3 >end_2<"
on_click 3,message3
edit 6:left 6,300:color 6,255,255,100 : END : message3:
off_click 3 :' on retire le clic. le but est atteint
a$=text$(6) : delete 6
off_click 1
item_add 5,"suite de la procédure message2"
item_add 5, "essayé de cliquer sur le premier bouton"
item_add 5,a$
on_click 4,commande1
return
commande1:
on_click 1,message1
return

Intéressant, cette astuce !

» ce fut mon 2ème programme en panoramic! (mauvais programme)
» fermer le programme qui lance un autre programme
» Stopper les timers en cas de défaut
» Stopper widows Udapte a votre guise
» Bouton "STOP" pour stopper PANORAMIC