Aller au contenu

Barre de progression


harksin
 Partager

Messages recommandés

bonjour

 

je souhaite mettre en place un barre de progression dans ma boite objectdcl.

j'aurais donc besoin des base qui me permètrons d'alimenté et de contrôler cet outil.

 

pour le contexte j'ai un programme contrôleur qui est une énorme boucle est a chaque fois que je reviens au début je réduit la longueur de la boucle de 1

(pour qu'elle ne soit pas infini)

 

je voudrai donc maintenant dire

 

il y avait 15 boucle prévu au départ

il m'en reste 7 a faire

j'ai donc accomplis 50% du travail

 

(jusque la sa va)

 

et exporté ce 50% dans la barre de progression

 

car sachant que un tours met entre 15 et 45seconde l'utilisateur risquerai de s'impatienter...

 

 

 

merci d'avance de vos conseil

 

Harksin

Lien vers le commentaire
Partager sur d’autres sites

Salut

 

un exemple qui utilise ou pas la progress bar des express tools

(defun c:test(/ express n tot wait)
 (and (eval 'acet-ui-progress-done) (setq express T))
 (setq tot 100 wait "|" n 0)
 (if express
   (acet-ui-progress-init "Avancement : " tot)
   (princ (strcat "\nTraitement en cours... " wait))
 )
 (repeat tot
   (repeat 100000) ; une petite pause
   (if express
     (progn
(setq n (1+ n))
(acet-ui-progress-safe n)
     )
     (progn
(cond
  ((eq wait "|")
    (setq wait "/")
  )
  ((eq wait "/")
    (setq wait "-")
  )
  ((eq wait "-")
    (setq wait "\\")
  )
  (T
    (setq wait "|")
  )
)
(princ (strcat (chr 8) wait))(princ)
     )
   )
 )
 (and express (acet-ui-progress-done))
 (princ)
)

 

@+

Les Lisps de Patrick

Le but n'est pas toujours placé pour être atteint, mais pour servir de point de mire.

Joseph Joubert, 1754-1824

Lien vers le commentaire
Partager sur d’autres sites

Rejoindre la conversation

Vous pouvez publier maintenant et vous inscrire plus tard. Si vous avez un compte, connectez-vous maintenant pour publier avec votre compte.

Invité
Répondre à ce sujet…

×   Collé en tant que texte enrichi.   Coller en tant que texte brut à la place

  Seulement 75 émoticônes maximum sont autorisées.

×   Votre lien a été automatiquement intégré.   Afficher plutôt comme un lien

×   Votre contenu précédent a été rétabli.   Vider l’éditeur

×   Vous ne pouvez pas directement coller des images. Envoyez-les depuis votre ordinateur ou insérez-les depuis une URL.

Chargement
 Partager

×
×
  • Créer...

Information importante

Nous avons placé des cookies sur votre appareil pour aider à améliorer ce site. Vous pouvez choisir d’ajuster vos paramètres de cookie, sinon nous supposerons que vous êtes d’accord pour continuer. Politique de confidentialité