开发工具:
文件大小: 1kb
下载次数: 0
上传时间: 2020-07-19
详细说明:MODULE Module1
!***********************************************************
!
! Module: Module1
!
! Description:
!
!
! Author: Administrator
!
! Version: 1.0
!
!***********************************************************
TASK PERS tooldata tool100 := [TRUE,[[0,0,0],[0,0.70711,0,0.7011]],[1.3,[0,0,150],[1,0,0,0],0,0,0]];
VAR robtarget P100 := [[1000,0,500],[1,0,0,0],[-1,0,-1,0],[9E9,9E9,9E9,9E9,9E9,9E9]];
VAR num posedatab{7};
VAR bool okb;
VAR pos pos1b;
VAR num Eangle{3};
VAR string strtrans;
VAR string strrot;
VAR string str;
VAR string PC_adressb;
!IP??????
VAR string IRC5_adressb := "127.0.0.1";
CONST num pro_portb := 8855;
VAR socketdev server_socketb;
VAR socketdev client_socketb;
VAR socketstatus statusb;
VAR num peek_valueb := 65;
VAR num p:= 5;
VAR pose objectb;
VAR string str_datab;
VAR string str_databb := "[1,1000.1,0.2,300,3,0,90,0]";
VAR num retry_nob :=0;
PROC main()
intialb;
MoveAbsJ [[0,0,0,0,0,0],[9E9,9E9,9E9,9E9,9E9,9E9]] \NoEOffs,V300,z50,tool0;
!????
WHILE TRUE DO
str_datab := "[1,1000.1,0.2,300.03,0,90,0]";
TRAN;
SocketSend client_socketb\str:=str; !????,??????P19???,????????
Receivedatab; !????,???????,??????
Moveitb;
ENDWHILE
socketclose server_socketb;!??
socketclose client_socketb;
ENDPROC
PROC Moveitb() !??
IF posedatab{1}=1 OR posedatab{1}=2 THEN
MoveJ P100, v100, fine, tool100;
ELSE
MoveL Offs(P100, 200, 0,0), v100, fine, tool100;
ENDIF
ENDPROC
PROC TRAN()
Eangle{1}:= Eulerzyx(\X,P100.rot); !?????????
Eangle{2}:= EulerZYX(\Y,P100.rot);
Eangle{3}:= EulerzYX(\Z, P100.rot);
strrot := ValTostr(Eangle);
strtrans:= Valtostr(P100.tr
(系统自动生成,下载前可以参看下载内容)
下载文件列表
相关说明
- 本站资源为会员上传分享交流与学习,如有侵犯您的权益,请联系我们删除.
- 本站是交换下载平台,提供交流渠道,下载内容来自于网络,除下载问题外,其它问题请自行百度。
- 本站已设置防盗链,请勿用迅雷、QQ旋风等多线程下载软件下载资源,下载后用WinRAR最新版进行解压.
- 如果您发现内容无法下载,请稍后再次尝试;或者到消费记录里找到下载记录反馈给我们.
- 下载后发现下载的内容跟说明不相乎,请到消费记录里找到下载记录反馈给我们,经确认后退回积分.
- 如下载前有疑问,可以通过点击"提供者"的名字,查看对方的联系方式,联系对方咨询.