Aller au contenu

Petit Chrono sympatoche...


DenisHen

Messages recommandés

Bonjour à tous.
Voilà, pour un besoin perso, j'ai créé , enfin "j'ai", fait à 95% par Maître (gile), un petit chronomètre qui mesure le temps entre la routine "DebutChrono" et "FinChrono".
Il suffit de lancer la première routine avant une commande, ou au début d'un Lisp, et de lancer la deuxième à la fin (de la commande ou du Lisp).
Le résultat donne le laps de temps entre les lancement de ces deux commandes ainsi que la moyenne enregistrée.
Pour réinitialisé la moyenne, il suffit de taper en ligne de commande ou de placer dans un Lisp :

(vlax-ldata-put "DenisH" "ComptTmpMoyen" 0)
Et voici les Lisp :
;;;*********************************
;;;           Chronomètre          *
;;; Fait par DenisHen de CadXP.com *
;;;   Merci à (gile) de CadXP.com  *
;;;*********************************
;;;   Déclanche le chronomètre **
(defun c:DebutChrono ()
 (vlax-ldata-put "DenisH" "ComptTmpDeb" (getvar 'millisecs))
 (princ "\nDébut du chronomètre  ***")
 (princ)
) ;_ Fin de defun
;;;******************************
;;;     Arrête le chronomètre  **
(defun c:FinChrono ()
 (vlax-ldata-put "DenisH" "ComptTmpFin" (getvar 'millisecs))
 (princ "\nFin du chronomètre")
 (setq ComptTmp (- (vlax-ldata-get "DenisH" "ComptTmpFin") (vlax-ldata-get "DenisH" "ComptTmpDeb")))
 (setq ComptMoyen (vlax-ldata-get "DenisH" "ComptTmpMoyen" 0))
 (setq ComptMoyen (+ ComptMoyen ComptTmp))
 (prompt (strcat "\tTemps écoulé : "
                 (itoa (setq h (/ ComptTmp 3600000)))
                 "h "
                 (itoa (setq m (/ (setq r (- ComptTmp (* h 3600000))) 60000)))
                 "m "
                 (rtos (/ (- r (* m 60000)) 1000.) 2 3)
                 "s"
         ) ;_ Fin de strcat
 ) ;_ Fin de prompt
 (if (= ComptMoyen ComptTmp)
   (vlax-ldata-put "DenisH" "ComptTmpMoyen" ComptTmp)
   (progn (setq ComptMoyen (vlax-ldata-get "DenisH" "ComptTmpMoyen"))
          (vlax-ldata-put "DenisH" "ComptTmpMoyen" (/ (+ ComptTmp ComptMoyen) 2))
          (prompt (strcat "\tTemps moyen : "
                          (itoa (setq h (/ ComptMoyen 3600000)))
                          "h "
                          (itoa (setq m (/ (setq r (- ComptMoyen (* h 3600000))) 60000)))
                          "m "
                          (rtos (/ (- r (* m 60000)) 1000.) 2 3)
                          "s"
                  ) ;_ Fin de strcat
          ) ;_ Fin de prompt
   ) ;_ Fin de progn
 ) ;_ Fin de if
 (princ)
) ;_ Fin de defun
Amusez-vous bien...
Denis...

Windows 11 / AutoCAD 2024

Sur terre, il y a 10 types de personnes, celles qui comptent en binaire et les autres (developpez.net).
Davantage d'avantages, avantagent davantage (Bobby Lapointe).
La connaissance s'accroît quand on la partage (Socrate).
Tant va la cruche à l'eau que l'habit n'amasse pas mousse avant de l'avoir tué. (Moi)

Lien vers le commentaire
Partager sur d’autres sites

Créer un compte ou se connecter pour commenter

Vous devez être membre afin de pouvoir déposer un commentaire

Créer un compte

Créez un compte sur notre communauté. C’est facile !

Créer un nouveau compte

Se connecter

Vous avez déjà un compte ? Connectez-vous ici.

Connectez-vous maintenant
×
×
  • 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é