Cet utilitaire est à intégrer dans le code de vos projets VB6. Il mesure le temps d'éxécution de processus à un millième de seconde près. Les résultats sont enregistrés dans un fichier Excel grâce à DAO (Si vous utilisez ADO, il vous faudra adapter votre projet en remplaçant 'As Recordset' par 'As ADO.Recordset' etc. pour éviter les confusions et ajouter DAO aux références du projet). Vous pourrez donc faire des graphes de performances avec Excel et les analyser pour optimiser votre code.
Utilisation :
1. Choisir un fichier Excel déjà existant.
2. Démarrer une nouvelle session en appuyant sur le bouton Play. La connection s'établit et une nouvelle feuille de calcul est ouverte. La saisie des mesures est possible.
3. Lancez votre processus.
Quand celui-ci est terminé, vous terminer la session avec le bouton Stop.
Les informations de performance du système, le temps d'exécution et différents arguments que vous aurez donnés sont enregistrés.
Vous pouvez aussi enregistrer les performances du sytème en appuyant sur le bouton Record situé sous la barre des performances, ceci après avoir choisi votre fichier de sauvegarde.
Dans votre code :
- Signalez le début du processus en appelant la procédure BeginProcess "(Nom du processus)", "[(Nom argument 1), [(Nom argument 2)]] ..."
- Pour ajouter une mesure, appelez AddEntry "[(Argument 1), [(Argument 2)]]"
- Si l'utilisateur a pausé les mesures, vérifiez que Perform.MeasureStatus <> 2 dans une boucle :
Do
DoEvents
Loop While Perform.MeasureStatus = 2
Un conseil : mettez ce code entre #If Debugging = True Then ... #End If
Vous pouvez ainsi mettre en pause le processus pour faire autre chose sans déranger l'état du système lors de l'exécution.