Surveillance de la touche Escape dans les boucles buguées

Bonjour,

Ce serait interessant d'avoir un mode de 'Test' de code pour les boucles buguées qui tournent
sans fin et qui font planter l'interpréteur , en tout cas chez moi !
Une surveillance spéciale après l'entrée dans une boucle For Next ou autres .
Un appui sur Esc et hop sauvé .


A +

Utilise ON_key_down N,L
N élément qui a le focus form 0 par exemple
L les sous programme pour arréter le programme :

Label Arret

ON_Key_down 0,Arret
End
...
...
programme
...
...

Arret:
Terminate

Et si c' vraiment une boucle "mal bouclée".
Fait un timer qui, toutes les secondes, vérifie que escape (sancode=27) n'est pas enfoncée.


on_timer 1, arret
end

...

arret;
if scancode=27 then terminate

Ca dépend du genre de rebouclage, mais à mon avis une boucle infinie ne sera pas interruptible par le timer:

Code:

DIM i
LABEL zz, arret
TIMER 1: ON_TIMER 1, arret: ' lancement du timer (1s)

zz:
FOR i = 1 TO 10: NEXT i
GOTO zz
END

Arret:
IF SCANCODE=27 THEN TERMINATE
RETURN

dans l'exemple ci-dessus le timer n'intervient jamais, il n'a pas le temps.
Je crois que c'est imparable, sauf à 'tuer' la tâche pour l'interrompre.

Je donne ma façon de procéder:
Dans toutes les boucles qui sont à tester, par exemple boucle for next

Code:

for a=1 to 1000000
  if scancode =27 then exit_for:' ou terminate ou stop...
next a

il suffit de retirer la ligne avec scancode une fois le programme terminé

Oui tu as raison cosmos, comme ça ça marche.
Mais il faut connaître à l'avance les boucles suspectes pour les piéger, on ne peut pas faire quelque chose de général comme suggérait flowerkinzy.
Il faut que le piège soit à l'intérieur de la boucle.

Je viens de mettre un petit programme pour stopper le sien propre. A vous de voir.

oui , j'ai déja essayé if scancode =27 then ; timer aussi ; c'est pas toujours

miraculeux .

mais en fait je parlais de l'éditeur - interpreteur lui-meme , donc un souhait!

Cet apres-midi , je n'arrete pas de relancer l'editeur (:

Il y a une solution pour préserver son éditeur: https://panoramic.1fr1.net/t1088-astuce-pour-preserver-son-editeur

je vais décortiquer les posts , merci

Citation :

oui , j'ai déja essayé if scancode =27 then ; timer aussi ; c'est pas toujours
miraculeux .

Si cette instruction est inscrite dans une boucle, on en sort si il y a exit..
exit_for
exit_while
exit repeat
Il faut donner l'ordre de sortir de la boucle. Un message ou autre, une fois exécuté continuera la boucle sinon.
exemple:

Code:

if scancode=27 then exit_repeat

oui, oui les 'exit' , je les utilise .

Au lieu de scancode , j'ai mis ça :

dim var

for r = xxxxxx
var = var + 1 : if var > 1000 then terminate
next r

ça c'est du code .

sinon , chain.exe c'est cosmique ! Avec 8 lignes de code seulement . CQFD .

Au suivant !