威綸通配方——宏指令

1、精品資料*number*/macro_command main()short index,array10/數(shù)組array10是存放行號的數(shù)組bool OFF=false,ON=trueGetData(index, 本機觸摸屏, LW, 9000, 1)/a用于提取索引寄存器的當前值array0=1+index/70 /索引寄存器的值以700的倍數(shù)遞增，即以當 前頁面中占用地址總數(shù)為基數(shù)array1=array0+1array2=array1+1array3=array2+1array4=array3+1array5=array4+1array6=array5+1 array7=array6+1

2、行號刷新精品資料array8=array7+1 array9=array8+1SetData（array0, 本機觸摸屏, RW, 7800, 10） /RW7800RW7809中存放行號SetData（OFF, 本 機 觸 摸 屏, LB, 4, 1） /清 零 宏 指 令 觸 發(fā)位end macro_command新增add* *macro_command main（） shortname5,temp5,data65 shorti,var=0,CurtLine=0,index=0,NextLine=0 boolOFF=false,flag=falseGetData（CurtLine, 本機

3、觸摸屏, RW, 8000, 1）的值，即保存的行數(shù)GetData（name0, 本機觸摸屏, LW, 0, 5）/獲取LW0的值，即輸入的配方名GetData （data0, Panasonic FP, DT, 32700, 65） /獲取當前HMI的數(shù)據(jù)輸入值/獲取RW8000精品資料/判斷數(shù)據(jù)表是否填滿,若未填滿，則判斷是否有重名if CurtLine=100 thenflag=trueSetData（flag, 本機觸摸屏, LB, 22, 1）else/判斷是否有重名for i=0 to 99 step 1GetData（temp0, 本機觸摸屏, RW, var, 5）/遍歷每一行

4、的配方名if name0=temp0 and name1=temp1and name2=temp2 and name3=temp3 andname4=temp4 thenflag=true精品資料SetData（flag, 本機觸摸屏, LB,21, 1）/若 有 重 名 則 跳 出 “警 告 ”框 ， 提 示 該 配 方 已 存 在elsevar=var+70/否 則 開 始 查 詢 下 一行end ifnext i/遍歷所有行未找到匹配值，就將配方名和數(shù)據(jù)保存在數(shù)據(jù)表中ifflag=false thenvar=0SetData （name0, 本機觸摸屏, RW, var, 5） /將LW

5、0中的配方名保存至新地址RW（0+var）中SetData（data0, 本 機觸摸 屏, RW, 5+var,65）/將DT32700中連續(xù)的65個數(shù)據(jù)保存在RW（5+var）65個連續(xù)的地址中var=70*CurtLine/當前行的索引量精品資料/下面程序是實現(xiàn)數(shù)據(jù)表行數(shù)增加if CurtLine100 thenNextLine=CurtLine+1 index=（NextLine/10）*700SetData（NextLine, 本 機觸摸屏, RW, 8000, 1）SetData（index, 本機觸摸屏,LW, 9000, 1）flag=trueSetData（flag, 本機觸摸

6、屏, LB,4, 1）end ifend ifend ifFILL（name0, 0, 5）精品資料SetData（name0, 本機觸摸屏, LW, 0, 5）/清空LW0的值，即清空輸入的配方名SetData(OFF, 本機觸摸屏, LB, 0, 1)end macro_command調(diào)用aquire macro_command main()short name5,temp5/定義兩個數(shù)組，name5用于獲取輸入配方名，temp5用于獲取某一行的配方名short i,index,var=0,Data65/數(shù)組b80用于獲取某一行的存儲數(shù)據(jù)bool ON=true,OFF,flag=fals

7、eGetData（name0, 本機觸摸屏, LW, 0, 5）/獲取輸入的配方名/下面程序用于查找與輸入的配方名匹配的數(shù)據(jù)，并將數(shù)據(jù)下載至PLC中for i=0 to 99 step 1/清零宏指令觸發(fā)位精品資料GetData（temp0, 本機觸摸屏, RW, var, 5）/查詢存儲的配方名if name0=temp0 and name1=temp1 and name2=temp2 andname3=temp3 and name4=temp4thenflag=trueGetData（Data0, 本機觸摸屏, RW, 5+var,65）/獲取匹配行的存儲數(shù)據(jù)SetData（Data0,

