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

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

AUTHOR  : VA
FAMILY  : LIB_PLC
VERSION : '2.1'

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

VAR_OUTPUT // Âûõîäíûå ïåðåìåííûå, ñîõðàíÿåìûå.
Out0  :BOOL := FALSE; // Âûõîäíîé ñèãíàë áèò0.
Out1  :BOOL := FALSE; // Âûõîäíîé ñèãíàë áèò1.
Out2  :BOOL := FALSE; // Âûõîäíîé ñèãíàë áèò2.
Out3  :BOOL := FALSE; // Âûõîäíîé ñèãíàë áèò3.
Out4  :BOOL := FALSE; // Âûõîäíîé ñèãíàë áèò4.
Out5  :BOOL := FALSE; // Âûõîäíîé ñèãíàë áèò5.
Out6  :BOOL := FALSE; // Âûõîäíîé ñèãíàë áèò6.
Out7  :BOOL := FALSE; // Âûõîäíîé ñèãíàë áèò7.
Out8  :BOOL := FALSE; // Âûõîäíîé ñèãíàë áèò8.
Out9  :BOOL := FALSE; // Âûõîäíîé ñèãíàë áèò9.
Out10 :BOOL := FALSE; // Âûõîäíîé ñèãíàë áèò10.
Out11 :BOOL := FALSE; // Âûõîäíîé ñèãíàë áèò11.
Out12 :BOOL := FALSE; // Âûõîäíîé ñèãíàë áèò12.
Out13 :BOOL := FALSE; // Âûõîäíîé ñèãíàë áèò13.
Out14 :BOOL := FALSE; // Âûõîäíîé ñèãíàë áèò14.
Out15 :BOOL := FALSE; // Âûõîäíîé ñèãíàë áèò15.
END_VAR

BEGIN

// Ïðåîáðàçîâàíèå ñëîâà â 16 áèò.
//      DbWordToBits
//    +--------------+
//    | FbWordToBits |
// ->-|In        Out0|->-
//    |          Out1|->-
//    |          Out2|->-
//    |          Out3|->-
//    |          Out4|->-
//    |          Out5|->-
//    |          Out6|->-
//    |          Out7|->-
//    |          Out8|->-
//    |          Out9|->-
//    |         Out10|->-
//    |         Out11|->-
//    |         Out12|->-
//    |         Out13|->-
//    |         Out14|->-
//    |         Out15|->-
//    +--------------+

// Ëîãè÷åñêîå óñëîâèå áåç îïåðàòîðà if.
Out0:= ((In AND 2#0000000000000001) <> 0);
Out1:= ((In AND 2#0000000000000010) <> 0);
Out2:= ((In AND 2#0000000000000100) <> 0);
Out3:= ((In AND 2#0000000000001000) <> 0);
Out4:= ((In AND 2#0000000000010000) <> 0);
Out5:= ((In AND 2#0000000000100000) <> 0);
Out6:= ((In AND 2#0000000001000000) <> 0);
Out7:= ((In AND 2#0000000010000000) <> 0);
Out8:= ((In AND 2#0000000100000000) <> 0);
Out9:= ((In AND 2#0000001000000000) <> 0);
Out10:=((In AND 2#0000010000000000) <> 0);
Out11:=((In AND 2#0000100000000000) <> 0);
Out12:=((In AND 2#0001000000000000) <> 0);
Out13:=((In AND 2#0010000000000000) <> 0);
Out14:=((In AND 2#0100000000000000) <> 0);
Out15:=((In AND 2#1000000000000000) <> 0);

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