威纶通配方——宏指令.doc

/**********************************************************行号刷新——number**********************************************************/mandmain()shortindex,array[10]     //数组array[10]是存放行号的数组boolOFF=false,ON=true GetData(index,"本机触摸屏",LW,9000,1)//a用于提取索引寄存器的当前值 array[0]=1+index/70      //索引寄存器的值以700的倍数递增,即以当前页面中占用地址总数为基数array[1]=array[0]+1array[2]=array[1]+1array[3]=array[2]+1array[4]=array[3]+1array[5]=array[4]+1array[6]=array[5]+1array[7]=array[6]+1array[8]=array[7]+1array[9]=array[8]+1SetData(array[0],"本机触摸屏",RW,7800,10)//RW7800~RW7809中存放行号SetData(OFF,"本机触摸屏",LB,4,1)//清零宏指令触发位              mand /**********************************************************新增——add**********************************************************/mandmain()shortname[5],temp[5],data[65]shorti,var=0,CurtLine=0,index=0,NextLine=0boolOFF=false,flag=false GetData(CurtLine,"本机触摸屏",RW,8000,1)       //获取RW8000的值,即保存的行数 GetData(name[0],"本机触摸屏",LW,0,5)//获取LW0的值,即输入的配方名   GetData(data[0],"PanasonicFP",DT,32700,65)//获取当前HMI的数据输入值 //判断数据表是否填满,若未填满,则判断是否有重名ifCurtLine==100then       flag=true       SetData(flag,"本机触摸屏",LB,22,1)else       //判断是否有重名       fori=0to99step1                 GetData(temp[0],"本机触摸屏",RW,var,5)//遍历每一行的配方名              ifname[0]==temp[0]andname[1]==temp[1]andname[2]==temp[2]andname[3]==temp[3]andname[4]==temp[4]  then                       flag=true                     SetData(flag,"本机触摸屏",LB,21,1)//若