New Solutions tree
     |    |    |    |    |       Tcl script : first script

Home  »  Sitemap  »  Blog  »  Scripts Tcl  »  Article  »  script

# Cache la fenêtre de l'interpréteur wm withdraw . # Charge le package Twapi qui permettra d'utiliser ActiveField package require twapi # Lancement de QuickField set Application [twapi::comobj QuickField.Application ] # A l'aide de la collection de problemes lies a l'application # un probleme est defini en contenant Magn1.pbm set Problems [$Application Problems] set Problem [$Problems Open "./Magn1.pbm" ] # la commande "time" lance une commande et calcule son temps d'execution # "time" retourne une reponse de la forme "288596 microseconds per iteration" # la réponse est stockée dans la variable "tempsdecalcul" set tempsdecalcul [ time { $Problem SolveProblem 0 } ] # Popup pour terminer l'application # On affiche également le temps de calcul tk_messageBox -title Performance -message "Cliquez sur ok, pour terminer.\n\ $tempsdecalcul" # fermeture de QuickField $Application Quit # fermeture de l'interpréteur destroy .

Script version 0.1 2019 | Copyright Ocsimize