Advertisement
Guest User

Untitled

a guest
Jan 5th, 2019
121
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
SCL 1.59 KB | None | 0 0
  1. rtLOCAL_1(CLK:=xLOCAL_CONTROL_ON , Q=> );
  2. rtLOCAL_2(CLK:=xLOCAL_CONTROL_OFF , Q=> );
  3.  
  4. myFbDISCONNECTOR1(
  5.  
  6.     xSTATE:=xSTATE ,
  7.     xERROR:=xERROR ,
  8.     xENABLE:= NOT xDISABLE,
  9.     xLOCAL_CONTROL:=xLOCAL_CONTROL ,
  10.     xVISU_CONTROL:= TRUE,
  11.     xLOCAL_CONTROL_ON:=rtLOCAL_1.Q ,
  12.     xLOCAL_CONTROL_OFF:=rtLOCAL_2.Q ,
  13.     xVISU_CONTROL_ON:= ,
  14.     xVISU_CONTROL_OFF:= ,
  15.     xREMOTE_CONTROL_ON:=xIEC_BO_1 ,
  16.     xREMOTE_CONTROL_OFF:=xIEC_BO_2 ,
  17.     tTIME_ON:=WORD_TO_TIME(wTIME_ON) ,
  18.     tTIME_OFF:=WORD_TO_TIME(wTIME_OFF) ,
  19.     xCONFIRM:=xCONFIRM ,
  20.     xON_OUT=>xBreakerOFF ,
  21.     xOFF_OUT=>xBreakerON,
  22.     xTIME_OUT=>xTIME_OUT );
  23.  
  24.  
  25. xFUSE_ON:=xDI4;
  26. xFUSE_ON1:=xDI3;
  27.  
  28. xDISCONNECTOR_ON:= NOT xSTATE;
  29.  
  30. (*Graficzne przedstawienie dzialania rozlacznika*)
  31. IF xDISCONNECTOR_ON THEN
  32.     IF iDISC_ROTATION <44 THEN
  33.     iDISC_ROTATION:=iDISC_ROTATION+1;
  34.     END_IF
  35. ELSE
  36.     IF iDISC_ROTATION>1 THEN
  37.     iDISC_ROTATION:= iDISC_ROTATION-1;
  38.     END_IF
  39. END_IF
  40.  
  41. IF xDISCONNECTOR_ON THEN
  42.     IF rPOSITION_X <11.75 THEN
  43.     rPOSITION_X:=rPOSITION_X+0.30;
  44.     END_IF
  45. ELSE
  46.     IF rPOSITION_X>1 THEN
  47.     rPOSITION_X:=rPOSITION_X-0.24;
  48.     END_IF
  49. END_IF
  50.  
  51. (*Graficzne przedstawienie pola bezpiecznikowego nr.1*)
  52. IF xFUSE_ON THEN
  53.  
  54.     IF iFUSE_ROTATION < 43 THEN
  55.         iFUSE_ROTATION:=iFUSE_ROTATION+1;
  56.     END_IF
  57.  
  58. ELSE
  59.     IF iFUSE_ROTATION>1 THEN
  60.     iFUSE_ROTATION:= iFUSE_ROTATION-1;
  61.     END_IF
  62. END_IF
  63.  
  64. (*Graficzne przedstawienie pola bezpiecznikowego nr.1*)
  65. IF xFUSE_ON1 THEN
  66.  
  67.     IF iFUSE_ROTATION1< 43 THEN
  68.         iFUSE_ROTATION1:=iFUSE_ROTATION1+1;
  69.     END_IF
  70.  
  71. ELSE
  72.     IF iFUSE_ROTATION1>1 THEN
  73.     iFUSE_ROTATION1:= iFUSE_ROTATION1-1;
  74.     END_IF
  75. END_IF
  76.  
  77. xSTATE:=xB1_STATE ;
  78. xERROR:=xB1_STATE=xB2_STATE;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement