LIB_PLC/FbRunTimeMeter.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
FUNCTION_BLOCK "FbRunTimeMeter"
TITLE = 'Èçìåðåíèå âðåìåíè âûïîëíåíèÿ ó÷àñòêà ïðîãðàììû.'

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

AUTHOR  : VA
FAMILY  : LIB_PLC
VERSION : '2.1'

VAR_INPUT // Âõîäíûå ïåðåìåííûå, ñîõðàíÿåìûå.
StartSeconds     :INT := 0; // Âðåìÿ â íà÷àëå èçìåðåíèÿ- ñåêóíäà 0...59.
StartMillisecond :INT := 0; // Âðåìÿ â íà÷àëå èçìåðåíèÿ- ìèëëèñåêóíäà 0...999.
StopSeconds      :INT := 0; // Âðåìÿ â êîíöå èçìåðåíèÿ- ñåêóíäà 0...59.
StopMillisecond  :INT := 0; // Âðåìÿ â êîíöå èçìåðåíèÿ- ìèëëèñåêóíäà 0...999.
END_VAR

VAR_OUTPUT // Âûõîäíûå ïåðåìåííûå, ñîõðàíÿåìûå.
RunTime :INT := 0; // Èçìåðåííîå âðåìÿ âûïîëíåíèÿ ïðîãðàììû [ìñ].
END_VAR

VAR // Âíóòðåííèå ïåðåìåííûå, ñîõðàíÿåìûå.
Time_start_ms :DINT := 0; // Ìåòêà âðåìåíè â íà÷àëå èçìåðåíèÿ 0...59999ms
Time_stop_ms  :DINT := 0; // Ìåòêà âðåìåíè â êîíöå èçìåðåíèÿ 0...59999ms
END_VAR

BEGIN

// Èçìåðåíèå âðåìåíè âûïîëíåíèÿ ó÷àñòêà ïðîãðàììû.
//            DbRunTimeMeter
//     +--------------------------+
//     |      FbRunTimeMeter      |
//  ->-|StartSeconds       RunTime|->-
//  ->-|StartMillisecond          |
//  ->-|StopSeconds               |
//  ->-|StopMillisecond           |
//     +--------------------------+

// Íà÷àëî èçìåðåíèÿ 00s000ms...59s999ms == 0...59999ms
Time_start_ms := ( INT_TO_DINT(StartSeconds) * 1000 ) + INT_TO_DINT(StartMillisecond);

// Êîíåö èçìåðåíèÿ 00s000ms...59s999ms == 0...59999ms.
Time_stop_ms := ( INT_TO_DINT(StopSeconds) * 1000 ) + INT_TO_DINT(StopMillisecond);

// Ðàçíîñòü âðåìåíè ñ ó÷åòîì ïåðåïîëíåíèÿ.
IF (Time_stop_ms >= Time_start_ms) THEN
RunTime := DINT_TO_INT(Time_stop_ms - Time_start_ms);
// Ts_ms = 7 - 2 = 5 ms
// 0
// 1
// 2 <- Time_start_ms
// 3
// 4
// 5
// 6
// 7 <- Time_stop_ms
// 8
// 9
ELSE
RunTime := DINT_TO_INT((60000 - Time_start_ms) + Time_stop_ms);
// Ts_ms = (60000 - 59997) + 2 = 5 ms
// 59995
// 59996
// 59997 <- Time_start_ms
// 59998
// 59999
// 0
// 1
// 2 <- Time_stop_ms
// 3
// 4
END_IF;

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