|
# 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 .
|
