
Productoverview
ELSIFbReadLine1ReqTHEN
eModeRead:=eCX2100_ReadLine1;
bExecuteRead:=TRUE;
ELSIFbReadLine2ReqTHEN
eModeRead:=eCX2100_ReadLine2;
bExecuteRead:=TRUE;
ELSIFbReadLinesReqTHEN
eModeRead:=eCX2100_ReadLines;
bExecuteRead:=TRUE;
END_IF
END_IF
(*getdisplay*)
IF(eModeRead<>eCX2100_DisplayNoActionRd)AND(eModeWrite=eCX2100_DisplayNoActionWr)THEN
fbGetDisplayText(
bExecute:=bExecuteRead,
sNetID:='',
nPort:=16#7100,
eMode:=eModeRead,
bBusy=>bBusy,
bError=>bError,
nErrorID=>nErrorID,
);
IFNOTfbGetDisplayText.bBusyTHEN
fbGetDisplayText(bExecute:=FALSE);
IFNOTfbGetDisplayText.bErrorTHEN
CASEeModeReadOF
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
(*preparesetdisplaymode*)
IF(eModeWrite=eCX2100_DisplayNoActionWr)AND(eModeRead=eCX2100_DisplayNoActionRd)THEN
IFbCursorOnReqTHEN
eModeWrite:=eCX2100_CursorOn;
bExecuteWrite:=TRUE;
bReadCursorInfoReq:=TRUE;
ELSIFbCursorOffReqTHEN
eModeWrite:=eCX2100_CursorOff;
bExecuteWrite:=TRUE;
bReadCursorInfoReq:=TRUE;
ELSIFbBlinkCursorOnReqTHEN
eModeWrite:=eCX2100_CursorBlinkOn;
bExecuteWrite:=TRUE;
bReadCursorInfoReq:=TRUE;
ELSIFbBlinkCursorOffReqTHEN
eModeWrite:=eCX2100_CursorBlinkOff;
bExecuteWrite:=TRUE;
bReadCursorInfoReq:=TRUE;
ELSIFbBacklightOnReqTHEN
eModeWrite:=eCX2100_BackLightOn;
bExecuteWrite:=TRUE;
bReadBacklightReq:=TRUE;
ELSIFbBacklightOffReqTHEN
eModeWrite:=eCX2100_BackLightOff;
bExecuteWrite:=TRUE;
bReadBacklightReq:=TRUE;
CX210000x424 Version1.0
Comentários a estes Manuais