
Productoverview
ELSIFbClearDisplayReqTHEN
eModeWrite:=eCX2100_ClearDisplay;
bExecuteWrite:=TRUE;
bReadLinesReq:=TRUE;
ELSIFbWriteLine1ReqTHEN
eModeWrite:=eCX2100_WriteLine1;
bExecuteWrite:=TRUE;
bReadLine1Req:=TRUE;
ELSIFbWriteLine2ReqTHEN
eModeWrite:=eCX2100_WriteLine2;
bExecuteWrite:=TRUE;
bReadLine2Req:=TRUE;
ELSIFbWriteLinesReqTHEN
eModeWrite:=eCX2100_WriteLines;
bExecuteWrite:=TRUE;
bReadLinesReq:=TRUE;
ELSIFbSetCursorPosXReqTHEN
eModeWrite:=eCX2100_CursorPosX;
bExecuteWrite:=TRUE;
bReadCursorInfoReq:=TRUE;
ELSIFbSetCursorPosYReqTHEN
eModeWrite:=eCX2100_CursorPosY;
bExecuteWrite:=TRUE;
bReadCursorInfoReq:=TRUE;
ELSIFbSetCursorPosXYReqTHEN
eModeWrite:=eCX2100_CursorPosXY;
bExecuteWrite:=TRUE;
bReadCursorInfoReq:=TRUE;
END_IF
END_IF
(*setdisplay*)
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
);
IFNOTfbSetDisplayText.bBusyTHEN
fbSetDisplayText(bExecute:=FALSE);
bExecuteWrite:=FALSE;
eModeWrite:=eCX2100_DisplayNoActionWr;
END_IF
END_IF
CX210000x4 25Version1.0
Comentários a estes Manuais