Festo SBO***-Q Series, Руководство пользователя

Страница: 228 / 256

A. Technical appendix
A-46
Festo P.BE-SBO-Q-EN en 1602e
! Get the first feature result from the camera.
Wait4Ready;
GetFlagWord ”10000”;
! Change check program of the camera.
Wait4Ready;
ChangeProgram ”1”;
! Close telnet connection.
Wait4Ready;
SocketClose ComSocket;
ENDPROC
! −−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−
! Procedure Wait4Ready
! Description:
! Procedure blocks until ’ready’ signal of camera becomes logical high
! (+24V)
! The procedure will block infinitely, unless the ’ready’ signal becomes
! logical high.
! The answer can be written on the FlexPendant too; uncomment the
! according line.
!
−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−
PROC Wait4Ready()
VAR string readyBit := ””;
WHILE readyBit <> ”1\0D\0A” DO
CheckConnectionStatus;
! Important !
! Any camera command must be terminated by ’\0D\0A’
SocketSend ComSocket \Str := ”RFW 16\0D\0A”;
SocketReceive ComSocket \Str := readyBit;
! TPWrite ”Ready Signal = ” + readyBit;
IF readyBit <> ”1\0D\0A” THEN
WaitTime 0.2;
ENDIF
ENDWHILE
ENDPROC