LIB_PLC/FbS5TimeToReal.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
FUNCTION_BLOCK "FbS5TimeToReal"
TITLE = 'Êîíâåðòîð S5TIME â ìèëèñåêóíäû.'

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

AUTHOR  : VA
FAMILY  : LIB_PLC
VERSION : '1.0'

VAR_INPUT // Âõîäíûå ïåðåìåííûå, ñîõðàíÿåìûå.
X:S5TIME := T#0s; // Âõîä S5TIME 16 áèò BCD.
// Ïðåäñòàâèì ýòî ñëîâî êàê 2 áàéòà.
LocalStructTime AT X: STRUCT
ArrayByte:ARRAY[0..1] OF BYTE;
END_STRUCT;
END_VAR

VAR_OUTPUT // Âûõîäíûå ïåðåìåííûå, ñîõðàíÿåìûå.
Y :REAL := 0.0; // Âûõîä ìèëèñåêóíäû.
END_VAR

VAR // Âíóòðåííèå ïåðåìåííûå, ñîõðàíÿåìûå.
Digit1   :INT := 0; // Åäèíèöû BCD.
Digit10  :INT := 0; // Äåñÿòêè BCD.
Digit100 :INT := 0; // Ñîòíè BCD.
Base     :INT := 0; // Áàçà 2 áèòà (BCD*10^(Base+1)).
END_VAR

BEGIN

// Ðàçáèâàåì BCD íà ÷àñòè ïî 4 áèòà
// Áàéòû â ñëîâå ïîìåíÿíû ìåñòàìè èç çà àðõèòåêòóðû ïðîöåññîðà.
Digit1   := BYTE_TO_INT(LocalStructTime.ArrayByte[1] AND 2#0000_1111);
Digit10  := BYTE_TO_INT(LocalStructTime.ArrayByte[1] AND 2#1111_0000)/16;
Digit100 := BYTE_TO_INT(LocalStructTime.ArrayByte[0] AND 2#0000_1111);
Base     := BYTE_TO_INT(LocalStructTime.ArrayByte[0] AND 2#0011_0000)/16;
// Âû÷èñëåì êîëè÷åñòâî ìèëèñåêóíä ñîãëàñíî ñïåöèôèêàöèè ôîðìàòà S5TIME.
Y := ( 10**(INT_TO_REAL(Base+1)) ) *
(
INT_TO_REAL(Digit100*100) +
INT_TO_REAL(Digit10*10) +
INT_TO_REAL(Digit1)
);

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