威纶通配方——宏指令.doc

文档介绍：威纶通配方——宏指令
/**********************************************************行号刷新——number*************************************
威纶通配方——宏指令
/**********************************************************行号刷新——number**********************************************************/
macro_commandmain()
shortindex,array[10]     //数组array[10]是存放行号的数组
boolOFF=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)//清零宏指令触发位             
 
              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,1)//若有重名则跳出“警告”框,提示该配方已存在                       
              else
                   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],