To Next Page

To Previous Page

Product overview

ELSIF bReadLine1Req THEN

eModeRead := eCX2100_ReadLine1;

bExecuteRead := TRUE;

ELSIF bReadLine2Req THEN

eModeRead := eCX2100_ReadLine2;

bExecuteRead := TRUE;

ELSIF bReadLinesReq THEN

eModeRead := eCX2100_ReadLines;

bExecuteRead := TRUE;

END_IF

END_IF

(* get display *)

IF (eModeRead <> eCX2100_DisplayNoActionRd) AND (eModeWrite = eCX2100_DisplayNoActionWr) THEN

fbGetDisplayText(

bExecute := bExecuteRead,

sNetID := '',

nPort := 16#7100,

eMode := eModeRead,

bBusy => bBusy,

bError=> bError,

nErrorID => nErrorID,

);

IF NOT fbGetDisplayText.bBusy THEN

fbGetDisplayText(bExecute := FALSE);

IF NOT fbGetDisplayText.bError THEN

CASE eModeRead OF

eCX2100_ReadCursorInfo:

nCursorPosX:= fbGetDisplayText.nCursorPosX;

nCursorPosY:= fbGetDisplayText.nCursorPosY;

nCursorMode:= fbGetDisplayText.nCursorMode;

bReadCursorInfoReq := FALSE;

eCX2100_ReadBackLight:

nBacklight:= fbGetDisplayText.nBacklight;

bReadBacklightReq := FALSE;

eCX2100_ReadLine1:

sLine1:= fbGetDisplayText.sLine1;

bReadLine1Req:= FALSE;

eCX2100_ReadLine2:

‘sLine2:= fbGetDisplayText.sLine2;

bReadLine2Req:= FALSE;

eCX2100_ReadLines:

sLine1:= fbGetDisplayText.sLine1;

sLine2:= fbGetDisplayText.sLine2;

bReadLinesReq:= FALSE;

END_CASE

END_IF

bExecuteRead:= FALSE;

eModeRead:= eCX2100_DisplayNoActionRd;

END_IF

END_IF

(* prepare set display mode *)

IF (eModeWrite = eCX2100_DisplayNoActionWr) AND (eModeRead = eCX2100_DisplayNoActionRd) THEN

IF bCursorOnReq THEN

eModeWrite:= eCX2100_CursorOn;

bExecuteWrite:= TRUE;

bReadCursorInfoReq := TRUE;

ELSIF bCursorOffReq THEN

eModeWrite:= eCX2100_CursorOff;