机器人技术应用项目教程(ABB)(第二版)参考程序5-7 知识拓展:分拣机器人程序设计.docx

机器人技术应用项目教程(ABB)(第二版)参考程序5-7 知识拓展:分拣机器人程序设计.docx

  1. 1、本文档共9页,可阅读全部内容。
  2. 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多

分拣机器人参考程序

(主要包括设备自检子程序、人工补料子程序、基础分拣组程序、复杂分拣子程序等。)

PROCSBZJ()//设备自检程序

QXP; //拾取吸盘工具

HOME; //回到Home点

SENDZJOK,1; //触摸屏显示第一个字样

WAITTIME3; //停留3秒

SETBVAC_1; //打开小吸盘吹气功能

SENDZJOK,2; //触摸屏显示第二个字样

WAITTIME3; //停留3秒

SETVacunm_1; //打开大吸盘吸气功能

SENDZJOK,3; //触摸屏显示第三个字样

WAITTIME3; //停留3秒

RESETVacunm_1; //关闭小吸盘吹气功能

RESETBVAC_1; //关闭大吸盘吸气功能

SENDZJOK,4; //触摸屏显示第四个字样

ENDPROC

PROCRGBL()//人工补料程序

SENDRGBL,XPXH; //发送需要的芯片型号至触摸屏

SENDRGBL,XPLX; //发送需要的芯片类型至触摸屏

HOME; //回到Home点

WAITDIContinue,1; //等待人工放置完成

HMI; //接收触摸屏设定值

RGBLWZ:=RECEIVE{16}; //触摸屏设定的放料位置

YDXPYLQ,RGBLWZ; //取出人工放置位置芯片

YDGWXP,A; //放置工作区空位

ENDPROC

PROCJCFJ()//基础分拣程序

MOVEABSJHOME\NOEOFFS,V1000,FINE,TOOL0;

RESET; //初始化子程序

QXP;

FORAFROM1TO4DO //拆除四个工位盖板

YDGB,A;

IFVacSen_1=1THEN //判断真空检知(双)是否吸到盖板

YDGBYLQ,1; //放置盖板原料区

ELSE

RESETVacunm_1; //关闭真空(双)吸盘

ENDIF

ENDFOR

DRPD:=0; //电容判断清零

FORAFROM1TO26DO //对原料区芯片视觉检测

YDXPYLQ,A;

CCD;

IFCCD_OK=1THEN //如果检测OK放回

YDXPYLQ,A;

ELSE

YDXPHSQ,A; //检测NG放回回收区

IFA=20ANDA=27THEN //判断是否为电容

DRPD:=1;

ENDIF

ENDIF

ENDFOR

FORAFROM1TO20DO

YDGWXP,A;

CCD;

IFCCD_OK=1THEN //如果检测OK放回

YDGWXP,A;

ELSE

YDXPHSQ,A; //检测NG放回回收区

ENDIF

ENDFOR

IFDRPD=1THEN //补充对应工位空位芯片

FORAFROM1TO5DO

FORBFROM1TO26DO

IFXPZT{A}=0ANDXPZT{B}=1ANDXPLX{A}=XPLX{B}THEN

YDB,A;

ENDIF

ENDFOR

ENDFOR

FORAFROM16TO20DO

FORBFROM1TO26DO

IFXPZT{A}=0ANDXPZT{B}=1ANDXPLX{A}=XPLX{B}THEN

YDB,A;

ENDIF

ENDFOR

ENDFOR

ELSE

FORAFROM1TO5DO

FORBFROM1TO26DO

IFXPZT{A}=0ANDXPZT{B}=1ANDXPLX{A}=XPLX{B}THEN

YDB,A;

ENDIF

ENDFOR

ENDFOR

FORAFROM6TO10DO

FORBFROM1TO26DO

IFXPZT{A}=0ANDXPZT{B}=1ANDXPLX{A}=XPLX{B}THEN

YDB,A;

ENDIF

ENDFOR

ENDFOR

ENDIF

MOVEABSJHOME\NOEOFFS,V1000,FINE,TOOL0;

您可能关注的文档

文档评论(0)

balala11 + 关注
实名认证
内容提供者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档