茂名市西门子电机授权总经销商 中国授权SIEMENS一级总代理

VAR_IN_OUT

OpCmd  {S7_m_c:='true';S7_visible:='false' }: DWORD:=16#0;   // control word wincc

END_VAR

VAR_OUTPUT

Status1  {S7_m_c:='true';S7_visible:='false'}  :DWORD:=0;        // Status WinCC

bStatus1 AT Status1 : ARRAY [0..3] OF BYTE;     // look at Status1 byte-wise

OS_PermOut  {S7_m_c:='true';S7_visible:='false'}: DWORD :=16#FFFFFFFF;//Permssion word wincc

bPerm AT OS_PermOut: ARRAY [0..3] OFBYTE; 

Alarm   {S7_m_c:='true';S7_visible:='false'} :WORD := 16#0;   // Bit Alarm Procedure

bAlarm AT Alarm : ARRAY [0..1] OF BYTE;      // look at QwAlarm byte-wise

PV_Out {S7_m_c:='true'; S7_archive:='shortterm'} :REAL := 0.0;  // Process Value out

PV_AH_Act      {S7_dynamic:='true'}: BOOL:= FALSE;  // H Alarm is Active

PV_WH_Act       {S7_dynamic:='true'}:BOOL := FALSE;  // H Warning is Active

PV_WL_Act       {S7_dynamic:='true'}:BOOL := FALSE;  // L Warning is Active

PV_AL_Act      {S7_dynamic:='true'} : BOOL:= FALSE;  // L Alarm is Active 

AvePV{S7_m_c:='true';S7_visible:='false'}:REAL;

MaxPV{S7_m_c:='true';S7_visible:='false'}:REAL;

MinPV{S7_m_c:='true';S7_visible:='false'}:REAL;                     

END_VAR

VAR   

    dwCmdHMI : DWORD := 16#0;                   

    bCmdHMI AT dwCmdHMI : ARRAY [0..3] OFBYTE;  

    dwCmdPLC : DWORD := 16#0;                     

    bCmdPLC AT dwCmdPLC : ARRAY [0..3] OFBYTE; 

    xCmdPLC AT dwCmdPLC  : ARRAY [0..31] OFBOOL;

    dwStatus1PLC : DWORD := 16#0;          

    bStatus1PLC AT dwStatus1PLC : ARRAY [0..3]OF BYTE; 

    xStatus1PLC AT dwStatus1PLC : ARRAY [0..31]OF BOOL; 

    dwPermPLC : DWORD :=16#FFFFFFFF;  

    bPermPLC AT dwPermPLC : ARRAY [0..3] OFBYTE;  

    xPermPLC AT dwPermPLC : ARRAY [0..31] OFBOOL;   

    wAlarmPLC  : WORD  := 16#0;                    

    bAlarmPLC AT wAlarmPLC : ARRAY [0..1] OFBYTE; 

    xAlarmPLC AT wAlarmPLC : ARRAY [0..15] OFBOOL; 

    rPV_A_DC   : REAL:=0.0; 

    rPV_W_DC   : REAL:=0.0;  

    rPV_A_DG   : REAL:=0.0;  

    rPV_W_DG   : REAL:= 0.0;                                                     

   PV_AL_C,PV_AL_G,PV_WL_G,PV_WL_C:BOOL;

   PV_AL_C_Old,PV_WL_C_Old,PV_AL_G_Old,PV_WL_G_Old:BOOL;

    rPV_Hyst  : REAL :=0.0; 

    rPV:REAL;

END_VAR

VAR_TEMP

rPVsExchange: REAL;

xBadsExchange:BOOL;

rPVsAdd: REAL; 

aryPVs:ARRAY[1..8]OF REAL;

aryBads:ARRAY[1..8]OF BOOL; 

iBadCount:INT; 

iIndex1,iIndex2,iIndex3:INT;    

END_VAR

—————————————————————————————————————————————————

BEGIN

// Change lowbyte to highbyte for HMI commandword

    dwCmdHMI := OpCmd;

    bCmdPLC[0] := bCmdHMI[3];

    bCmdPLC[1] := bCmdHMI[2];

    bCmdPLC[2] := bCmdHMI[1];

    bCmdPLC[3] :=bCmdHMI[0];  

//-----------------------------------------------------------------   

// Begin: Operation functions 

//-----------------------------------------------------------------

//限幅操作

// Toggle Message 1-4 ON/OFF 

    IF (xCmdPLC[12] ) THEN 

        PV_AH_EN := NOT PV_AH_EN;

    END_IF;

    IF (xCmdPLC[13] ) THEN 

         PV_WH_EN := NOT PV_WH_EN;

    END_IF;

    IF (xCmdPLC[14] ) THEN 

         PV_WL_EN := NOT PV_WL_EN;

    END_IF;

    IF (xCmdPLC[15] ) THEN 

        PV_AL_EN := NOT PV_AL_EN;

    END_IF;   

// Simulation Toggle 

    IF xCmdPLC[10]  THEN 

       SimOn:= TRUE;

    ELSIF  xCmdPLC[11] THEN

       SimOn:= FALSE; 

    END_IF;               

// END: Operation functions 

aryBads[1]:=Bad1;

aryBads[2]:=Bad2;

aryBads[3]:=Bad3;

aryBads[4]:=Bad4;

aryBads[5]:=Bad5;

aryBads[6]:=Bad6;

aryBads[7]:=Bad7;

aryBads[8]:=Bad8;

aryPVs[1]:=PV1;

aryPVs[2]:=PV2;

aryPVs[3]:=PV3;

aryPVs[4]:=PV4;

aryPVs[5]:=PV5;

aryPVs[6]:=PV6;

aryPVs[7]:=PV7;

aryPVs[8]:=PV8;