威綸通配方-宏指令

/**********************************************************行號刷新——number**********************************************************/macro_commandmain()shortindex,array[10]

//數(shù)組array[10]是存放行號的數(shù)組boolOFF=false,ON=true

GetData(index,"本機觸摸屏",LW,9000,1)//a用于提取索引寄存器的當前值

array[0]=1+index/70

//索引寄存器的值以700的倍數(shù)遞增，即以當前頁面中占用地址總數(shù)為基數(shù)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)//清零宏指令觸發(fā)位

endmacro_command

/**********************************************************新增——add**********************************************************/macro_commandmain()shortname[5],temp[5],data[65]shorti,var=0,CurtLine=0,index=0,NextLine=0boolOFF=false,flag=false

GetData(CurtLine,"本機觸摸屏",RW,8000,1)

//獲取RW8000的值，即保存的行數(shù)

GetData(name[0],"本機觸摸屏",LW,0,5)//獲取LW0的值，即輸入的配方名

GetData(data[0],"PanasonicFP",DT,32700,65)//獲取當前HMI的數(shù)據(jù)輸入值

//判斷數(shù)據(jù)表是否填滿,若未填滿，則判斷是否有重名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

/**********************************************************刪除——del**********************************************************/macro_commandmain()shorti=0,j=0,var=0shortMaxLine=0,CurtLine=0,MoveTime=0,index=0,CurtAddress=0,NextAddress=0shortc[70],name[5],clear[70],check[5]boolzero=0,ON=true,OFF,flag=false

//獲取相應操作數(shù)FILL(clear[0],0,70)GetData(MaxLine,"本機觸摸屏",RW,8000,1)

//獲取數(shù)據(jù)表大小GetData(name[0],"本機觸摸屏",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]

then

flag=true

//找到后置位標志位

CurtLine=i

//記錄匹配配方名所在行

CurtAddress=var

//記錄匹配配方名的地址

MoveTime=MaxLine-CurtLine-1

//要移動的次數(shù)

//下面程序執(zhí)行數(shù)據(jù)覆蓋操作

forj=1toMoveTimestep1

NextAddress=CurtAddress+70

//記錄下一條數(shù)據(jù)位置

GetData(c[0],"本機觸摸屏",RW,NextAddress,70)

//下一條數(shù)據(jù)記錄覆蓋當前記錄

SetData(c[0],"本機觸摸屏",RW,CurtAddress,70)

CurtAddress=NextAddress

//移動一次后下一地址變?yōu)楫斍暗刂?/p>

nextj

//進行下一次數(shù)據(jù)覆蓋

//最后一行清零

SetData(clear[0],"本機觸摸屏",RW,CurtAddress,70)//所有數(shù)據(jù)覆蓋后，當前地址已經(jīng)是最后一行起始地址

//下面程序實現(xiàn)數(shù)據(jù)表行數(shù)減少

MaxLine=MaxLine-1

index=(CurtAddress/700)*700

SetData(MaxLine,"本機觸摸屏",RW,8000,1)

SetData(index,"本機觸摸屏",LW,9000,1)

SetData(ON,"本機觸摸屏",LB,4,1)

else

var=var+70

endifnexti

//若找不到匹配的配方記錄，則報警提示

ifflag==falsethen

SetData(ON,"本機觸摸屏",LB,20,1)endif

FILL(name[0],0,5)SetData(name[0],"本機觸摸屏",LW,0,5)//清空LW0的值，即清空輸入的配方名

SetData(zero,"本機觸摸屏",LB,3,1)

endmacro_command

/**********************************************************首頁——MinPage**********************************************************/macro_commandmain()shortindexboolON=trueGetData(index,"本機觸摸屏",LW,9000,1)//a用于提取索引寄存器的當前值ifindex==0then

SetData(ON,"本機觸摸屏",LB,23,1)endifSetData(ON,"本機觸摸屏",LB,4,1)

endmacro_command

/**********************************************************尾頁——MaxPage**********************************************************/macro_commandmain()shortindexboolON=trueGetData(index,"本機觸摸屏",LW,9000,1)ifindex==6300then

SetData(ON,"本機觸摸屏",LB,24,1)endifSetData(ON,"本機觸摸屏",LB,4,1)

endmacro_command

/**********************************************************行號初始化——Initial*********