LIB_PLC/FbCounter.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 "FbCounter"
TITLE = 'Ñ÷åò÷èê èìïóëüñîâ.'

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

AUTHOR  : VA
FAMILY  : LIB_PLC
VERSION : '2.2'

VAR_INPUT // Âõîäíûå ïåðåìåííûå, ñîõðàíÿåìûå.
INC      :BOOL := FALSE; // Âõîä èìïóëüñîâ +1.
DEC      :BOOL := FALSE; // Âõîä èìïóëüñîâ -1.
RESET    :BOOL := FALSE; // Ñáðîñèòü ñ÷åò÷èê íà 0.
SETVALUE :BOOL := FALSE; // Óñòàíîâèòü íà âûõîäå çíà÷åíèå VALUE.
VALUE    :DINT := 0    ; // Ïðåäóñòàíîâëåííîå çíà÷åíèå ñ÷åòà.
END_VAR

VAR_OUTPUT // Âûõîäíûå ïåðåìåííûå, ñîõðàíÿåìûå.
CNT      :DINT := 0    ; // Âûõîä ñ÷åò÷èêà.
OVERFLOW :BOOL := FALSE; // Ôëàã ïåðåïîëíåíèÿ ñ÷åò÷èêà.
END_VAR

VAR // Âíóòðåííèå ïåðåìåííûå, ñîõðàíÿåìûå.
INCPrevios :BOOL := FALSE; // Ïðåäûäóùåå ñîñòîÿíèå âõîäà +1.
DECPrevios :BOOL := FALSE; // Ïðåäûäóùåå ñîñòîÿíèå âõîäà -1.
END_VAR

CONST // Êîíñòàíòû.
LIMIT_MAX :=  2147483647; // Ìàêñèìàëüíîå çíà÷åíèå ñ÷åò÷èêà.
LIMIT_MIN := -2147483648; // Ìèíèìàëüíîå çíà÷åíèå ñ÷åò÷èêà.
END_CONST

BEGIN

// Ñ÷åò÷èê èìïóëüñîâ.
//         DbCounter
//    +-----------------+
//    |    FbCounter    |
// ->-|INC           CNT|->-
//   -|DEC      OVERFLOW|-
//   -|RESET            |
//   -|SETVALUE         |
//   -|VALUE            |
//    +-----------------+

// Ïðÿìîé ñ÷åò ïî íàðàñòàþùåìó ôðîíòó èìïóëüñîâ +1.
IF (INC AND NOT(INCPrevios)) THEN
    IF (CNT >= LIMIT_MAX) THEN // Îãðàíè÷åíèå ñâåðõó.
    CNT := LIMIT_MAX;
    OVERFLOW := TRUE;
    ELSE //Ïðÿìîé ñ÷åò.
    CNT := CNT + 1;
    OVERFLOW := FALSE;
    END_IF;
END_IF;

// Îáðàòíûé ñ÷åò ïî íàðàñòàþùåìó ôðîíòó èìïóëüñîâ -1.
IF (DEC AND NOT(DECPrevios)) THEN
    IF (CNT <= LIMIT_MIN) THEN // Îãðàíè÷åíèå ñíèçó.
    CNT := LIMIT_MIN;
    OVERFLOW := TRUE;
    ELSE //Îáðàòíûé ñ÷åò.
    CNT := CNT - 1;
    OVERFLOW := FALSE;
    END_IF;
END_IF;

// Óñòàíîâèòü çíà÷åíèå ñ÷åò÷èêà.
IF (SETVALUE) THEN
CNT := VALUE;
END_IF;

// Ñáðîñèòü ñ÷åò÷èê.
IF (RESET) THEN
CNT := 0;
END_IF;

// Çàïîìíèòü ïðåäûäóùåå ñîñòîÿíèå âõîäà.
INCPrevios := INC;
DECPrevios := DEC;

// @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