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
» I Love You
par JL35 Hier à 16:25

» MARK_ON déclenche un événement ON_CLICK à la place de ...
par Jean Claude Mer 18 Oct 2017 - 18:08

» mise a jour calculatrice
par joeeee2017 Mer 18 Oct 2017 - 15:57

» [solved] 3D_LINE How to ?
par Jicehel Mer 18 Oct 2017 - 11:01

» Convertisseur de base 10 de 2 à 36
par gigi75 Mar 17 Oct 2017 - 18:49

» calculatrice avec touches movibles
par joeeee2017 Dim 15 Oct 2017 - 1:11

» CORTANA
par gigi75 Sam 14 Oct 2017 - 16:32

» Calculatrice
par Jean Claude Sam 14 Oct 2017 - 12:30

» Compilateur FBPano
par jean_debord Jeu 12 Oct 2017 - 9:53

» KGF_dll - nouvelles versions
par Klaus Mar 10 Oct 2017 - 18:49

» à propos de Panoramic_Editor [Résolu]
par Klaus Mar 10 Oct 2017 - 3:19

» Un petit "coucou" à tous les Panoramiciens !
par Jack Ven 6 Oct 2017 - 10:24

» Pourquoi le compilateur stagne
par mindstorm Mer 4 Oct 2017 - 20:38

» Panoramic ?
par Marc37 Mer 4 Oct 2017 - 0:39

» Premiers pas avec Arduino
par Marc37 Mer 4 Oct 2017 - 0:29

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Octobre 2017
LunMarMerJeuVenSamDim
      1
2345678
9101112131415
16171819202122
23242526272829
3031     
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 :: Vos sources, vos utilitaires à partager-
Sauter vers: