Stoper le programme

Bonsoir à tous,

Une suggestion pour rallonger la tout doux liste, qui je sais est énOOOOOOOOOOOOOOOOOOOOOOOOOrme.

il s'agirait d'une commande STOP_PROGRAM, qui permettrait l'arrêt du programme en cours et qui le laisserait repartir soit par une action sur le clavier ou sur la souris.
Voir même 2 commandes: STOP_PROGRAM_KEYBOARD et STOP_PROGRAM_MOUSE.

Qu'est ce que vous en pense t-il.

A+

Salut.
Ce serait utile, si il y avait possibilité de regarder entre autre le contenu des variables. La possibilité d'aller à un sous programme qui visualisent celles-ci (à condition d'être intégré au programme lui-même, puisqu'il est compilé, il ne s'agit pas d'un interpréteur), est-ce possible?. Je ne sais pas, on n'a pas d'information sur la façon dont est conçu le basic.
Si cette possibilité n'existe pas, arrêter un programme, et le redémarrer, y-a-t'il un intérêt. Expliques à quoi tu penses, vu que "message" permet de le faire, à moins d'avoir mal compris la question. De toute évidence tu as dû penser à une chose que je n'ai pas saisie.
A +

salut COSMOS70,

En fait il s'agit d'une commande qui remplacerait
boucle:
a$=INKEY$:if inkey$="":goto boucle
ou
REPEAT:sc%=SCANCODE:UNTIL sc%=13

vu que ces 2 commandes provoquent des messages d'erreur (Violation....)

A+

OK, j'ai compris le besoin.

La commande STOP existe déja: elle visualise une fenêtre qu'il faut acquitter, mais ne permet pas de continuer.
Je vais créer d'autres commandes qui suspendent l'exécution du programme jusqu'à un clic de souris ou une frappe au clavier.

Justement pendant que tu répondais, je me suis penché sur le problème

REPEAT:sc%=SCANCODE:UNTIL sc%=13

Ligne de code que j'avais dans un programme et qui provoquait un message d'erreur sur le RETURN qui suit l'execution de cette ligne.
Juste avant ce RETURN j'ai mis la ligne suivante ON_ERROR_GOTO erreur et au LABEL erreur j'ai juste mis un RETURN et depuis il semble que l'erreur ne se reproduit plus. (j'ai tester une dizaine de fois)

Je pense que REPEAT/UNTIL a un problème avec RETURN. Peut-être le nombre de RETURN.
Si tu arrive à trouver ce problème la création des nouvelles commandes ne presse pas.

A+

C'est vrai que la possibilité d'arrêt à un endroit donné et de reprise sur une touche est bien utile pour la mise au point, on peut même afficher une ou des variables avant de continuer.
Ca existe en FreeBasic avec la commande Sleep : attente d'une touche quelconque avant de continuer.

Je verrais bien un sous-programme avec un Gosub Trace à glisser par-ci par-là, avec un objet système (ici 10) dédié à l'affichage de la trace, du genre (en admettant sleep):

Code:

Trace:
Show 10
Print_Target_Is 10
Print "x= "; Str$(x)
Print "b$= "; b$
...
Sleep: Rem attente d'une touche
Hide 10
Return

et après la mise au point il suffit d'ôter les Gosub Trace ou de les mettre en Rem.

Jean Claude, tu m'as donné la réponse sur un problème que j'avais avec repeat until, suivi d'un return. Je recherchais l'erreur et pensais à une mauvaise programmation de ma part.
Merci.
A+

@ Jack et aux autres,
Je retire mon exemple ci-dessus pour tracer un programme avec une hypothétique instruction sleep, on peut très bien y arriver avec ce qui existe déjà (Message):

Code:

Rem tracer des variables dans un programme (pour debug)
Label Trace
Dim pta, tr$, cr$, x, b$, v$
cr$ = chr$(13) + chr$(10)
rem ...
x = 35: rem par exemple
b$ = "Au clair de la lune"
rem ...
pta = 3: Gosub Trace: rem état des variables au point d'arrêt 3
rem poursuite du programme
...
Terminate

Trace:
rem affichage des variables et mise en atente
tr$ = "Point d'arrêt n° " + str$(pta)
tr$ =  tr$ + cr$ + "x= " + Str$(x)
tr$ = tr$ + cr$ + "b$= " + b$
Message tr$: rem ici attente d'un clic sur OK
Return