Is there any SFC/SFB/FC/FB ready made in siemens for my application?

 

FUNCTION_BLOCK "Largest_Analog"

TITLE =

VERSION : 0.1

 

VAR_INPUT

Raw_Analog : INT ; 

Max : REAL ; //See FC105

Min : REAL ; //See FC105

Bipolar : BOOL ; //See FC105

END_VAR

VAR_OUTPUT

ScaledValue : REAL ; //Scaled Analog Value

LargestV : REAL ; //Largest Value for last period

END_VAR

VAR

Scaled_Value : REAL ; 

LargetsSoFar : REAL ; 

LastLargest : REAL ; 

ErrorWord : WORD ; 

TIM1 : "TON"; 

Flag : BOOL ; 

ErrorFlag : BOOL ; 

END_VAR

VAR_TEMP

Error : INT ; 

END_VAR

BEGIN

NETWORK

TITLE =Convert Analog Value

A #Bipolar; 

= L 2.0; 

BLD 103; 

CALL "SCALE" (

IN := #Raw_Analog,

HI_LIM := #Max,

LO_LIM := #Min,

BIPOLAR := L 2.0,

RET_VAL := #ErrorWord,

OUT := #Scaled_Value);

NOP 0; 

NETWORK

TITLE =Check for Error

A( ; 

L #ErrorWord; 

T #Error; 

SET ; 

SAVE ; 

CLR ; 

A BR; 

) ; 

A( ; 

L #Error; 

L 0; 

<>I ; 

) ; 

= #ErrorFlag; 

NETWORK

TITLE =If no error move out scaled value. Otherwise move zero out

A( ; 

A #ErrorFlag; 

JNB _001; 

L #Scaled_Value; 

T #ScaledValue; 

SET ; 

SAVE ; 

CLR ; 

_001: A BR; 

) ; 

NOT ; 

JNB _002; 

L 0.000000e+000; 

T #ScaledValue; 

_002: NOP 0; 

NETWORK

TITLE =Check for largest

A( ; 

L #Scaled_Value; 

L #LargetsSoFar; 

>R ; 

) ; 

JNB _003; 

L #Scaled_Value; 

T #LargetsSoFar; 

_003: NOP 0; 

NETWORK

TITLE =Oscillator

AN #Flag; 

= L 2.0; 

BLD 103; 

CALL #TIM1 (

IN := L 2.0,

PT := T#30M,

Q := #Flag);

NOP 0; 

NETWORK

TITLE =Move Value and clear

A( ; 

A #Flag; 

JNB _004; 

L #LargetsSoFar; 

T #LastLargest; 

SET ; 

SAVE ; 

CLR ; 

_004: A BR; 

) ; 

JNB _005; 

L 0.000000e+000; 

T #LargetsSoFar; 

_005: NOP 0; 

NETWORK

TITLE =

L #LastLargest; 

T #LargestV; 

NOP 0; 

END_FUNCTION_BLOCK