Beispielprogramm Laufzeitregister - Jetter JVM-104 Betriebsanleitung

JVM-104

Beispielprogramm Laufzeitregister

Aufgabe
Lösung
Softwareversionen
JetSym-STX-Programm
Jetter AG
Messen Sie, wie lange das Abspeichern von Variablenwerten in einer Datei
dauert.
Bevor Sie die Werte abspeichern, setzen Sie das Register 201000 auf 0.
Wenn die Werte abgespeichert sind, lesen Sie aus diesem Register die benö-
tigte Zeit in Millisekunden.
Das Beispielprogramm ist getestet mit den folgenden Softwareversionen:
 JetSym in der Version 5.2
 Bediengerät JVM-104 in der OS-Version 4.01
Sie finden weiterführende Informationen zum Thema STX-Programmierung in
der Online-Hilfe von JetSym.
Var
DataArray: Array[2000]
File1: File;
WriteTime: Int;
WriteIt: Bool;
MilliSec: Int
End_Var;
Task WriteToFile Autorun
Loop
// Startmerker zurücksetzen
WriteIt := False;
// Warten bis Anwender den Startmerker gesetzt hat
When WriteIt Continue;
// Datei im Schreibmodus öffnen
// Wenn keine Datei vorhanden ist, dann wird eine neue Datei
// erstellt
If FileOpen(File1, 'Test.dat', fWrite)
// Anwendungszeitbasis-Register auf Null setzen
MilliSec := 0;
// Datenbereich in die Datei schreiben
FileWrite(File1, DataArray, SizeOf(DataArray));
// Laufzeit erfassen
WriteTime := MilliSec;
FileClose(File1);
// Laufzeit anzeigen
Trace(StrFormat('Time : %d
Of Int;
At %VL 201000;
[ms]$n', WriteTime));
Programmierung
Then
199