Page History

• Create a "Standard project" and select CODESYS Control Win V3 as the device.
• Define the target system by means of the Network scan.
  
  
  
  
• Open the Library Manager and add the following libraries:
  CompErrors
  CmpIecTask
  SysTypes2 Interfaces
  
  Image Added
  
  

• Create a new POU named sc and a new task named MySecTask.
  Assign the POU SecTask to the task MySecTask and set the call interval to 50 milliseconds.

  
  
  
  

• Adapt the POU SecTask as follows:
  
  

  ---

  
  

  Section
  Column width 7 Declaration Column width 93 Code Block theme Confluence VAR iIndex : INT; sIndex : STRING; END_VAR

  
  

  ---

  
  

  Section
  Column width 7 Implementation Column width 93 Code Block theme Confluence FOR iIndex := 0 TO 1000 DO //Do something to raise the cycle time sIndex := INT_TO_STRING(iIndex); END_FOR

  
  

  ---

  
  

• Adapt the POU  PLC_PRG as follows:
  
  

  ---

  
  

  Section
  Column width 7 Declaration Column width 93 Code Block theme Confluence VAR dwCycleTimeMainTask, dwCycleTimeSecTask : DWORD; dwIntervalMainTask, dwIntervalSecTask : DWORD; sNameMainTask, sNameSecTask : STRING; hFirstTask, hSecTask : RTS_IEC_HANDLE; iecResult : RTS_IEC_RESULT; sAppName : STRING := 'Application'; pIecInfo : POINTER TO CmpIecTask.Task_Info2; END_VAR

  
  

  ---

  
  

  Section

  Column width 7 Implementation Column width 93 Code Block theme Confluence hFirstTask := CmpIecTask.IecTaskGetFirst(pszAppName := ADR(sAppName), pResult := ADR(iecResult)); IF ((hFirstTask <> RTS_INVALID_HANDLE) AND (iecResult = CmpErrors.Errors.ERR_OK)) THEN pIecInfo := CmpIecTask.IecTaskGetInfo3(hIecTask := hFirstTask, pResult := ADR(iecResult)); dwIntervalMainTask := pIecInfo^.dwInterval; dwCycleTimeMainTask := pIecInfo^.dwCycleTime; sNameMainTask := pIecInfo^.pszName^; hSecTask := IecTaskGetNext(pszAppName := ADR(sAppName), hPrevIecTask := hFirstTask, pResult := ADR(iecResult)); IF ((hSecTask <> RTS_INVALID_HANDLE) AND (iecResult = CmpErrors.Errors.ERR_OK)) THEN pIecInfo := CmpIecTask.IecTaskGetInfo3(hIecTask := hSecTask, pResult := ADR(iecResult)); dwIntervalSecTask := pIecInfo^.dwInterval; dwCycleTimeSecTask := pIecInfo^.dwCycleTime; sNameSecTask := pIecInfo^.pszName^; END_IF END_IF

  
  

  ---

  
  

...