Contec CONPROSYS nano CPSN-PCB271-S1-041, Справочное руководство, Страница: 81 / 155

—
Programing with CODESYS
—
CPSN-PCB271-S1-041 Reference Manual (Software)
— 81 —
3
Write the following source code in “Program” under “ST editor window”.
IF StartFlag THEN
CASE State OF
0:
Com1Params[1].udiParameterId := COM.CAA_Parameter_Constants.udiPort;
Com1Params[1].udiValue := 1;
Com1Params[2].udiParameterId := COM.CAA_Parameter_Constants.udiBaudrate;
Com1Params[2].udiValue := 9600;
Com1Params[3].udiParameterId := COM.CAA_Parameter_Constants.udiParity;
Com1Params[3].udiValue := INT_TO_UDINT(COM.PARITY.NONE);
Com1Params[4].udiParameterId := COM.CAA_Parameter_Constants.udiStopBits;
Com1Params[4].udiValue := INT_TO_UDINT(COM.STOPBIT.ONESTOPBIT);
Com1Params[5].udiParameterId := COM.CAA_Parameter_Constants.udiTimeout;
Com1Params[5].udiValue := 0;
Com1Params[6].udiParameterId := COM.CAA_Parameter_Constants.udiByteSize;
Com1Params[6].udiValue := 8;
Com1Params[7].udiParameterId := COM.CAA_Parameter_Constants.udiBinary;
Com1Params[7].udiValue := 0;
Com1Open(xExecute:= TRUE, usiListLength:= SIZEOF(Com1Params) /
SIZEOF(COM.PARAMETER), pParameterList:= ADR(Com1Params));
IF Com1Open.xError THEN
Error := TRUE;
State := 1000;
END_IF
IF Com1Open.xDone THEN
State := 1;
END_IF
1:
Com1Read(xExecute := TRUE, hCom:= Com1Open.hCom, pBuffer:= ADR(TestString),
szBuffer:= SIZEOF(TestString));
IF Com1Read.xError THEN
Error := TRUE;
State := 1000;
END_IF
IF Com1Read.xDone THEN
State := 2;
END_IF
2:
Com1Close(xExecute := TRUE, hCom:= Com1Open.hCom);
IF Com1Close.xError THEN