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
» Gestionnaire de Projets Panoramic
par Minibug Aujourd'hui à 2:10

» Mah-Jong européen new-look
par jjn4 Hier à 16:35

» Button_picture
par pascal10000 Hier à 11:41

» Pourquoi le compilateur stagne
par Minibug Hier à 11:09

» 4 (en analyse): SYNEDIT_TARGET_IS_OBJECT devient inactif
par Jack Hier à 10:09

» 3 (en analyse): Mauvaise interprétation du string "THEN"
par Jack Hier à 10:03

» KGF.dll - demandes ou suggestions de modifications ou ajouts
par Marc Hier à 10:00

» KGF_dll - nouvelles versions
par pascal10000 Mer 13 Déc 2017 - 17:27

» track_bar circulaire
par Klaus Mar 12 Déc 2017 - 13:54

» API Windows
par Klaus Mar 12 Déc 2017 - 3:21

» Cartes de voeux, menus, etc.
par JL35 Lun 11 Déc 2017 - 17:48

» a l'aide klaus
par Minibug Lun 11 Déc 2017 - 11:42

» bug SYNEDIT_TARGET_IS_OBJECT
par Jack Lun 11 Déc 2017 - 0:16

» Jukebox : Serge Reggiani
par papydall Sam 9 Déc 2017 - 5:58

» Ecouter la radio fm sur votre pc
par pascal10000 Sam 9 Déc 2017 - 3:42

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Décembre 2017
LunMarMerJeuVenSamDim
    123
45678910
11121314151617
18192021222324
25262728293031
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: