LIB_PLC/FbDriverAi420.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
FUNCTION_BLOCK "FbDriverAi420"
TITLE = 'Äðàéâåð àíàëîãîâî âõîäà 4...20ìÀ.'

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

AUTHOR  : VA
FAMILY  : LIB_PLC
VERSION : '2.3'

VAR_INPUT // Âõîäíûå ïåðåìåííûå, ñîõðàíÿåìûå.
ADC      :WORD := 0    ; // ÀÖÏ Ñèãíàë îò äàò÷èêà 0...27648.
OutMax   :REAL := 100.0; // Äèàïïàçîí äàò÷èêà ìàêñèìóì.
OutMin   :REAL := 0.0  ; // Äèàïïàçîí äàò÷èêà ìèíèìóì.
ErrValue :REAL := 0.0  ; // Çíà÷åíèå äëÿ Out ïðè îøèáêå äàò÷èêà.
SimValue :REAL := 0.0  ; // Çíà÷åíèå äëÿ Out ïðè ñèìóëÿöèè.
SimOn    :BOOL := FALSE; // Âêëþ÷èòü ñèìóëÿöèþ.
END_VAR

VAR_OUTPUT // Âûõîäíûå ïåðåìåííûå, ñîõðàíÿåìûå.
Out   :REAL := 0.0  ; // Âûõîä â åäèíèöàõ äàò÷èêà.
I_mA  :REAL := 0.0  ; // Òîê íà àíàëîãîâîì âõîäå 4...20ìÀ.
Error :BOOL := FALSE; // Îøèáêà àíàëîãîâî âõîäà èëè äàò÷èêà.
END_VAR

BEGIN

// Äðàéâåð àíàëîãîâî âõîäà 4...20ìÀ.
//            DbDriverAi420
//    +---------------------------+
//    |       FbDriverAi420       |
// ->-|ADC                     Out|->-
//   -|OutMax                 I_mA|-
//   -|OutMin                Error|-
//   -|ErrValue                   |
//   -|SimValue                   |
//   -|SimOn                      |
//    +---------------------------+

// Îøèáêà àíàëîãîâî âõîäà èëè äàò÷èêà.
Error := (ADC = W#16#7FFF) OR (ADC = W#16#8000); // 32767,-32768

// Òîê íà àíàëîãîâîì âõîäå 4...20ìÀ.
IF (Error) THEN
I_mA := 0.0;
ELSE
// Ìàñøòàáèðîâàíèå 0...27648 [ÀÖÏ] -> 4...20[ìÀ]
I_mA := ((INT_TO_REAL(WORD_TO_INT(ADC)) * 16.0 ) / 27648.0) + 4.0;
END_IF;

IF (SimOn) THEN // Âêëþ÷åíà ñèìóëÿöèÿ.
Out := SimValue; // Çíà÷åíèå äëÿ Out ïðè ñèìóëÿöèè.
ELSE
    IF (Error) THEN // Îøèáêà àíàëîãîâî âõîäà èëè äàò÷èêà.
    Out := ErrValue; // Çíà÷åíèå äëÿ Out ïðè îøèáêå äàò÷èêà.
    ELSE
    // Ìàñøòàáèðîâàíèå 4...20[ìÀ] -> OutMin...OutMax
    Out := (OutMax - OutMin) * ((I_mA - 4.0) / 16.0) + OutMin;
    END_IF;
END_IF;

// Àìïëèòóäíûé îãðàíè÷èòåëü äèàïàçîíà äàò÷èêà OutMin...OutMax
IF (Out >= OutMax) THEN // Îãðàíè÷åíèå âûõîäà ñâåðõó.
Out := OutMax;
ELSE
    IF (Out <= OutMin) THEN // Îãðàíè÷åíèå âûõîäà ñíèçó.
    Out := OutMin;
    ELSE
    // Âûõîä áåç îãðàíè÷åíèé.
    Out := Out;
    END_IF;
END_IF;

// Îïèñàíèå ðàáîòû äðàéâåðà àíàëîãîâî âõîäà 4...20ìÀ.
// 1.Ñíà÷àëà ñèãíàë ñ ÀÖÏ 0...27648 ïðåîáðàçóåòñÿ â òîêîâûé ñèãíà 4...20ìÀ.
// 2.Åñëè íå âêëþ÷åíà ñèìóëÿöèÿ è íåò îøèáîê ñèãíàë 4...20ìÀ ïðåîáðàçóåòñÿ â ñèãíàë äàò÷èêà OutMin...OutMax.
// 3.Ñèãíàë äàò÷èêà îãðàíè÷èâàåòñÿ â ïðåäåëàõ åãî äèàïïàçîíà èçìåðåíèÿ OutMin...OutMax.

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