网站首页 > 资源文章正文

建立Motion Studio专案

qiguaw 2024-12-09 16:27:09 资源文章 19 ℃ 0 评论

编写TCP/IP Client程序

以MAS控制器作为TCP/IP Client接收Inspect Express检测之结果, 程序代码如下：

Dim Num as ULONG = 0 '接收的字符数

Dim StrData as string '接收的字符串

'创建连接,TCP编号:0, Client:1, Port: '5025, IP:127.0.0.1

TCP_Open(0, 1, 5025, "127.0.0.1")

TCP_Wait 0 '等待连接完成，Timeout 0ms

TCP_RESETBUF 0 '清除 TCP 编号0的缓存区数据

WHILE(1)

If TCP_STATUS(0) = 0 Then Exit WHILE '通讯编号0失败 -> 结束

Num = TCP_Check(0) '取接收到字符个数

If Num > 0 Then '判断是否有接收到字符串

TCP_ReadSTR(0, StrData, Num, 1000) '字符放入StrData, timeout: 1s

Print "Data=",StrData, "Num=",Num '打印出接到到的字符串

End If

SLEEP 10 'delay 10ms

WEND

TCP_CLOSE 0 '断开TCP编号 0 的连接

执行Motion Studio程序

在Motion Studio的输出窗口显示Inspect Express检测结果（Data=1:成功）。