'''''''''''''''''''''''''''''以太网通讯模块
Function TcpClient()
	G_bConnectOk = False
	SetNet #201, "192.168.0.1", 1900, CRLF, NONE, 0
	OpenNet #201 As Client
	WaitNet #201
	Do
		
		If ChkNet(201) = -3 Then
			G_bConnectOk = False
			CloseNet #201
			Wait 0.2
			OpenNet #201 As Client
			WaitNet #201
		Else
			G_bConnectOk = True
		EndIf
		
		If ChkNet(201) > 0 Then
			Line Input #201, ReadData$
			Print "Receive:" + ReadData$
			MemOn 1
		EndIf
		If SendData$ <> "" Then
			Print #201, SendData$
			Print "Send:" + SendData$
			SendData$ = ""
		EndIf
	Loop
Fend


Function SendData(ByVal data$ As String)
	MemOff 1
	SendData$ = data$
Fend

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''

'''''''''''''''''''''''''''''232串口通讯模块
'串口通信
#include "define.inc"
Function ComRS232()
	SetCom #1, 9600, 8, 1, N, CRLF, NONE, NONE, 0  	'配置串口通讯参数
	OpenCom #1										'打开串口
	Wait 0.2
	Do
		
		G_strSendData$ = "1"
		Integer iComResult
		iComResult = ChkCom(1)
		
		'串口链接不正常处理
		If iComResult = -3 Or iComResult = -2 Then
			Print "未打开端口 或 串口被占用"
			CloseCom #1
			Wait 0.2
			OpenCom #1
			Wait 0.2
		EndIf
		'Print "串口已经打开"
		Wait 0.3
		
		'发送数据
		If G_strSendData$ <> "" Then
			Print #1, G_strSendData$    '机器人发送出去的数据有带回车换行
			'Write #1, G_strSendData$      '机器人发送出去的数据没有待回车换行
			Print "ROBOTSEND:" + G_strSendData$
			G_strSendData$ = ""
			'Wait 1
		EndIf
				
		'接收数据		
		If iComResult > 0 Then
		
			Read #1, G_strReadData$, iComResult   '机器人接收的数据有回车换行
			'Line Input #1, G_strReadData$
			If G_strReadData$ <> "" Then
				Print "RECEIVE:" + G_strReadData$
			EndIf
			MemOn 2
			MemOn 200
		EndIf
		'Wait 0.3
		Wait 3
	Loop
Fend


Function Senddata232(data$ As String)
    MemOff 2
    G_strSendData$ = data$
Fend


'''''''''''''''''''''''''''''''''''''''''''''''''''''''''


'''''''''''''''''''数据拆分模块
Function GetImageResult(ByVal data$ As String) As Boolean
    '获取单个结果拆分数据，返回全局变量GPix/GPiy/GAngle
    'IMAGERESULT;IMAGENAME;Pix;Piy;Angle;OkFlag(1/0)    
    OnErr GoTo ExitErr
    GetImageResult = False
	String arrStr$(0); Integer IsOK
	data$ = UCase$(data$); ParseStr data$, arrStr$(), ";"
    GPix = Val(arrStr$(2)); GPiy = Val(arrStr$(3)); GAngle = Val(arrStr$(4)); IsOK = Val(arrStr$(5))
    If IsOK = 1 Then
       GetImageResult = True
    Else
       GetImageResult = False
    EndIf
    Exit Function
ExitErr:
    GetImageResult = False
Fend
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''