Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (*Deklaracja koniecznych blokow funkcyjnych, ktore pomagaja w optymalizacji i konfiguracji urzadzenia*)
- rtChange1(CLK:=xChange1 , Q=> );
- rtChange2(CLK:=xChange2 , Q=> );
- rtRESET(CLK:=xRESET, Q=> );
- ftConfigBusy(CLK:=xCONFIG_BUSY , Q=> );
- (*Parametryzacja bloku funkcyjnego zab. elektronicznego*)
- FB_787_1662(
- xActive:=xACTIVE ,
- xConfig:=xCONFIG ,
- xChannel1Active:=xCH1_ACTIVE ,
- xChannel2Active:=xCH2_ACTIVE ,
- xS2_Input:=xS2_787_1662 ,
- xReset:=xRESET ,
- xDone=>xDONE ,
- xConfigBusy=>xCONFIG_BUSY ,
- typChannel1Status=>typCH1_STATUS,
- typChannel2Status=>typCH2_STATUS ,
- xS1_Output=>xS1_787_1662 );
- (*Jesli nasze urzadzenie jest zajete (stwierdzane dzieki zadeklarowanemu wczesniej bloczkowi ) to nie mozna wykonac zadnych zmian w konfiguracji*)
- (*oraz rowniez niemozliwa jest aktywacja kanalow*)
- (*and it is also impossible to activate out channels *)
- IF ftConfigBusy.Q THEN
- xCONFIG := FALSE;
- xChange1 := FALSE;
- xChange2 := FALSE;
- END_IF
- (*Deklaracja koniecznych blokow funkcyjnych, ktore pomagaja w optymalizacji i konfiguracji urzadzenia*)
- rtChange1(CLK:=xChange1 , Q=> );
- rtChange2(CLK:=xChange2 , Q=> );
- rtRESET(CLK:=xRESET, Q=> );
- ftConfigBusy(CLK:=xCONFIG_BUSY , Q=> );
- (*Parametryzacja bloku funkcyjnego zab. elektronicznego*)
- FB_787_1662(
- xActive:=xACTIVE ,
- xConfig:=xCONFIG ,
- xChannel1Active:=xCH1_ACTIVE ,
- xChannel2Active:=xCH2_ACTIVE ,
- xS2_Input:=xS2_787_1662 ,
- xReset:=xRESET ,
- xDone=>xDONE ,
- xConfigBusy=>xCONFIG_BUSY ,
- typChannel1Status=>typCH1_STATUS,
- typChannel2Status=>typCH2_STATUS ,
- xS1_Output=>xS1_787_1662 );
- (*Jesli nasze urzadzenie jest zajete (stwierdzane dzieki zadeklarowanemu wczesniej bloczkowi ) to nie mozna wykonac zadnych zmian w konfiguracji*)
- (*oraz rowniez niemozliwa jest aktywacja kanalow*)
- (*and it is also impossible to activate out channels *)
- IF ftConfigBusy.Q THEN
- xCONFIG := FALSE;
- xChange1 := FALSE;
- xChange2 := FALSE;
- END_IF
- IF rtChange1.Q AND NOT xCONFIG_BUSY THEN
- IF typCH1_STATUS = 0 THEN
- xCH1_ACTIVE := FALSE;
- xCONFIG := TRUE;
- ELSIF typCH1_STATUS = 1 THEN
- xCH1_ACTIVE := TRUE;
- xCONFIG := TRUE;
- ELSE
- xCH1_ACTIVE := TRUE;
- xCONFIG := TRUE;
- END_IF
- END_IF
- IF rtChange2.Q AND NOT xCONFIG_BUSY THEN
- IF typCH2_STATUS = 0 THEN (*means ACTIVE*)
- xCH2_ACTIVE := FALSE;
- xCONFIG := TRUE;
- ELSE
- xCH2_ACTIVE := TRUE;
- xCONFIG := TRUE;
- END_IF
- END_IF
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement