LIB_PLC/FbTON.SCL at main · DIYPLC/LIB_PLC · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
FUNCTION_BLOCK "FbTON"
TITLE = 'Òàéìåð ñ çàäåðæêîé íà âêëþ÷åíèå.'

{ S7_read_back := 'true' ;
  S7_blockview := 'big'  }

AUTHOR  : VA
FAMILY  : LIB_PLC
VERSION : '2.2'

VAR_INPUT // Âõîäíûå ïåðåìåííûå, ñîõðàíÿåìûå.
In          :BOOL := FALSE; // Âõîä òàéìåðà.
TimeDelayOn :DINT := 5000 ; // Âðåìÿ çàäåðæêè âêëþ÷åíèÿ [ìñ].
Ts_ms       :DINT := 100  ; // Øàã äèñêðåòèçàöèè ïî âðåìåíè [ìñ].
END_VAR

VAR_OUTPUT // Âûõîäíûå ïåðåìåííûå, ñîõðàíÿåìûå.
Out :BOOL := FALSE; // Âûõîä òàéìåðà.
END_VAR

VAR // Âíóòðåííèå ïåðåìåííûå, ñîõðàíÿåìûå.
Timer1 :DINT := 0; // Òåêóùåå âðåìÿ òàéìåð1 [ìñ].
END_VAR

BEGIN

// Òàéìåð ñ çàäåðæêîé íà âêëþ÷åíèå.
//          DbTON
//    +----------------+
//    |     FbTON      |
// ->-|In           Out|->-
//   -|TimeDelayOn     |
//   -|Ts_ms           |
//    +----------------+

IF (TimeDelayOn > 0) THEN // Òàéìåð âêëþ÷åí.
  IF (In) THEN // Íà âõîäå 1.
    IF (Out) THEN // Íà âûõîäå 1.
    Out := TRUE;
    Timer1 := 0;
    ELSE // Íà âûõîäå 0.
      IF (Timer1 >= TimeDelayOn) THEN // Çàäåðæêà âêëþ÷åíèÿ çàêîí÷èëàñü.
      Out := TRUE;
      Timer1 := 0;
      ELSE // Çàäåðæêà âêëþ÷åíèÿ àêòèâíà.
      Out := FALSE;
      Timer1 := Timer1 + Ts_ms;
      END_IF;
    END_IF;
  ELSE // Åñëè íà âõîäå 0 òî íà âûõîäå òîæå 0.
  Out := FALSE;
  Timer1 := 0;
  END_IF;
ELSE // Òàéìåð âûêëþ÷åí.
Out := In;
Timer1 := 0;
END_IF;

// Ïðèìåíåíèå.
//
// Ïðè ïîñòóïëåíèè âõîäíîãî ñèãíàëà âûõîäíîé ñèãíàë ïîÿâëÿåòñÿ íå ñðàçó, à ñ çàäåðæêîé TimeDelayOn.
// Áëîê ìîæåò ïðèìåíÿòñÿ êàê ôèëüòð äðåáåçãà êîíòàêòîâ äèñêðåòíûõ âõîäîâ.
// Ñîâìåñòíî ñ èíâåðòîðîì ìîæåò ïðèìåíÿòüñÿ äëÿ ãåíåðàöèè èìïóëüñîâ.

// Âðåìåííàÿ õàðàêòåðèñòèêà.
//
//  In
//  ^
//  | TimeDelayOn           TimeDelayOn
//  |   |<--->|               |<--->|
// 1|   ***********     * *   ***********
//  |   *         *     * *   *         *
// 0*****---------*************---------*****----> t[s]
//
//  Out
//  ^
//  | TimeDelayOn           TimeDelayOn
//  |   |<--->|               |<--->|
// 1|   |     *****           |     *****
//  |   |     *   *           |     *   *
// 0***********---*******************---*****----> t[s]

// @COPYLEFT ALL WRONGS RESERVED :)
// Author: VA
// Contacts: DIY.PLC.314@gmail.com
// Date start LIB_PLC: 2014
// License: GNU GPL-2.0-or-later
// https://www.gnu.org/licenses/old-licenses/gpl-2.0.html
// https://www.youtube.com/watch?v=n1F_MfLRlX0
// https://www.youtube.com/@DIY_PLC
// https://github.com/DIYPLC/LIB_PLC
// https://oshwlab.com/diy.plc.314/PLC_HW1_SW1
// https://3dtoday.ru/3d-models/mechanical-parts/body/korpus-na-din-reiku
// https://t.me/DIY_PLC
// https://drive.google.com/drive/folders/16GDX0i07rwDrl_oPzL-lQAqMiAz3ouJV?usp=sharing

END_FUNCTION_BLOCK