SCL 数据日志：DataLogCreate / Write / Close

1DATA_BLOCK "DB_DataLog"
2{ S7_Optimized_Access := 'TRUE' }
3VERSION : 0.1
4   VAR
5      Header : Struct
6         Site : String[32];
7      END_STRUCT;
8      Data : Struct
9         ID : UInt;
10         Value : Real;
11         Text : String[64];
12      END_STRUCT;
13   END_VAR
14BEGIN
15END_DATA_BLOCK
16 

1FUNCTION_BLOCK "FB_DataLog"
2{ S7_Optimized_Access := 'TRUE' }
3VERSION : 0.1
4   VAR_INPUT
5      Create : Bool;
6      Write : Bool;
7      Close : Bool;
8      FileName : String[64] := 'LearnSCL_Log';
9      RecordID : UInt;
10      RecordValue : Real;
11      RecordText : String[64];
12   END_VAR
13 
14   VAR_OUTPUT
15      Ready : Bool;
16      Busy : Bool;
17      Done : Bool;
18      Error : Bool;
19      Status : Word;
20      LogID : DWord;
21      Written : UInt;
22      State : Int;
23   END_VAR
24 
25   VAR
26      CreateInst : DataLogCreate;
27      WriteInst : DataLogWrite;
28      CloseInst : DataLogClose;
29      CreatePrev : Bool;
30      WritePrev : Bool;
31      ClosePrev : Bool;
32      CreatePulse : Bool;
33      WritePulse : Bool;
34      ClosePulse : Bool;
35      CreateDoneInt : Bool;
36      CreateBusyInt : Bool;
37      CreateErrorInt : Bool;
38      CreateStatusInt : Word;
39      WriteDoneInt : Bool;
40      WriteBusyInt : Bool;
41      WriteErrorInt : Bool;
42      WriteStatusInt : Word;
43      CloseDoneInt : Bool;
44      CloseBusyInt : Bool;
45      CloseErrorInt : Bool;
46      CloseStatusInt : Word;
47      LogIDInt : DWord := 0;
48      WrittenInt : UInt := 0;
49      StateInt : Int := 0;
50      StatusInt : Word := 16#0000;
51   END_VAR
52BEGIN
53   REGION 边沿与复位
54      #CreatePulse := #Create AND NOT #CreatePrev;
55      #CreatePrev := #Create;
56      #WritePulse := #Write AND NOT #WritePrev;
57      #WritePrev := #Write;
58      #ClosePulse := #Close AND NOT #ClosePrev;
59      #ClosePrev := #Close;
60 
61      #Done := FALSE;
62      #Busy := FALSE;
63      #CreateDoneInt := FALSE;
64      #WriteDoneInt := FALSE;
65      #CloseDoneInt := FALSE;
66   END_REGION
67 
68   REGION 创建日志
69      IF #CreatePulse AND #StateInt = 0 THEN
70         #StateInt := 10;
71         #StatusInt := 16#0000;
72      END_IF;
73 
74      #CreateInst(REQ := #StateInt = 10,
75         RECORDS := 1000,
76         FORMAT := 1,
77         TIMESTAMP := 4,
78         NAME := #FileName,
79         ID := #LogIDInt,
80         HEADER := "DB_DataLog".Header,
81         DATA := "DB_DataLog".Data,
82         DONE => #CreateDoneInt,
83         BUSY => #CreateBusyInt,
84         ERROR => #CreateErrorInt,
85         STATUS => #CreateStatusInt);
86 
87      IF #StateInt = 10 THEN
88         #Busy := #CreateBusyInt;
89         IF #CreateDoneInt THEN
90            #StateInt := 20;
91            #Done := TRUE;
92         ELSIF #CreateErrorInt THEN
93            #StateInt := 90;
94            #StatusInt := #CreateStatusInt;
95         END_IF;
96      END_IF;
97   END_REGION
98 
99   REGION 写入记录
100      IF #WritePulse AND #StateInt = 20 THEN
101         "DB_DataLog".Data.ID := #RecordID;
102         "DB_DataLog".Data.Value := #RecordValue;
103         "DB_DataLog".Data.Text := #RecordText;
104         #StateInt := 30;
105      END_IF;
106 
107      #WriteInst(REQ := #StateInt = 30,
108         ID := #LogIDInt,
109         DONE => #WriteDoneInt,
110         BUSY => #WriteBusyInt,
111         ERROR => #WriteErrorInt,
112         STATUS => #WriteStatusInt);
113 
114      IF #StateInt = 30 THEN
115         #Busy := #WriteBusyInt;
116         IF #WriteDoneInt THEN
117            #StateInt := 20;
118            #WrittenInt := #WrittenInt + 1;
119            #Done := TRUE;
120         ELSIF #WriteErrorInt THEN
121            #StateInt := 90;
122            #StatusInt := #WriteStatusInt;
123         END_IF;
124      END_IF;
125   END_REGION
126 
127   REGION 关闭日志
128      IF #ClosePulse AND (#StateInt = 20 OR #StateInt = 90) THEN
129         #StateInt := 40;
130      END_IF;
131 
132      #CloseInst(REQ := #StateInt = 40,
133         ID := #LogIDInt,
134         DONE => #CloseDoneInt,
135         BUSY => #CloseBusyInt,
136         ERROR => #CloseErrorInt,
137         STATUS => #CloseStatusInt);
138 
139      IF #StateInt = 40 THEN
140         #Busy := #CloseBusyInt;
141         IF #CloseDoneInt THEN
142            #StateInt := 0;
143            #LogIDInt := 0;
144            #WrittenInt := 0;
145            #Done := TRUE;
146         ELSIF #CloseErrorInt THEN
147            #StateInt := 90;
148            #StatusInt := #CloseStatusInt;
149         END_IF;
150      END_IF;
151   END_REGION
152 
153   REGION 状态输出
154      #Ready := #StateInt = 20;
155      #Error := #StateInt = 90;
156      #Status := #StatusInt;
157      #LogID := #LogIDInt;
158      #Written := #WrittenInt;
159      #State := #StateInt;
160   END_REGION
161END_FUNCTION_BLOCK
162