Beckhoff CX2100-0904 - Page 28

Product overview
ELSIF bClearDisplayReq THEN
eModeWrite := eCX2100_ClearDisplay;
bExecuteWrite := TRUE;
bReadLinesReq:= TRUE;
ELSIF bWriteLine1Req THEN
eModeWrite := eCX2100_WriteLine1;
bExecuteWrite := TRUE;
bReadLine1Req:= TRUE;
ELSIF bWriteLine2Req THEN
eModeWrite := eCX2100_WriteLine2;
bExecuteWrite := TRUE;
bReadLine2Req:= TRUE;
ELSIF bWriteLinesReq THEN
eModeWrite := eCX2100_WriteLines;
bExecuteWrite := TRUE;
bReadLinesReq:= TRUE;
ELSIF bSetCursorPosXReq THEN
eModeWrite := eCX2100_CursorPosX;
bExecuteWrite := TRUE;
bReadCursorInfoReq := TRUE;
ELSIF bSetCursorPosYReq THEN
eModeWrite := eCX2100_CursorPosY;
bExecuteWrite := TRUE;
bReadCursorInfoReq := TRUE;
ELSIF bSetCursorPosXYReq THEN
eModeWrite := eCX2100_CursorPosXY;
bExecuteWrite := TRUE;
bReadCursorInfoReq := TRUE;
END_IF
END_IF
(* set display *)
IF (eModeWrite <> eCX2100_DisplayNoActionWr) AND (eModeRead = eCX2100_DisplayNoActionRd) THEN
fbSetDisplayText(
bExecute := bExecuteWrite,
sNetID:= '',
nPort:= 16#7100,
eMode:= eModeWrite,
sLine1 := sLine1,
sLine2 := sLine2,
nCursorPosX := nCursorPosX,
nCursorPosY := nCursorPosY,
bBusy=> bBusy,
bError=> bError,
nErrorID=> nErrorID
);
IF NOT fbSetDisplayText.bBusy THEN
fbSetDisplayText(bExecute := FALSE);
bExecuteWrite := FALSE;
eModeWrite := eCX2100_DisplayNoActionWr;
END_IF
END_IF
CX2100-09x428 Version: 1.3