FANUC KAREL socket message 通讯第一节先建立连接

最新推荐文章于 2024-09-14 17:25:56 发布

耗子尾汁fk

最新推荐文章于 2024-09-14 17:25:56 发布

阅读量285

点赞数 2

分类专栏： FANUC Karel 内置函数文章标签： tcp/ip 机器人

本文链接：https://blog.csdn.net/kimkin/article/details/141693446

版权

FANUC Karel 内置函数专栏收录该内容

23 篇文章 0 订阅

订阅专栏

PROGRAM TCP_CL2
%COMMENT = 'SOCKET_测试'

%STACKSIZE = 4000
%NOLOCKGROUP
%NOPAUSE=ERROR+COMMAND+TPENABLE
%ENVIRONMENT uif
%ENVIRONMENT sysdef
%ENVIRONMENT memo
%ENVIRONMENT kclop
%ENVIRONMENT bynam
%ENVIRONMENT fdev
%ENVIRONMENT flbt
%INCLUDE klevccdf
%INCLUDE klevkeys
%INCLUDE klevkmsk
VAR
file_var : FILE
tmp_int : INTEGER
tmp_int1 : INTEGER
tmp_str : STRING[128]
tmp_str1 : STRING[128]
status : INTEGER
entry : INTEGER
loop1 : BOOLEAN
VALUE: INTEGER
----------------------------------------------------
-- BEGIN TCP_CL                             
----------------------------------------------------
BEGIN
    WRITE (CHR(128),CHR(137))  --清屏
    FORCE_SPMENU(TP_PANEL, SPI_TPUSER, 1) --显示用户屏
    
    value = 0  --初始化值
    REPEAT   --手动输入端口号 改值
    WRITE('输入端口号：',CR)
    READ(value)
    UNTIL(value <> 0)  --止到改的值不为0
    SET_FILE_ATR(file_var,ATR_IA)  --设置文件 交互属性
    SET_VAR(ENTRY, '*SYSTEM*', '$HOSTC_CFG[2].$SERVER_PORT', VALUE, STATUS)  定义端口号为输入值
    WRITE('connecting...',CR)
    MSG_CONNECT('C2:',status)   --进行连接
    WRITE('connect status:',status,CR)    
    IF status = 0 THEN
        WRITE('connect sussessful!',CR)  --连接成功
    ELSE
        WRITE('connect failed!',CR)  --连接失败
    ENDIF
    FORCE_SPMENU(TP_PANEL, SPI_TPUSER, 0)     --显示屏幕  

END TCP_CL2

代码如图先建立 karel 与外部的连接