LIB_PLC/FbBitsToWord.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
FUNCTION_BLOCK "FbBitsToWord"
TITLE = 'Ïðåîáðàçîâàíèå 16 áèò â ñëîâî.'

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

AUTHOR  : VA
FAMILY  : LIB_PLC
VERSION : '2.2'

VAR_INPUT // Âõîäíûå ïåðåìåííûå, ñîõðàíÿåìûå.
In0  :BOOL := FALSE; // Âõîäíîé ñèãíàë áèò0.
In1  :BOOL := FALSE; // Âõîäíîé ñèãíàë áèò1.
In2  :BOOL := FALSE; // Âõîäíîé ñèãíàë áèò2.
In3  :BOOL := FALSE; // Âõîäíîé ñèãíàë áèò3.
In4  :BOOL := FALSE; // Âõîäíîé ñèãíàë áèò4.
In5  :BOOL := FALSE; // Âõîäíîé ñèãíàë áèò5.
In6  :BOOL := FALSE; // Âõîäíîé ñèãíàë áèò6.
In7  :BOOL := FALSE; // Âõîäíîé ñèãíàë áèò7.
In8  :BOOL := FALSE; // Âõîäíîé ñèãíàë áèò8.
In9  :BOOL := FALSE; // Âõîäíîé ñèãíàë áèò9.
In10 :BOOL := FALSE; // Âõîäíîé ñèãíàë áèò10.
In11 :BOOL := FALSE; // Âõîäíîé ñèãíàë áèò11.
In12 :BOOL := FALSE; // Âõîäíîé ñèãíàë áèò12.
In13 :BOOL := FALSE; // Âõîäíîé ñèãíàë áèò13.
In14 :BOOL := FALSE; // Âõîäíîé ñèãíàë áèò14.
In15 :BOOL := FALSE; // Âõîäíîé ñèãíàë áèò15.
END_VAR

VAR_OUTPUT // Âûõîäíûå ïåðåìåííûå, ñîõðàíÿåìûå.
Out :WORD := 0; // Âûõîäíîé ñèãíàë.
END_VAR

BEGIN

// Ïðåîáðàçîâàíèå 16 áèò â ñëîâî.
//      DbBitsToWord
//    +--------------+
//    | FbBitsToWord |
// ->-|In0        Out|->-
// ->-|In1           |
// ->-|In2           |
// ->-|In3           |
// ->-|In4           |
// ->-|In5           |
// ->-|In6           |
// ->-|In7           |
// ->-|In8           |
// ->-|In9           |
// ->-|In10          |
// ->-|In11          |
// ->-|In12          |
// ->-|In13          |
// ->-|In14          |
// ->-|In15          |
//    +--------------+

Out:=0;
IF (In0 ) THEN Out:=(Out OR 2#0000000000000001); END_IF;
IF (In1 ) THEN Out:=(Out OR 2#0000000000000010); END_IF;
IF (In2 ) THEN Out:=(Out OR 2#0000000000000100); END_IF;
IF (In3 ) THEN Out:=(Out OR 2#0000000000001000); END_IF;
IF (In4 ) THEN Out:=(Out OR 2#0000000000010000); END_IF;
IF (In5 ) THEN Out:=(Out OR 2#0000000000100000); END_IF;
IF (In6 ) THEN Out:=(Out OR 2#0000000001000000); END_IF;
IF (In7 ) THEN Out:=(Out OR 2#0000000010000000); END_IF;
IF (In8 ) THEN Out:=(Out OR 2#0000000100000000); END_IF;
IF (In9 ) THEN Out:=(Out OR 2#0000001000000000); END_IF;
IF (In10) THEN Out:=(Out OR 2#0000010000000000); END_IF;
IF (In11) THEN Out:=(Out OR 2#0000100000000000); END_IF;
IF (In12) THEN Out:=(Out OR 2#0001000000000000); END_IF;
IF (In13) THEN Out:=(Out OR 2#0010000000000000); END_IF;
IF (In14) THEN Out:=(Out OR 2#0100000000000000); END_IF;
IF (In15) THEN Out:=(Out OR 2#1000000000000000); 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