威伦通宏指令

威伦通宏指令用的是VBS脚本语言

（1）流水灯程序

宏指令触发时，LB2要为1程序才能一直执行

//宏指令如果用触发执行时，start要等于1，while语句才能执行，如果while跳过了，程序只执行一次就退出了
macro_command main()
bool lamp[12]= {0}, start=0, on=1                    //定义一个布尔数组，两个布尔变量
short i=0                                            //定义一个短整形变量
GetData(start, "Local HMI", LB, 2, 1)                //读取触摸屏中LB2的数据，存入start变量中
while start==1
    for i = 0 to 11 step 1
        FILL(lamp[0], 0, 12)                        //初使化数组每个元素为0
        lamp[i] = 1
        SetData(lamp[0], "Local HMI", LB, 10, 12)    //将数组的值依次定入LB10-LB12
        DELAY(200)                                    //延时200ms
        GetData(start, "Local HMI", LB, 2, 1)        //读取LB2值，存入START中
        if start<>1 then 
            break
        end if
    next i
    
    for i=10 down 1 step 1                        
        if start<>1 then                            //这里加入if判断语句，防止start为0时再执行for一次循环
            break
        end if
        FILL(lamp[0], 0, 12)
        lamp[i] = 1
        SetData(lamp[0], "Local HMI", LB, 10, 12)    //将数组的值依次定入LB10-LB12
        DELAY(200)                                    //延时200ms
        GetData(start, "Local HMI", LB, 2, 1)        //读取LB2值，存入START中
    next i            

wend
//SetData(on, "Local HMI", LB, 2, 1)
end macro_command