buttoncolor in WinCC Flexible

[font=Arial][size=2]FUNCTION "BOOL_TO_INT" : VOID

TITLE =

VERSION : 0.1

 

VAR_INPUT

COMM_IN : BOOL ; //Commando In

COMM_UIT : BOOL ; //Commando Uit

FC_IN : BOOL ; //Feedback In

FC_UIT : BOOL ; //Feedback Uit

CLK_1s : BOOL ; 

END_VAR

VAR_OUTPUT

Color : INT ; 

ALR_IN_NO_FDBK : BOOL ; 

ALR_UIT_NO_FDBK : BOOL ; 

END_VAR

VAR_IN_OUT

CLKMEM_IN : BOOL ; 

CLKMEM_UIT : BOOL ; 

Time_IN : INT ; 

Time_UIT : INT ; 

END_VAR

VAR_TEMP

TempByte : BYTE ; 

END_VAR

BEGIN

NETWORK

TITLE =IN OK (1)

A #COMM_IN; 

A #FC_IN; 

JCN NOT1; 

L 1; // 1 = IN

T #TempByte; 

L 0; 

T #Time_IN; 

CLR ; 

= #ALR_IN_NO_FDBK; 

NOT1: NOP 0; 

NETWORK

TITLE =UIT OK (2)

A #COMM_UIT; 

A #FC_UIT; 

JCN NOT2; 

L 2; // 2 = UIT

T #TempByte; 

L 0; 

T #Time_UIT; 

CLR ; 

= #ALR_UIT_NO_FDBK; 

NOT2: NOP 0; 

NETWORK

TITLE =ALARM IN (3)

A #COMM_IN; 

AN #FC_IN; 

JCN NOT3; 

A #CLK_1s; 

FP #CLKMEM_IN; 

JCN NOT3; 

L 1; 

L #Time_IN; 

+I ; 

T #Time_IN; 

L 3; // 3s

>=I ; 

JCN NOT3; 

L 3; 

T #TempByte; 

SET ; 

= #ALR_IN_NO_FDBK; 

NOT3: NOP 0; 

NETWORK

TITLE =ALARM UIT (4)

A #COMM_UIT; 

AN #FC_UIT; 

JCN NOT4; 

A #CLK_1s; 

FP #CLKMEM_UIT; 

JCN NOT4; 

L 1; 

L #Time_UIT; 

+I ; 

T #Time_UIT; 

L 3; // 3s

>=I ; 

JCN NOT4; 

L 4; 

T #TempByte; 

SET ; 

= #ALR_UIT_NO_FDBK; 

NOT4: NOP 0; 

NETWORK

TITLE =NO COMMANDS => RESET CALCULATED TIMEVALUES

AN #COMM_IN; 

JCN NAL1; 

L 0; 

T #Time_IN; 

NAL1: AN #COMM_UIT; 

JCN NAL2; 

L 0; 

T #Time_UIT; 

NAL2: NOP 0; 

NETWORK

TITLE =CONVERT

L #TempByte; 

BTI ; 

T #Color; 

END_FUNCTION

 

[/size][/font]