【最新精选】威纶通配方——宏指令

【最新精选】威纶通配方——宏指令 /**********************************************************行号刷新——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 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 GetData(Data[0], "本机触摸屏", RW, 5+var, 65) //获取匹配行的存储数据 SetData(Data[0], "Panasonic FP", DT, 32700, 65) // 将查找到的数据传给下位机 else var=var+70 //下一个配方名地址 end if next i if flag==false then SetData(ON, "本机触摸屏", LB, 20, 1) end if FILL(name[0], 0, 5) SetData(name[0], "本机触摸屏", LW, 0, 5)//清空LW0的值，即清空输入的配方名 SetData(OFF, "本机触摸屏", LB, 1, 1)//清零宏指令触发位 end macro_command /**********************************************************删除——del**********************************************************/ macro_command main() short i=0,j=0,var=0 short MaxLine=0,CurtLine=0,MoveTime=0,index=0,CurtAddress=0,NextAddress=0 short c[70],name[5],clear[70],check[5] bool zero=0,ON=true,OFF,flag=false //获取相应操作数 FILL(clear[0],0,70) GetData(MaxLine, "本机触摸屏", RW, 8000, 1) //获取数据表大小 GetData(name[0], "本机触摸屏", LW, 0, 5)//获取LW0的值，即要删除的配方 名 //查找要删除的记录，并将其删除 for i=0 to MaxLine step 1 GetData(check[0], "本机触摸屏", RW, var, 5)//查找匹配的配方名 if name[0]==check[0] and name[1]==check[1] and name[2]==check[2] and name[3]==check[3] and name[4]==check[4] then flag=true //找到后置位标志位 CurtLine=i //记录匹配配方名所在行 CurtAddress=var //记录匹配配方名的地址 MoveTime=MaxLine-CurtLine-1 //要移动的次数 //下面程序执行数据覆盖操作 for j=1 to MoveTime step 1 NextAddress=CurtAddress+70 //记录下一条数据位置 GetData(c[0], "本机触摸屏", RW, NextAddress, 70) //下一条数据记录覆盖当前记录 SetData(c[0], "本机触摸屏", RW, CurtAddress, 70) CurtAddress=NextAddress //移动一次后下一地址变为当前地址 next j //进行下一次数据覆盖 //最后一行清零 SetData(clear[0], "本机触摸屏", RW, CurtAddress, 70)//所有数据覆盖后，当前地址已经是最后一行起始地址 //下面程序实现数据表行数减少 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 end if next i //若找不到匹配的配方记录，则报警提示 if flag==false then SetData(ON, "本机触摸屏", LB, 20, 1) end if FILL(name[0], 0, 5) SetData(name[0], "本机触摸屏", LW, 0, 5)//清空LW0的值，即清空输入的配方名 SetData(zero, "本机触摸屏", LB, 3, 1) end macro_command /**********************************************************首页——MinPage**********************************************************/ macro_command main() short index bool ON=true GetData(index, "本机触摸屏", LW, 9000, 1)//a用于提取索引寄存器的当前值 if index==0 then SetData(ON, "本机触摸屏", LB, 23, 1) end if SetData(ON, "本机触摸屏", LB, 4, 1) end macro_command /**********************************************************尾页——MaxPage**********************************************************/ macro_command main() short index bool ON=true GetData(index, "本机触摸屏", LW, 9000, 1) if index==6300 then SetData(ON, "本机触摸屏", LB, 24, 1) end if SetData(ON, "本机触摸屏", LB, 4, 1) end macro_command /**********************************************************行号初始化—— Initial**********************************************************/ macro_command main() short array[10]={1,2,3,4,5,6,7,8,9,10} bool OFF=false SetData(array[0], "本机触摸屏", RW, 7800, 10) SetData(OFF, "本机触摸屏", LB, 9000, 1) end macro_command 附加总结类文档一篇，不需要的朋友可以下载后编辑删除，谢谢(中学生感恩节主教育活动总结5篇)中学感恩节活动总结范文1一、活动目的如今虽然很多人注意到生活礼仪，谢谢常挂在嘴边，但是大家或许是因为羞于表达或许出于缺少机会而省略了对于身边亲人、朋友和老师的感谢。随着这次感恩节的到来，我们中文系学生会外联部为提高我校学生的感恩意识，唤起大家感恩的心，特举办此次感恩节 免费发放明信片的活动。 二、活动之前的准备 1、根据活动的要求，我们做出了这次活动的#策划书#; 2、在感恩节前一周，我们外联部到校外寻找有意向的厂商，拉得赞助; 3、在感恩节前几天，我们外联部与邮局协商并买到明信片，然后在饰品店买到红丝带等部分活动用品，并制作感恩信箱; 4、在感恩节前一天晚上，在中文楼贴了海报。 三、活动基本情况 我们外联部与青协共同举办这次活动，我们分为三组，分别在二餐，三餐，四餐设点，我们这组在二餐，我们在11点二十完成了所有准备活动，包括桌子，所有物品的摆放及气球的充气。活动开始后，青协的同学负责给路过的同学解说我们这次的活动，参与活动的同学自由选择通过明信片来实现感恩之情的传达，并当场填写完，投入我们自制的“感恩信箱”里，1点20活动结束。24号我部将明信片寄出。 五、活动的效果 此次活动同学们都踊跃参加，寄出了他们对自己的亲人，朋友的牵挂，并对我们这次活动一致好评，活动圆满结束 四、存在问题及建议 (一)问题 1、活动的前期准备不够齐全，考虑到的问题欠缺(活动快结束时，电脑没电了;活动所需的红丝带不够) 2、活动进行时，对明信片的填写的讲解不够清楚，造成明信片的填写过程中出现了一些问题。 (二)建议 1、完善策划书的细节，增强活动的逻辑连接; 2、在活动进行时，各组人员应团结，保证活动的顺利进行; 3、活动进行时及之前的准备，分工应明确，做事用积极。 中学感恩节活动总结范文2 感恩是一种文明，感恩是一种品德。拥有一颗感恩之心，才懂得去孝敬父母;拥有一颗感恩之心，才懂得去尊敬师长;拥有一颗感恩之心，才懂得去关心、帮助他人;拥有一颗感恩之心，就能学会宽容，赢得友谊;拥有一颗感恩之心，就会拥有快乐，拥有幸福。通过感恩教育，让学生学会“图报”，知道如何去报答父母、老师、朋友、学校和社会。根据感恩节活动计划，开展了一系列感恩教育活动，注重将感恩教育落实到实际行动上。 一、积极宣传感恩月活动。少先队大部出了一期《知恩、感恩》的黑板报，每班级在黑板的左边开辟温馨提示栏，告诉同学们11月份是学校的感恩教育月，提醒同学们用自己的实际行动做到感恩父母，感恩师长，感恩社会。 二、感恩社会。学校组织学生为双中过世的学生颜鹏飞的家长爱心捐款，爱心捐款共计1611元。本次献爱心活动，全体同学都积极响应学校少先队的号召，纷纷伸出援助之手，在这次活动中，涌现了许多“爱心小天使”，孩子们把自己的零花钱，自觉自愿地捐了出来，献出了自己的一片爱心，特别是五(1)的学生，捐款钱数再多，其中彭柳青同学就捐款100元整，吴杏林同学捐款20元。 三、11月24日各班开展了以“感恩”为主题的，通过感恩教育使学生“知恩”。在这个社会里，谁都没有只索取而不付出的权 力，人人每时每刻都在享受着父母、老师、朋友、他人、学校和社会的恩惠，人人都需要拥有一颗感恩的心来对待这一切。 四、感恩父母。让同学们知道我们在妈妈的肚子里怀胎十月，来到这个世界很不容易，父母为我们的健康成长付出了很多心血。在感恩节期间，各班开展了给妈妈、奶奶倒一杯水，拿一双拖鞋，捶捶背、揉揉肩，洗一次脚，做一件家务事的活动，要求三、四年级的同学每人写一篇感恩日记，要求五年级同学每人写一篇感恩父母的信，在父母生日的那一天祝福他们生日快乐，身体健康。 五、感恩师长。感恩节当天的辅导员讲话中，我在广播里建议孩子们全体对老师深深的敬一个礼，并对老师说了一声“老师，您辛苦了，老师，我们感谢您!”以此来教育孩子们尊敬老师是最重要的，是尊重老师的劳动，教学是一种艰苦细致的脑力劳动，老师为此付出了大量的时间和精力。老师要精心每一个教学，认真上好每一节课，仔细批改每一份作业，老师的工作是辛苦而繁重的。 11月感恩月马上就要过去了，但我们感恩教育的活动不会结束，我们还会通过身边的一件件小事，抓住有利时机对学生进行感恩教育，树立身边的好榜样，让同学们从小拥有一颗感恩的心，将来拥有幸福快乐的人生。 中学感恩节活动总结范文3 经过系列活动的开展，学生进一步懂得了“感恩”不仅是一种情感，更是一种人生境界的体现。一个人对社会、对父母、对亲朋好友， 要永存感恩之情，永怀感恩之心，才能从各个方面获得更大的情感回报。 在“学雷锋”、“妇女节问候”这些丰富多彩的团队活动中，学生不仅学会了感恩的实际行动，更体会到感恩他人的快乐，从而能更乐于奉献，乐于感恩。 在周末我当家开展的“为父母做一件力所能及的事”等环节，通过学生用实际行动、或者给父母写一封传递爱意的信件、或者给父母亲手制作的小礼物等活动。家长们体会到了孩子们对自己浓浓的爱，孩子长大了。从许多的家长再给老师或孩子的回信中可以看出他们的满意欣喜之情。 如:宋XX家长在给孩子的回信中写到:亲爱的孩子，你懂得为家人分担家庭的责任，懂得孝顺父母了，懂得改变自己身上不良行为习惯了，你爸高兴的一夜未眠，你的行动我和你爸感到惭愧，因为我们很久未对你的爷爷奶奶这样照顾过，你是我们的好儿子，是我和你爸学习的榜样。张XX的家长再给老师的回信中这样写到:孙老师，X老师，很感谢你们学校，和你们两位老师，张XX自从进入东方国际以来，爱干净了、不好骂人了、也不像以前那么自私，总欺负妹妹及别人家的孩子了，带他出门也不觉得不好意思了，两位老师不知怎么说好，就是觉得我的孩子懂事了长大了。谢谢你们学校的领导，谢谢你们的好的育人理念，谢谢你们两位老师。而且许多家长纷纷用来电，对面交流等方式殷切的希望此类活动可以长期开展下去，也很愿意参 加此类活动，希望通过这个平台与孩子交流。看到这些我们当老师的真的感到很欣慰。 在征文活动这一环节，学生体悟到来自父母慷慨无私的爱，知道父母给他们的各种爱背后，原来都隐藏着那么多的辛酸。从而树立了学生的责任意识、自立意识，同时克服奢侈、攀比、享乐等毛病。 刘XX同学这样写到:我亲爱的爸爸妈妈我知道:您只是一个普普通通的人，您虽没有令人艳羡的事业，你虽没有腰缠万贯的财富，您虽穿着赶不上潮流，您甚至连电脑都不会用。但是您仍然是我最爱的人。您是我生命的创造者，是我人生的领路人。是我遇到风浪时平静的港湾，是我遇到挫折时的坚强后盾。千言万语说不尽儿女对您的感激之情。看着吧爸爸妈妈，我会用我用我优异的学习成绩来报答您们的! 李XX同学这样写到:亲爱的老师，很抱歉这次的成绩考的不是很理想，不过你放心我会谨记你常给我及全班同学讲的:“只要你向前进，没有人能阻止你前进的步伐”，我会寻找自己在学习中的不足，笨鸟先飞，做四一班那位里好的榜样。不负你和爸爸妈妈对我的期望与栽培。 总之，感恩是一种文明、一种品德、更是一种责任。感恩的主题是永恒的，作为祖国的下一代培育者的我们，肩负着重担。新时代不仅需要技术人才，社会更需要懂得感恩、懂得合作、懂得生活的素质人才，就让我们一起努力，让每一孩子都怀有一颗感恩的心，积极地 去面对生活，让人文的光彩照亮校园，让真情充溢在师生之间、生生之间，让可爱的校园奏响和谐的强音! 中学感恩节活动总结范文4 为了更好的在学生中间开展关于感恩的教育，促进学生良好性格的养成，11月9日下午，职教集团邀请“强国之音”演讲团为我校学生进行了一场演讲，职教集团杨校长、培智中学李校长等有关领导出席了这次活动。我校实习生也积极的投入到了这次活动的准备当中，从组织学生到布置场地，从接待家长到维持秩序，到处闪现着我们实习生的身影。 演讲活动由王磊副教授主讲，共分两个环节进行啊:感恩老师和感恩父母。一开场，王教授那特有的声音便吸引住了同学们。从细微处开讲，从内心发觉感情，再加上那具有感染力的声音，很快便使同学进入了一个“自省”的状态，在感恩老师的环节中，王教授声情并茂的为同学们讲述着关于老师的感人的故事，再从这些老师的身上联系到现实生活中，从平时的小事说起，娓娓道来，给同学们的们的心灵一个强烈的震撼，那一个个的拥抱便是对老师的一个忏悔，一声感谢„„ 随着感恩父母环节的进行，活动的气氛达到了高潮，此时此刻，学生们的心里一定在一次次的对自己责问，对自己曾经的幼稚和荒唐而感到惭愧，对面前的父母亲道歉，俯身的一个鞠躬，屈膝的一次下 跪，在此时，他们的灵魂得到了一次升华;在此时，他们每个人都显得那么成熟、懂事。 演讲活动共持续了约两个小时，结束时，全场对王教授的精彩演讲报以长时间的、热烈的掌。在维持秩序的同时，我们也听了一堂非常重要的课，王教授的一些演讲的技巧和调动能力对我们来说都是值得去学习的，可以对以后的工作有帮助，同时，这次演讲对同学来说是一次心灵上的洗礼，对以后自己在认识问题上有一定的帮助，同时，也增强了和老师之间的感情，对于家长来说，这是自身了解学校的一个机会，对以后双方的交流提供了一定的帮助，希望能够通过此次活动的影响，在各方面的工作上都能有一个大的进步。 中学感恩节活动总结范文5 为教育引导青少年学生学会感恩父母、感恩师长、感恩他人、感恩社会、感恩自然，进一步明确社会责任感，强化道德实践，全面提高青少年学生的思想道德素质，我校政教处在团委、关工委、艺体中心的大力协助下深入开展了“以感恩从心开始，让爱温暖艺高”的系列活动。 活动分为三个阶段:第一阶段是前期宣传阶段，通过升旗仪式、黑板报、班会、校园网等阵地全方位地营造感恩主题教育氛围，激发学生参与活动的兴趣，引发学生对感恩问题的思考，提升校园人文素养;第二阶段是全面实施阶段，活动分为三部分;第三阶段是总结表彰反思阶段。 活动三部分内容:一是“感谢父母养育我”，要求学生利用周末协助父母做三小时家务后，写一篇心得，然后请父母看完心得后写一句感受;二是“感谢老师教育我”，在全校开展“尊师重教”活动，要求所有学生讲文明用语，遇到老师自觉向老师点头问好，语言是“老师早”、“老师好”，同时开展了学生向老师献真情活动，做一张爱心小卡片来表达对老师的感激之情，并把学生的心意卡片贴在班级文化建设墙上，可以在小卡片上写上你的建议、你的决心、你的祝福等;三是“感谢社会关爱我”，在此部分我校专门开展了“感恩社会，做知法、守法好公民”系列活动，制订了“xx市艺术高级中学法制教育活动实施方案”，并且将感恩系列活动在“法制伴我成长”大合唱比赛中推向高潮。 通过这一系列的活动学生懂得了“感恩”是一种生活态度，是一种美德，是做人的起码修养和道德准则;懂得了“感恩”不仅是一种美德，更是一种责任。通过活动学生学会了感谢、珍惜和感恩，包含对父母对家庭的感恩，对其他亲人的感恩，对同学老师和朋友的感恩，对国家与社会的感恩，对大自然的感恩等等。 我相信，只要我们人人都有一颗感恩的心，我们的校园，我们的社会也将会更加和谐。