资源描述：
《威纶通配方——宏指令》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。
1、实用标准文档/**********************************************************行号刷新——number**********************************************************/macro_commandmain()shortindex,array[10] //数组array[10]是存放行号的数组boolOFF=false,ON=true GetData(index,"本机触摸屏",LW,9000,1)//a用于提取索引寄存器的当前值 array[0]=1+index/7
2、0 //索引寄存器的值以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,"本机触摸屏",L
3、B,4,1)//清零宏指令触发位 endmacro_command文案大全实用标准文档 /**********************************************************新增——add**********************************************************/macro_commandmain()shortname[5],temp[5],data[65]shorti,var=0,CurtLine=0,index=0,NextLine=0boolOFF=false,flag
4、=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 //判断是
5、否有重名 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
6、,1)//若有重名则跳出“警告”框，提示该配方已存在 else var=var+70//否则开始查询下一行 endif nexti //遍历所有行未找到匹配值，就将配方名和数据保存在数据表中 ifflag==falsethen var=0 var=70*CurtLine
7、//当前行的索引量 SetData(name[0],"本机触摸屏",RW,var,5)//将LW0中的配方名保存至新地址RW(0+var)中 SetData(data[0],"本机触摸屏",RW,5+var,65)//将DT32700中连续的65个数据保存在RW(5+var)65个连续的地址中 //下面程序是实现数据表行数增加 ifCurtLine<100then NextLi
