Contec CONPROSYS nano CPSN-PCB271-S1-041 Reference Manual page 79

—
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:=
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:
Com1Write(xExecute := TRUE, hCom:= Com1Open.hCom, pBuffer:=
ADR(TestString), szSize:= SIZEOF(TestString));
IF Com1Write.xError THEN
Error := TRUE;
State := 1000;
END_IF
IF Com1Write.xDone THEN
State := 2;
END_IF
2:
Com1Close(xExecute := TRUE, hCom:= Com1Open.hCom);
IF Com1Close.xError THEN
Error := TRUE;
END_IF
IF Com1Close.xDone OR Com1Close.xError THEN
State := 1000;
END_IF
1000:
StartFlag := FALSE;
END_CASE
END_IF
Programing with CODESYS
CPSN-PCB271-S1-041 Reference Manual (Software)
TRUE,
— 79 —
—
usiListLength:= SIZEOF(Com1Params) /