|
|
|
|
|
|
||
3DVL Motion Inspector script Bibliothèque interne |
|||
|
|
|
|
|
|
|
|
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
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é.
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 »
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;
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 *.*");
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);
Usage
Wait(long ms)
Description
Cette commande génère une attente de ms millesecondes.
Exemple
Wait(1000); // Attente d'une seconde
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;