Jetter JVM-407B-HMI, Руководство пользователя

Страница: 212 / 300

212 Jetter AG
10 Programming
Sample program - Runtime registers
Measure how much time it takes to store variable values to a file.
Before storing the values, set register 201000 to 0.
Once the values have been stored, you can see from this register how much
time it took to store the values [in milliseconds].
The sample program has been tested for compliance with the following
software versions:

JetSym version 5.1
 HMI JVM-407B, OS version 4.01
For more information on programming by STX, please turn to the online help
in JetSym.
Var
DataArray: Array [ 2000 ] Of Int;
File1: File;
WriteTime: Int;
WriteIt: Bool;
MilliSec: Int
At %VL 201000 ;
End_Var ;
Task WriteToFile Autorun
Loop
// Resetting the start flag
WriteIt := False ;
// Waiting for user to set start flag
When WriteIt Continue ;
// Opening the file in write mode
// If there is no file available, a new file
// is created
If FileOpen(File1, 'Test.dat' , fWrite) Then
// Setting the application time base register to zero
MilliSec := 0 ;
// Writing the data array into the file
FileWrite(File1, DataArray, SizeOf (DataArray));
// Registering the run time
WriteTime := MilliSec;
FileClose(File1);
// Displaying the run time
Trace(StrFormat( 'Time : %d [ms]$n' , WriteTime));
Task
Solution
Software versions
JetSym STX program