plcforum.uz.ua

International PLC Forum
It is currently Mon Sep 25, 2017 12:12 am

All times are UTC + 3 hours


Forum rules


Please click here to view the forum rules



Post new topic Reply to topic  [ 6 posts ] 
Author Message
 Post subject: WHAT DOING THIS BLOCK ?
PostPosted: Wed May 03, 2017 3:42 pm 

Joined: Sun Sep 07, 2014 6:51 pm
Posts: 6
Hi help my please what doing this block ?
https://ulozto.cz/!OvdiwNBm3vgs/fc1-awl
(close)

Code:
FUNCTION FC 1 : VOID
TITLE =
VERSION : 0.1


VAR_INPUT
  IN0 : BOOL ;   
  IN1 : INT ;   
  IN2 : BOOL ;   
  IN3 : BOOL ;   
END_VAR
VAR_OUTPUT
  OUT4 : BOOL ;   
END_VAR
VAR_IN_OUT
  IO5 : DINT ;   
END_VAR
VAR_TEMP
  TEMP6 : STRUCT    
   TEMP7 : BOOL ;   
   TEMP8 : BOOL ;   
   TEMP9 : BOOL ;   
   TEMP10 : BOOL ;   
   TEMP11 : BOOL ;   
   TEMP12 : BOOL ;   
   TEMP13 : BOOL ;   
   TEMP14 : BOOL ;   
   TEMP15 : BYTE ;   
   TEMP16 : BYTE ;   
   True_if_IN2 : BOOL ;   //Pokud je IO2 1 tak je hodnota 1
   True_if_IN3 : BOOL ;   //Pokud je IO3 1 tak je hodnota 1
   TEMP19 : BOOL ;   
   TEMP20 : BOOL ;   
   TEMP21 : BOOL ;   
   TEMP22 : BOOL ;   
   TEMP23 : BOOL ;   
   TEMP24 : BOOL ;   
  END_STRUCT ;   
  IO1kr1 : BYTE ;   //IO1 nбsobek jednй IO1 * 1
  TEMP26 : BOOL ;   
  TEMP27 : BOOL ;   
  Math_2 : BYTE ;   //Nбsobek matematickэ 1*2 ????
  IO1bez2 : BYTE ;   //VstupIO1 menљн o 2
  TEMP30 : BOOL ;   
END_VAR
BEGIN
NETWORK
TITLE =

      L     1;
      L     2;
      *I    ;
      T     #Math_2; // nasobek 1*2
      L     #IN1;
      L     1;
      *I    ; // nasobek vstup int1 * 1
      L     #Math_2;
      -I    ; // odecti
      T     #IO1bez2; // IN1 menљн o 2
      L     #IN1; // mensi temp28 o dva
      L     1;
      *I    ;
      T     #IO1kr1; // IO1 VYNБSOBENЭ 1
      L     #IO5;
      T     LD     0;
NETWORK
TITLE =

      AN    #IN0; // pokud nenн InO
      JCN   M004; // pokud nenн RLO 0 Skok nakonec Netvorku
      A     #IN2; // Pokud je INO 2
      =     #TEMP6.True_if_IN2; // Nastav Temp6.Temp14 na 1
      A     #IN3; // Pokud je IN3
      =     #TEMP6.True_if_IN3; // Nastav Temp6.Temp18 na 1
M004: NOP   1;
NETWORK
TITLE =

      A     #TEMP6.TEMP7;
      X     #TEMP6.TEMP19;
      =     #TEMP26;
      R     #TEMP6.TEMP20;
      A     #TEMP6.TEMP7;
      =     #TEMP6.TEMP19;
      A     #IN0;
      JCN   M001;
      A     #TEMP6.TEMP7;
      A(    ;
      L     #TEMP6.TEMP16;
      L     #Math_2;
      >I    ;
      )     ;
      R     #TEMP6.True_if_IN2;
      AN    #TEMP6.TEMP7;
      A(    ;
      L     #TEMP6.TEMP16;
      L     #IO1kr1;
      >=I   ;
      )     ;
      S     #TEMP6.True_if_IN2;
      AN    #TEMP6.TEMP7;
      A(    ;
      L     #TEMP6.TEMP16;
      L     #Math_2;
      >I    ;
      )     ;
      R     #TEMP6.True_if_IN3;
      A     #TEMP6.TEMP7;
      A(    ;
      L     #TEMP6.TEMP16;
      L     #IO1kr1;
      >=I   ;
      )     ;
      S     #TEMP6.True_if_IN3;
