test.scr

来自「ccp」· SCR 代码 · 共 50 行

//----------------------------------------
// TEST.SCR
// Demonstrates CANapes Scripting Feature
// 14.02.2000
//-----------------------------------------

/* Example Script */

/*
   Symbolnames are case sensitive
   All function symbols start with an capital letter
*/

// Define lokal variables
var i;
var j = 0;
var t0,t1;
  
// Prepare the write window 
OpenWriteWindow();
ClearWriteWindow();

// Display a message box
Print("Push OK to start Test.SCR");

// Print into write window
Write("------------------------------------");
Write("CANape Scripting Demonstration");
Write("CCPSIM/TEST.SCR");
  
// Example: while loop timing measurement
Write("------------------------------------");
t0 = GetClock(); // 100us Resolution
i = 0;
while (i<1000000) {
  i = i+1;
  t1 = GetClock();
  if (t1-t0>10000) break;
}
Write("While loop");
Write("time=%gms, loops=%g\n",(t1-t0)/10,i);
  



Write("------------------------------------");