36 lines
1.1 KiB
Smalltalk
36 lines
1.1 KiB
Smalltalk
(*
|
||
===============================================================================
|
||
Project : PLC_Library
|
||
Device : -
|
||
Path : Общие
|
||
Name : BLINK_LMP
|
||
Type : FUNCTION_BLOCK
|
||
===============================================================================
|
||
*)
|
||
|
||
FUNCTION_BLOCK BLINK_LMP
|
||
(*
|
||
Мигание лампами в завистмости от статуса
|
||
*)
|
||
VAR_INPUT
|
||
State: WORD:=0; (* 0 - выключено; 1 - включено; 2 - мигание с частотой 1; 3 - мигание с частотой 2; 4 - мигание с частотой 3; *)
|
||
Inp_BL_1: BOOL := FALSE; (* Пульсар миганич с частотой 1 *)
|
||
Inp_BL_2: BOOL := FALSE; (* Пульсар миганич с частотой 2 *)
|
||
Inp_BL_3: BOOL := FALSE; (* Пульсар миганич с частотой 3 *)
|
||
END_VAR
|
||
VAR_OUTPUT
|
||
LMP: BOOL; (* Управляющий сигнал на лампу *)
|
||
END_VAR
|
||
VAR
|
||
END_VAR
|
||
|
||
(*----- IMPLEMENTATION -----*)
|
||
CASE State OF
|
||
0: LMP:=FALSE;
|
||
1: LMP:=TRUE;
|
||
2: LMP:=Inp_BL_1;
|
||
3: LMP:=Inp_BL_2;
|
||
4: LMP:=Inp_BL_3;
|
||
END_CASE;
|
||
END_FUNCTION_BLOCK
|