/**********************************************************行号刷新——number**********************************************************/
macro_command main()
short index,array[10] //数组array[10]是存放行号的数组
bool OFF=false,ON=true
GetData(index, "本机触摸屏", LW, 9000, 1)//a用于提取索引寄存器的当前值
array[0]=1+index/70 //索引寄存器的值以700的倍数递增，即以当前页面中占用地址总数为基数
array[1]=array[0]+1
array[2]=array[1]+1
array[3]=array[2]+1
array[4]=array[3]+1
array[5]=array[4]+1
array[6]=array[5]+1
array[7]=array[6]+1
array[8]=array[7]+1
array[9]=array[8]+1
SetData(array[0], "本机触摸屏", RW, 7800, 10) //RW7800~RW7809中存放行号
SetData(OFF, "本机触摸屏", LB, 4, 1) //清零宏指令触发位
end macro_command
/**********************************************************新增——add**********************************************************/
macro_command main()
short name[5],temp[5],data[65]
short i,var=0,CurtLine=0,index=0,NextLine=0
bool OFF=false,flag=false
GetData(CurtLine, "本机触摸屏", RW, 8000, 1) //获取RW8000的值，即保存的行数
GetData(name[0], "本机触摸屏", LW, 0, 5)//获取LW0的值，即输入的配方名
GetData(data[0], "Panasonic FP", DT, 32700, 65)//获取当前HMI的数据输入值
//判断数据表是否填满,若未填满，则判断是否有重名
if CurtLine==100 then
flag=true
SetData(flag, "本机触摸屏", LB, 22, 1)
else
//判断是否有重名
for i=0 to 99 step 1
GetData(temp[0], "本机触摸屏", RW, var, 5)//遍历每一行的配方名
if name[0]==temp[0] and name[1]==temp[1] and name[2]==temp[2] and name[3]==temp[3] and name[4]==temp[4] then
flag=true
SetData(flag, "本机触摸屏", LB, 21, 1)//若有重名则跳出“警告”框，提示该配方已存在
else
var=var+70//否则开始查询下一行
end
if
next i
//遍历所有行未找到匹配值，就将配方名和数据保存在数据表中
if flag==false then
var=0
var=70*CurtLine //当前行的索引量
SetData(name[0], "本机触摸屏", RW, var, 5)//将LW0中的配方名保存至新地址RW(0+var)中
SetData(data[0], "本机触摸屏", RW, 5+var, 65)//将DT32700中连续的65个数据保存在RW(5+var)65个连续的地址中
//下面程序是实现数据表行数增加
if CurtLine<100 then
NextLine=CurtLine+1
index=(NextLine/10)*700
SetData(NextLine, "本机触摸屏", RW, 8000, 1)
SetData(index, "本机触摸屏", LW, 9000, 1)
flag=true
SetData(flag, "本机触摸屏", LB, 4, 1)
end if
end if
end if
FILL(name[0], 0, 5)
SetData(name[0], "本机触摸屏", LW, 0, 5)//清空LW0的值，即清空输入的配方名
SetData(OFF, "本机触摸屏", LB, 0, 1) //清零宏指令触发位
end macro_command
/**********************************************************调用——aquire**********************************************************/
macro_command main()
short name[5],temp[5]//定义两个数组，name[5]用于获取输入配方名，temp[5]用于获取某一行的配方名
short i,index,var=0,Data[65]//数组b[80]用于获取某一行的存储数据
bool ON=true,OFF,flag=false
GetData(name[0], "本机触摸屏", LW, 0, 5)//获取输入的配方名
//下面程序用于查找与输入的配方名匹配的数据，并将数据下载至PLC中
for i=0 to 99 step 1
