Une méthode originale de deboguage

Cela fait bien deux jours, en tenant compte que je ne suis pas souvent devant mon ordi, et les absences ne m'aide pas., que j'avais un bug sur une variable qui s'éffaçait et que je n'ariivais pas à voir d'où celà venait.

J'ai eu l'idée de faire ce truc suivant: (J'ai plus de 2000 lignes souvent bien remplies), et plein d'appel à sous programmes.

à chaque début de procédure, et de fin, j'ai ajouté la ligne suivante:

Code:

debog%=NUMBER_CURRENT_LINE:debog$=debog$+" "+str$(NUMBER_CURRENT_LINE):wait 2

J'ai défini au départ:

Code:

 label debogue :dim debog% ,debog$
timer 600:timer_interval 600,1:on_timer 600,debogue :timer_off 600 

et la procédure suivante, en ayant à l'esprit qu'ici c'est une variable attribut$ qui posait problème. Elle avait au départ "01000" pour ce cas, et à un moment elle se vidait, et je ne comprenais pas pourquoi:

Code:

debogue:
    if attribut$ ="" then timer_off 600:message  str$( debog%)  + chr$(13)+ debog$
return

Dans le programme, à l'endroit où je m'apercevais qu'après elle changeait, j'ai mis :

Code:

timer_on 600

Ici le timer réglé à 1, et un wait, réglé à 2, j'étais certain que la variable était testée.
5 mn après mon programme était débogué.

Ainsi j'ai eu le message suivant: 1410 829 733 737. Donc le problème se trouvait entre 733 et 737

Woui, l'idée est bonne Encore faut-il bien penser sa condition de sortie quand on a un bug. Mais c'est une solution en effet quand on c'est ce qui pose problème

Hé oui, Cosmos 70 a des suites dans les idées.

Jicehel a écrit:

Encore faut-il bien penser sa condition de sortie quand on a un bug

J'ai installé sur mon ordi: RapidTaskKiler. Chaque fois que j'un bug, je clique dessus, et me tue le programme proprement sans boum. Moi j'ai un XP, je ne sais pas si il fonctionne avec W7. On peux mettre en protection les programmes qui doivent restés, en dehors de ceux de windows qu'il laisse tranquille, et on peux en appuyant sur un bouton, enlever tous les autres programmes qu'il juge inutile0