M001: NOP   1;
      AN    #TEMP6.TEMP7;
      A     #TEMP6.True_if_IN2;
      AN    #TEMP6.True_if_IN3;
      O(    ;
      A     #TEMP6.TEMP7;
      AN    #TEMP6.True_if_IN2;
      A     #TEMP6.True_if_IN3;
      )     ;
      =     #TEMP30;
      A     #TEMP30;
      S     #TEMP6.TEMP20;
      AN    #TEMP30;
      O     #TEMP6.TEMP14;
      JCN   M002;
      L     #TEMP6.TEMP16;
      L     127;
      <I    ;
      A     M      1.5;
      JCN   M002;
      L     #TEMP6.TEMP16;
      +     1;
      T     #TEMP6.TEMP16;
M002: NOP   1;
      A(    ;
      A     #TEMP26;
      O     #TEMP6.TEMP20;
      )     ;
      AN    #TEMP6.TEMP14;
      JCN   M003;
      L     0;
      T     #TEMP6.TEMP16;
M003: NOP   1;
NETWORK
TITLE =

      A(    ;
      L     #TEMP6.TEMP16;
      L     #IO1kr1;
      >I    ;
      AN    #TEMP6.TEMP14;
      )     ;
      O(    ;
      AN    #TEMP30;
      A     #TEMP6.TEMP20;
      )     ;
      JCN   M006;
      SET   ;
      R     #TEMP6.TEMP20;
      S     #TEMP6.TEMP14;
      L     0;
      T     #TEMP6.TEMP16;
M006: NOP   1;
      A     #TEMP30;
      A(    ;
      L     #TEMP6.TEMP16;
      L     2;
      >=I   ;
      )     ;
      JCN   M007;
      SET   ;
      R     #TEMP6.TEMP14;
      L     0;
      T     #TEMP6.TEMP16;
M007: NOP   1;
NETWORK
TITLE =

      A     #TEMP6.TEMP20;
      A     #TEMP6.True_if_IN2;
      L     0;
      JC    M008;
      A     #TEMP6.TEMP20;
      A     #TEMP6.True_if_IN3;
      L     1;
      JC    M008;
      A     #TEMP6.TEMP7;
      AN    #TEMP6.TEMP20;
      L     2;
      JC    M008;
      AN    #TEMP6.TEMP7;
      AN    #TEMP6.TEMP20;
      L     3;
      JC    M008;
M008: NOP   1;
      T     #TEMP6.TEMP15;
NETWORK
TITLE =

      AN    #IN0;
      JCN   M005;
      A     #TEMP6.TEMP19;
      =     #OUT4;
M005: NOP   1;
NETWORK
TITLE =

      L     LD     0;
      T     #IO5;
END_FUNCTION



Top
 Profile  
 
PostPosted: Thu May 04, 2017 7:32 am 

Joined: Tue Dec 16, 2008 10:36 pm
Posts: 91
i just looove your question:)


Top
 Profile  
 
PostPosted: Thu May 04, 2017 2:56 pm 

Joined: Wed Dec 24, 2008 7:37 pm
Posts: 90
Location: Europe
When one programmer starts a function with this statement....

Code:
      L     1;
      L     2;
      *I    ;
      T     #Math_2; // nasobek 1*2


Top
 Profile  
 
PostPosted: Thu May 04, 2017 6:28 pm 

Joined: Wed Oct 13, 2010 11:44 am
Posts: 148
Location: Russian Federation
Comments are in сzech language, but the code looks like it was written by a Hindu.


Top
 Profile  
 
PostPosted: Thu May 04, 2017 11:41 pm 

Joined: Sun Sep 07, 2014 6:51 pm
Posts: 6
we have this code in one machine.
The function is referenced to tap the functions.
Here is calling.
Code:
       CALL FC 1
        IN0: = M7.0
        IN1: = 120
        IN2: = DB40.DBX0.6
        IN3: = DB40.DBX0.7
        OUT4: = DB41.DBX1.2
        IO5: = DB2.DBD0


Top
 Profile  
 
PostPosted: Sat Aug 26, 2017 12:28 am 

Joined: Fri Dec 04, 2015 7:56 pm
Posts: 3
If you will post full project with electric-shaftplan and little info about machine, than i can check... Sometime is good to know consequences...


Top
 Profile  
 
Display posts from previous:  Sort by  
Post new topic Reply to topic  [ 6 posts ] 

All times are UTC + 3 hours


Who is online

Users browsing this forum: yeasir1988 and 5 guests


You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum

Search for:
Jump to:  
Powered by International PLCforum® Forum Software © PLCforum
Mobile version