0 THEN ObjManDev.ICtrlUnits[N].Alarm(IO.Alarm); END_IF END_FOR END_IF //ICtrlUnits : ARRAY[0..Param.noCtrlUnit-1] OF p6manualDevices.IBaseControlUnit; objManDev.CrtlUnitMuxHMI(ctrlUnits := objManDev.ICtrlUnits); ]]> ABS(ObjPower.IGBT_TA1.PowerRegen) THEN // PowerUsedOrRegen := ObjPower.IGBT_TA1.Power; // ELSE // PowerUsedOrRegen := - ABS(ObjPower.IGBT_TA1.PowerRegen); // END_IF // // signal to analog output // objPower.PowerUsage.Value := PowerUsedOrRegen; // system running ObjPower.SystemActive := ObjPower.IGBT_TA1.OpState = P6OpState.RUN; END_IF; ]]> 0 THEN IF objManDev.SelectedSheaveSensorIndexHMI = 0 THEN objManDev.SheaveSensorHMI REF= gvlCtd01.Sheavesensor ; ELSE objManDev.SheaveSensorHMI REF= gvlTractionWinch01.Sheavesensor; END_IF ELSE DebugMessage('Reference to SheaveSensor is missing','',''); END_IF IF ADR(gvlCtd01.spool) <> 0 AND ADR(gvlStorageDrum01.spool) <> 0 THEN IF objManDev.SelectedLevelwindIndexHMI = 0 THEN objManDev.LevelwindHMI REF= gvlStorageDrum01.spool ; ELSE objManDev.LevelwindHMI REF= gvlCtd01.spool; END_IF ELSE DebugMessage('Reference to Levelwind is missing','',''); END_IF //gvlMRU.MRU_UDP( // DualPositions := TRUE, // LocalIPAddr := '10.183.6.170', // LocalIPPort := 5678 // ); ]]> ObjModbus.modBusError ); // copy data to ModbusTCP data arraty for bridge monitor MEMCPY(ADR(GVL.mb_Input_Registers),ADR(ObjModbus.data.output),40); ]]>