640?wx_fmt=png&from=appmsg.jpg

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);