Barre de progression

[harksin]

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

[Patrick_35]

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)
)

 

@+