' teste boite stop continu
label teste,halt: dim a%
caption 0,"Appuyez sur <Pause>, pour stopper le programme"
memo 1
button 2 : left 2,200:caption 2,"Teste":on_click 2,teste
form 10:width 10,380 : height 10,200:left 10,(screen_x-350)/2:top 10,(screen_y-200)/2 : hide 10 :font_size 10,10 : font_bold 10
button 11:parent 11,10:width 11,90 : left 11,70 : top 11,100 :caption 11,"Continu":on_click 11,halt
alpha 12:parent 12,10:left 12,10:top 12,50
button 13:parent 13,10:width 13,90 : left 13,200: top 13,100 :caption 13,"Arrêt" :on_click 13,halt
end
============
halt:
if number_click = 11 then go()
if number_click = 13 then arret()
return
========
sub go()
repeat : pause 500 : until clicked(11) = 1
hide 10
end_sub
========
sub arret()
terminate
end_sub
========
teste:
clear 1
for a% = 1 to 10000
item_add 1,a%
stop(0) :' teste l'arrêt du programme si appuie sur <PAUSE> stop(1 ou plus) stop imposé
next a%
return
========
sub stop(n%)
if scancode = 19 or n% > 0
caption 12,"Programme stoppé, Continuer ou arrêter ?"
show 10
repeat:pause 200 : to_foreground 10 : until show(10)=0
end_if
end_sub
Accueil 
Calendrier