威纶通配方宏指令Word格式文档下载.docx
《威纶通配方宏指令Word格式文档下载.docx》由会员分享，可在线阅读，更多相关《威纶通配方宏指令Word格式文档下载.docx（7页珍藏版）》请在冰豆网上搜索。
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）//清零宏指令触发位
endmacro_command
/**********************************************************新增——add**********************************************************/
shortname[5],temp[5],data[65]
shorti,var=0,CurtLine=0,index=0,NextLine=0
boolOFF=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
LB,21,1）//若有重名则跳出“警告”框，提示该配方已存在
var=var+70//否则开始查询下一行
endif
nexti
//遍历所有行未找到匹配值，就将配方名和数据保存在数据表中
ifflag==falsethen
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个连续的地址中
//下面程序是实现数据表行数增加
ifCurtLine<
100then
NextLine=CurtLine+1
index=（NextLine/10）*700
SetData（NextLine,"
RW,8000,1）
SetData（index,"
LW,9000,1）
LB,4,1）
endif
FILL（name[0],0,5）
LW,0,5）//清空LW0的值，即清空输入的配方名
LB,0,1）
//清零宏指令触发位
/**********************************************************调用——aquire**********************************************************/
macro_commandmain（）
shortname[5],temp[5]//定义两个数组，name[5]用于获取输入配方名，temp[5]用于获取某一行的配方名
shorti,index,var=0,Data[65]//数组b[80]用于获取某一行的存储数据
boolON=true,OFF,flag=false
LW,0,5）//获取输入的配方名
//下面程序用于查找与输入的配方名匹配的数据，并将数据下载至PLC中
RW,var,5）
//查询存储的配方名
then
GetData（Data[0],"
RW,5+var,65）
//获取匹配行的存储数据
SetData（Data[0],"
DT,32700,65）
//将查找到的数据传给下位机
else
var=var+70//下一个配方名地址
ifflag==falsethen
SetData（ON,"
LB,20,1）
LW,0,5）//清空LW0的值，即清空输入的配方名
LB,1,1）//清零宏指令触发位
/**********************************************************删除——del**********************************************************/
shorti=0,j=0,var=0
shortMaxLine=0,CurtLine=0,MoveTime=0,index=0,CurtAddress=0,NextAddress=0
shortc[70],name[5],clear[70],check[5]
boolzero=0,ON=true,OFF,flag=false
//获取相应操作数
FILL（clear[0],0,70）
GetData（MaxLine,"
//获取数据表大小
LW,0,5）//获取LW0的值，即要删除的配方名
//查找要删除的记录，并将其删除
fori=0toMaxLinestep1
GetData（check[0],"
RW,var,5）//查找匹配的配方名
ifname[0]==check[0]andname[1]==check[1]andname[2]==check[2]andname[3]==check[3]andname[4]==check[4]
flag=true
//找到后置位标志位
CurtLine=i
//记录匹配配方名所在行
CurtAddress=var
//记录匹配配方名的地址
MoveTime=MaxLine-CurtLine-1
//要移动的次数
//下面程序执行数据覆盖操作
forj=1toMoveTimestep1
NextAddress=CurtAddress+70
//记录下一条数据位置
GetData（c[0],"
RW,NextAddress,70）
//下一条数据记录覆盖当前记录
SetData（c[0],"
RW,CurtAddress,70）
CurtAddress=NextAddress
//移动一次后下一地址变为当前地址
nextj
//进行下一次数
升级会员 