bError, hrErrorCode=>hrErrorCode); END_IF IF NOT fbDiagRegister.bBusy THEN IF fbDiagRegister.bError THEN eState := E_State.Error; ELSE eState := E_State.ReadOnce; END_IF END_IF E_State.ReadOnce: IF NOT fbDiagRead.bBusy THEN fbDiagRead(bExecute:= TRUE, eParameterKey:=E_IPCDiag_ParameterKey.Disk_VolumeList_TotelSize, fbRegister:=fbDiagRegister); ELSE fbDiagRead(bExecute:= FALSE, fbRegister:=fbDiagRegister, bError=>bError, hrErrorCode=>hrErrorCode); END_IF IF NOT fbDiagRead.bBusy THEN IF fbDiagRead.bError THEN eState := E_State.Error; ELSE // get value hrGetValue := fbDiagRead.GetParameter(pBuffer:=ADR(diskTotalSpace), nBufferSize:=SIZEOF(diskTotalSpace)); IF FAILED(hrGetValue) THEN eState := E_State.Error; ELSE eState := E_State.ReadPeriodically; END_IF END_IF END_IF E_State.ReadPeriodically: fbDiagReadPeriodic(bEnable:=TRUE, fbRegister:=fbDiagRegister, bError=>bError, hrErrorCode=>hrErrorCode); IF fbDiagReadPeriodic.bValid THEN fbDiagReadPeriodic.GetParameter(pBuffer:=ADR(diskFreeSpace), nBufferSize:=SIZEOF(diskFreeSpace) ); readCount := readCount +1; diskUsagePercent := LWORD_TO_LREAL((diskTotalSpace - diskFreeSpace)) / LWORD_TO_LREAL(diskTotalSpace); END_IF IF fbDiagReadPeriodic.bError THEN eState := E_State.Error; END_IF e_state.Error: eState := E_State.Init; END_CASE ]]>