8、Panasonic FP, DT, 32700,65）/將查找到的數(shù)據(jù)傳給下位機elsevar=var+70 /下一個配方名地址end ifnext i if flag=false thenSetData（ON, 本機觸摸屏, LB, 20, 1）end ifFILL(name0, 0, 5)SetData（name0, 本機觸摸屏, LW, 0, 5）/清空LW0的值，即清空輸入的配精品資料方 名SetData（OFF, 本機觸摸屏, LB, 1, 1）/清零宏指令觸發(fā)位end macro_command刪除del macro_command main()short i=0,j=0,var=

9、0shortMaxLine=0,CurtLine=0,MoveTime=0,index=0,CurtAddress=0,NextAddress=0short c70,name5,clear70,check5bool zero=0,ON=true,OFF,flag=false/獲取相應操作數(shù)FILL（clear0,0,70）GetData（MaxLine, 本機觸摸屏, RW, 8000, 1）/獲取數(shù)據(jù)表大小GetData（name0, 本機觸摸屏, LW, 0, 5）/獲取LW0的值，即要刪除的配方精品資料名/查找要刪除的記錄，并將其刪除for i=0 to MaxLine step 1Ge

10、tData（check0, 本機觸摸屏, RW, var, 5）/查找匹配的配方名if name0=check0 and name1=check1 and name2=check2and name3=check3 and name4=check4thenflag=true /找到后置位標志位CurtLine=i/記錄匹配配方名所在行CurtAddress=var/記錄匹配配方名的地址MoveTime=MaxLine-CurtLine-1/要移動的次數(shù)/下面程序執(zhí)行數(shù)據(jù)覆蓋操作精品資料1NextAddress=CurtAddress+70/記錄下一條數(shù)據(jù)位置GetData（c0, 本 機 觸 摸

11、 屏, RW,NextAddress, 70） /下一條數(shù)據(jù)記錄覆蓋當前記錄SetData（c0, 本機觸摸屏, RW,CurtAddress, 70）CurtAddress=NextAddress/移動一次后下一地址變?yōu)楫斍暗刂穘ext j /進行下一次數(shù)據(jù)覆蓋/最后一行清零SetData（clear0, 本機觸摸屏, RW, CurtAddress,70）/所有數(shù)據(jù)覆蓋后，當前地址已經(jīng)是最后一行起始地址/下面程序?qū)崿F(xiàn)數(shù)據(jù)表行數(shù)減少forj=1toMoveTimestep精品資料MaxLine=MaxLine-1index=（CurtAddress/700）*700SetData（MaxLi

12、ne, 本機觸摸屏, RW, 8000, 1）SetData（index, 本機觸摸屏, LW, 9000, 1）SetData（ON, 本機觸摸屏, LB, 4, 1）elsevar=var+70end ifnext i/若找不到匹配的配方記錄，則報警提示if flag=false thenSetData（ON, 本機觸摸屏, LB, 20, 1）end ifFILL（name0, 0, 5）精品資料SetData（name0, 本機觸摸屏, LW, 0, 5）/清空LW0的值，即清空輸入的配方 名SetData（zero, 本機觸摸屏, LB, 3, 1）end macro_command

13、首頁MinPage macro_command main（） short index boolON=trueGetData（index, 本機觸摸屏, LW, 9000, 1）/a用于提取索引寄存器的當前值ifindex=0 thenSetData（ON, 本機觸摸屏, LB, 23, 1）end ifSetData（ON, 本機觸摸屏, LB, 4, 1）end macro_command精品資料*MaxPage*macro_command main（）short indexbool ON=trueGetData（index, 本機觸摸屏, LW, 9000, 1）if index=6300 thenSetData（ON, 本機觸摸屏, LB, 24, 1）end ifSetData（ON, 本機觸摸屏, LB, 4, 1）end macro_command行