BECKHOFF CX2100­09x4 - Manual (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­09x4 28 Version 1.1