Invité
Invité
 | | Sujet: STOPPER un programme Ven 18 Mai 2012 - 8:04 | |
| 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
|
|
Klaus
Nombre de messages : 12281
Age : 74
Localisation : Ile de France
Date d'inscription : 29/12/2009
| | Sujet: Re: STOPPER un programme Ven 18 Mai 2012 - 8:43 | |
| Intéressant, cette astuce ! | |
|
Calendrier