WebAccess-计算脚本运行时间

#--------用循环变量构造点名称，计算脚本运行时间-------------
#--------该例的点名称为C1 ~ C600 ---------------------------
set startime [clock seconds]
for {set i 1} {$i<=600} {incr i} {
SETVAL "C$i=%LOOPPLUS 1"
}
set stoptime [clock seconds]
BWSPOOL [expr $stoptime - $startime]\r\n

#--------给Tag赋随机数值-----------
SETVAL "ConstAna$i=[expr int(100*rand())]"

#---车库灯控制：有车进来，亮对应车库的灯，没有车进来，5秒后灯自动关闭
set NowTime [clock seconds]
switch [GETVAL CarRegion] \

"1"
{SETVAL Light=1; SETVAL STime=$NowTime} \

"2"
{SETVAL Light=2; SETVAL STime=$NowTime} \

"3"
{SETVAL Light=3; SETVAL STime=$NowTime} \

"4"
{SETVAL Light=4; SETVAL STime=$NowTime}
if {[expr $NowTime-[GETVAL STime]]>5} then {

SETVAL Light=0
}
# CarRegion:车库号
# Light:
灯号
# STime:
本地文本点