FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC

Développement d'applications avec le langage Panoramic
 
AccueilAccueil  FAQFAQ  RechercherRechercher  S'enregistrerS'enregistrer  MembresMembres  GroupesGroupes  Connexion  
Derniers sujets
» Une autre façon de terminer une application.
par Francis-mr Aujourd'hui à 12:07

» Compilateur FBPano
par jean_debord Aujourd'hui à 10:09

» Copier / coller du texte à partir de la fenêtre de commandes
par jean_debord Aujourd'hui à 9:46

» COMPILATEUR V 0.9 beta 8 du 18 aout 2017
par papydall Aujourd'hui à 5:01

» Mettre en windows en veille
par papydall Aujourd'hui à 4:15

» Stretch_on ne stretch plus...
par papydall Hier à 15:22

» Pb 18 (en analyse): RESTORE_LABEL avec DATA à la fin
par Jack Hier à 13:21

» Problème de traitement des opérateurs avec le compilateur.
par Pedro Alvarez Sam 19 Aoû 2017 - 20:01

» Pb 17 (résolu): ITEM_SELECT ne fonctionne pas
par Jack Jeu 17 Aoû 2017 - 19:26

» un nouveau editeur panobasic
par Jean Claude Jeu 17 Aoû 2017 - 10:18

» Le compilateur.
par Pedro Alvarez Jeu 17 Aoû 2017 - 8:36

» Pb 16 (résolu): ON_CLOSE plante à l'exécution
par Jack Mer 16 Aoû 2017 - 20:00

» Pb 15 (résolu): TIMER_ON plante à l'exécution
par Jack Mer 16 Aoû 2017 - 19:58

» KGF_dll - nouvelles versions
par Yannick Dim 13 Aoû 2017 - 17:35

» probleme d'outil
par Yannick Dim 13 Aoû 2017 - 17:32

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Août 2017
LunMarMerJeuVenSamDim
 123456
78910111213
14151617181920
21222324252627
28293031   
CalendrierCalendrier

Partagez | 
 

 Boite stop

Voir le sujet précédent Voir le sujet suivant Aller en bas 
AuteurMessage
Invité
Invité



MessageSujet: Boite stop   Jeu 27 Nov 2014 - 11:58

Etant obligé de mettre des stop dans mon programme, je suis constamment géné par les autres fenêtre et ne peux voir le contenu, ou seulement en partie de celui-ci.

Si on met un stop, et qu'on veuille arrêter, selon le programme, la plupart du temps Panoramic se ferme. On peut avoir la main en mettant un END à la place d'un stop, ce qui permet de voir le contenu qu'on cherche à connaitre, mais la suite du programme est perturbé (selon le code évidemment).

Le programme suivant fonctionne comme pour la comande STOP. On met à la place STOP(0) pour avoir le même effet que STOP, ou un nombre supérieur: STOP(1) pour stopper une boucle dans son exécution par appuie sur la touche: <PAUSE> du clavier.

Code:
' 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
Revenir en haut Aller en bas
 
Boite stop
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» [Résolu] Problème boite de réception Outlook Express
» [résolu][Laguna 1 V6 24S boite manuelle] Recherche
» liens inactifs dans ma boite de messagerie
» "Stop" pour son et musique
» Start/Stop Roland vers d'autres arrangeurs

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: PANORAMIC 32 bits :: Vos sources, vos utilitaires à partager-
Sauter vers: