3DVL

Motion Inspector script

Bibliothèque interne






 

Quit – Stop - Pause


Quit


Usage


Quit(string message)


Description


Cette procédure arête l’exécution du script ET du programme (dans le cas le script lancé à partir d’autres application). Un message est alors affiché. Pour arrêter l’exécution du script, utiliser l’instruction StopSTOP


Stop


Usage


Stop(string message)


Description


Cette procédure arête l’exécution du script seul (à la différence de la procédure Quit. Un message est affiché.


Pause


Usage


Pause(string message)


Description


Cette procédure arête temporairement l’execution d’un script et affiche un message dans une fenêtre. L’exécution du programme se poursuit après avoir appuyé sur la touche « Entrée »



GetDateTime


Usage


String GetDateTime()


Description


Cette fonction renvoie une chaîne de caractère contenant la date complète (jour, mois, année et heure).


Exemple


var today := GetDateTime();

print today,endl;




System


Usage


System(string command)


Description


Cette fonction lance une commande au système. Cette commande est une chaine de caractères et doit être valide.


Exemple


System("Dir *.*");


Exec


Usage


Exec(string prgm, string command, bool visible)



Description


Cette procedure lance l’exécution d’un programme (prog). Celui-ci est représenté par son nom. Le deuxième argument correspond à la ligne de commande du programme. Cette chaîne de caractère peut être vide ou contenir des informations pour le programme. Le troisième argument (bool) détermine si le programme est affiché ou non.


Exemple


Exec("explorer.exe", "c:\", true);



Wait


Usage


Wait(long ms)


Description


Cette commande génère une attente de ms millesecondes.


Exemple


Wait(1000); // Attente d'une seconde



GetTickCount


Usage


Long GetTickCount()


Desccription


Cette fonction renvoie le temps en ms depuis le démarrage de l’ordinateur. Cette fonction est souvent utilisée pour dater des événements ou mesurer le temps (de calcul par exemple).



Exemple



Procedure Calcul()

var i;

var v := 1.0;

for(i := 0; i < 10000; i++)

v := v*2.0;

var s := sin(1.0/v);

var c := cos(1.0/v);

end;

end;


Procedure Main()

var Time0 := GetTickCount();

calcul();

var Time1 := GetTickCount();

var Time := Time1-Time0;

Message("Temps de calcul en ms = " +str(Time));

End;