Une pause

bonjour a tous
je vous propose un ptit code qui met en pause un programme
contrairement a pause de panoramic ou Wait ou ils sont chrnometré
ce code arrête le programme tant que vous n'appuyer pas sur la touche entrée

Code:

Label Pausing: Dim Touche
if label("Pausing")=1 then Gosub Pausing
Pausing:
   Touche=0
   While Touche<>13
   Touche=0
      While Touche=0
      Touche=Scancode
      End_While
Rem  tant que vous n'appuyer pas sur la touche entré
Rem  cette boucle ne s'arêtera pas
         If Touche=13 then Exit_While
   End_While  

bonne journée

Certes, ça marche. Bien vu. Mais c'est un peu brutal: tu monopolises quasiment tout le temps CPU pour cette boucle, et si un autre programme tourne en même temps, il sera très largement pénalisé.

Pour éviter cet inconvénient, insère au minimum une commande DISPLAY juste avant END_WHILE. Cela permet à Windows de reprendre la main momentanément et traiter les évènements et messages en attente, pour d'autres processus.

Bonjour à tous,

@Pascal1000,
Bonne astuce, mais il y a moyen de n'avoir aucune variable et aucun label pour faire ce que tu veux.
Une procédure SUB fait l'affaire.
Voici le code en tenant compte de la remarque de Klaus.

Code:

print "Appuyez sur la touche entrée de votre clavier, pour redémarrer le programme."
Pausing()
' reprise
cls: ' efface le texte de FORM 0
END
rem ===========================================================
SUB Pausing()
    While Scancode<>13
       display
    End_While
    message "Le programme n'est plus en pause"
END_SUB

Tu peux supprimer la ligne message "Le programme n'est plus en pause" si elle ne te sert à rien.
A+

Salut tout le monde.

Il y a beaucoup plus simple : la commande INPUT peut faire l'affaire.

Code:

dim bidon$ : ' variable qui ne sert à rien
print "... En Pause ... jusqu'à l'apprui de <ENTREE>"
input bidon$ : ' le programme est en attente et il ne passe à la ligne suivante
               ' qu'après l'appui de la touche ENTREE
print "... Reprise du boulot "

Avec la variable système INKEY$ ça donne

Code:

print "En attente de l'appui sur une touche quelconque"
while inkey$ = "" : end_while
print "Le programme continue ..."

bravo papy
encore plus simple que mon code
merci pour vos réaction
a+