閫氳繃绋嬪簭鑾峰彇浠诲姟Task鍛ㄦ湡

PROGRAM Pro_SysMessage
VAR
        //鑾峰彇Task瀹炴椂鏁版嵁
        ahTaskHandle  : ARRAY[0..5] OF SysTypes.RTS_IEC_HANDLE ;
        aResultList   : ARRAY[0..5] OF SysTypes.RTS_IEC_RESULT ;
        aResult       : ARRAY[0..5] OF SysTypes.RTS_IEC_RESULT ;
        aTaskInfo     : ARRAY[0..5] OF POINTER TO CmpIecTask.Task_Info2 ;
END_VAR

ahTaskHandle[0] := CmpIecTask.IecTaskGetFirst(pszAppName:= ADR('Application'), pResult:= ADR(aResult[0]));
ahTaskHandle[1] := CmpIecTask.IecTaskGetNext(pszAppName:= ADR('Application'),hPrevIecTask := ahTaskHandle[0], pResult:= ADR(aResult[1]));        
ahTaskHandle[2] := CmpIecTask.IecTaskGetNext(pszAppName:= ADR('Application'),hPrevIecTask := ahTaskHandle[1], pResult:= ADR(aResult[2]));
ahTaskHandle[3] := CmpIecTask.IecTaskGetNext(pszAppName:= ADR('Application'),hPrevIecTask := ahTaskHandle[2], pResult:= ADR(aResult[3]));
ahTaskHandle[4] := CmpIecTask.IecTaskGetNext(pszAppName:= ADR('Application'),hPrevIecTask := ahTaskHandle[3], pResult:= ADR(aResult[4]));
ahTaskHandle[5] := CmpIecTask.IecTaskGetNext(pszAppName:= ADR('Application'),hPrevIecTask := ahTaskHandle[4], pResult:= ADR(aResult[5]));

aTaskInfo[0] := CmpIecTask.IecTaskGetInfo3(hIecTask := ahTaskHandle[0],pResult:= aResultList[0]); 
aTaskInfo[1] := CmpIecTask.IecTaskGetInfo3(hIecTask := ahTaskHandle[1],pResult:= aResultList[1]); 
aTaskInfo[2] := CmpIecTask.IecTaskGetInfo3(hIecTask := ahTaskHandle[2],pResult:= aResultList[2]); 
aTaskInfo[3] := CmpIecTask.IecTaskGetInfo3(hIecTask := ahTaskHandle[3],pResult:= aResultList[3]); 
aTaskInfo[4] := CmpIecTask.IecTaskGetInfo3(hIecTask := ahTaskHandle[4],pResult:= aResultList[4]); 
aTaskInfo[5] := CmpIecTask.IecTaskGetInfo3(hIecTask := ahTaskHandle[5],pResult:= aResultList[5]); 

gModbusTCP.DiPLC_CycTime[0] := DWORD_TO_DINT(aTaskInfo[0]^.dwCycleTime);
gModbusTCP.DiPLC_CycTime[1] := DWORD_TO_DINT(aTaskInfo[1]^.dwCycleTime);
gModbusTCP.DiPLC_CycTime[2] := DWORD_TO_DINT(aTaskInfo[2]^.dwCycleTime);
gModbusTCP.DiPLC_CycTime[3] := DWORD_TO_DINT(aTaskInfo[3]^.dwCycleTime);
gModbusTCP.DiPLC_CycTime[4] := DWORD_TO_DINT(aTaskInfo[4]^.dwCycleTime);
gModbusTCP.DiPLC_CycTime[5] := DWORD_TO_DINT(aTaskInfo[5]^.dwCycleTime);