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
» Attention arnaque !
par Pedro Alvarez Hier à 20:03

» Qui fait quoi ?
par silverman Hier à 15:21

» ITEM_SELECT N,L pour synedit
par silverman Hier à 15:20

» Boussole
par jean_debord Hier à 11:06

» Roue à n faces
par Marc Dim 15 Juil 2018 - 22:16

» Planétarium virtuel.
par Pedro Alvarez Dim 15 Juil 2018 - 16:05

» Exemple d'une nouvelle version d'un GRID
par Jean Claude Ven 13 Juil 2018 - 10:32

» Roues dentées
par jean_debord Mar 10 Juil 2018 - 11:30

» Une simple question
par Oscaribout Sam 7 Juil 2018 - 23:20

» BUG sur l'objet TAB
par Jack Sam 7 Juil 2018 - 21:12

» Monopoly moderne
par jjn4 Sam 7 Juil 2018 - 15:06

» Récapitulatif ludothèque panoramic jjn4
par jjn4 Ven 6 Juil 2018 - 17:41

» Lignes ondulées
par JL35 Ven 6 Juil 2018 - 17:39

» bug off_activate 0 : sans d'effet
par silverman Ven 6 Juil 2018 - 13:02

» Position des objets d'un conteneur dans FBPano et Panoramic
par Navigateur Ven 6 Juil 2018 - 12:59

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Juillet 2018
LunMarMerJeuVenSamDim
      1
2345678
9101112131415
16171819202122
23242526272829
3031     
CalendrierCalendrier

Partagez | 
 

 Boite stop

Aller en bas 
AuteurMessage
Invité
Invité



MessageSujet: Boite stop   Jeu 27 Nov 2014 - 9: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
Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» [résolu][Laguna 1 V6 24S boite manuelle] Recherche
» "Stop" pour son et musique
» *** [News] AMD stop les CPU ! ***
» Message d'erreur sur Annuler une boite de dialogue ouverte
» boite à outils: vos idées!

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