FUNCTION FC 183 : VOID
TITLE =
//STL 语言编写
NAME : OSCILL
VERSION : 0.0


VAR_INPUT
TIMER1 : TIMER ; // TOF
TIMER2 : TIMER ; // TON
key_input : BOOL ; // CONT
ON_time : S5TIME ; // T-ON
STOP_time : S5TIME ; // T-OF
END_VAR
VAR_OUTPUT
OUT : BOOL ; // OUT
END_VAR
BEGIN
NETWORK
TITLE =
//该程序的作用是机床启动以后的定时润滑时间控制通过输入适当的参数可以控制润滑时间和
//停止时间。实际是控制占空比。
// #key_input闭合的第一个时间段 #OUT=1
A #key_input;
AN #TIMER1;
L #ON_time;
SS #TIMER2;
A #TIMER2;
L #STOP_time;
SF #TIMER1;

AN #TIMER2;
JC M001;
R #TIMER2;
M001: A #key_input;
AN #TIMER1;
= #OUT;

END_FUNCTION
----------------------------------------------------
FUNCTION FC 83 : VOID
TITLE =
//LAD 语言编写
NAME : OSCILL
VERSION : 0.0


VAR_INPUT
TIMER1 : TIMER ; // TOF
TIMER2 : TIMER ; // TON
key_input : BOOL ; // CONT
ON_time : S5TIME ; // T-ON
STOP_time : S5TIME ; // T-OF
END_VAR
VAR_OUTPUT
OUT : BOOL ; // OUT
END_VAR
VAR_TEMP
temp : BOOL ;
END_VAR
BEGIN
NETWORK
TITLE =
//该程序的作用是机床启动以后的定时润滑时间控制通过输入适当的参数可以控制润滑时间和
//停止时间。实际是控制占空比。
// #key_input闭合的第一个时间段 #OUT=1


A #key_input;
AN #TIMER1;
L #ON_time;
SS #TIMER2;
A #temp;
R #TIMER2;
NOP 0;
NOP 0;
A #TIMER2;
= #temp;
NETWORK
TITLE =

A #TIMER2;
L #STOP_time;
SF #TIMER1;
NOP 0;
NOP 0;
NOP 0;
NOP 0;
NETWORK
TITLE =
//
//
A #key_input;
AN #TIMER2;
AN #TIMER1;
= #OUT;
END_FUNCTION