SCL 配方导入导出：RecipeExport / RecipeImport

1FUNCTION_BLOCK "FB_Recipe"
2{ S7_Optimized_Access := 'TRUE' }
3VERSION : 0.1
4   VAR_INPUT
5      ExportReq : Bool;   // 上升沿导出 CSV
6      ImportReq : Bool;   // 上升沿导入 CSV
7      Reset : Bool;       // 清除错误和最后状态
8   END_VAR
9 
10   VAR_OUTPUT
11      Ready : Bool;       // 空闲且无未复位错误
12      Busy : Bool;        // 导出/导入进行中
13      Done : Bool;        // 本周期完成（单周期）
14      Error : Bool;       // 有未复位错误
15      Status : Word;      // 当前/最后状态码
16      LastStatus : Word;  // 最后一次完成或错误的状态码
17      Mode : Int;         // 0=空闲 1=导出 2=导入
18   END_VAR
19 
20   VAR
21      ExportInst : RecipeExport;
22      ImportInst : RecipeImport;
23      ExportPrev : Bool;
24      ImportPrev : Bool;
25      ExportPulse : Bool;
26      ImportPulse : Bool;
27      ExportDoneInt : Bool;
28      ExportBusyInt : Bool;
29      ExportErrorInt : Bool;
30      ExportStatusInt : Word;
31      ImportDoneInt : Bool;
32      ImportBusyInt : Bool;
33      ImportErrorInt : Bool;
34      ImportStatusInt : Word;
35      StatusInt : Word := 16#0000;
36      LastStatusInt : Word := 16#0000;
37      ErrorLatched : Bool := FALSE;
38      ModeInt : Int := 0;
39   END_VAR
40BEGIN
41   REGION 边沿与复位
42      // 导出/导入都只响应一次上升沿；REQ 给单周期脉冲，实例在后台继续执行。
43      #ExportPulse := #ExportReq AND NOT #ExportPrev;
44      #ExportPrev := #ExportReq;
45      #ImportPulse := #ImportReq AND NOT #ImportPrev;
46      #ImportPrev := #ImportReq;
47 
48      IF #Reset THEN
49         #ModeInt := 0;
50         #StatusInt := 16#0000;
51         #LastStatusInt := 16#0000;
52         #ErrorLatched := FALSE;
53      END_IF;
54 
55      #Done := FALSE;
56      #Busy := FALSE;
57   END_REGION
58 
59   REGION 导出
60      // 只有空闲且没有未复位错误时才允许开始新的导出。
61      IF #ExportPulse AND #ModeInt = 0 AND NOT #ErrorLatched THEN
62         #ModeInt := 1;
63         #StatusInt := 16#0000;
64      END_IF;
65 
66      #ExportInst(REQ := #ExportPulse,
67         RECIPE_DB := "DB_Recipe",
68         DONE => #ExportDoneInt,
69         BUSY => #ExportBusyInt,
70         ERROR => #ExportErrorInt,
71         STATUS => #ExportStatusInt);
72 
73      IF #ModeInt = 1 THEN
74         #Busy := #ExportBusyInt;
75         #StatusInt := #ExportStatusInt;
76         IF #ExportDoneInt THEN
77            #ModeInt := 0;
78            #Done := TRUE;
79            #LastStatusInt := #ExportStatusInt;
80         ELSIF #ExportErrorInt THEN
81            #ModeInt := 0;
82            #ErrorLatched := TRUE;
83            #LastStatusInt := #ExportStatusInt;
84         END_IF;
85      END_IF;
86   END_REGION
87 
88   REGION 导入
89      // 导入与导出共用 Mode，保证同一时间只有一个 Recipe 指令在跑。
90      IF #ImportPulse AND #ModeInt = 0 AND NOT #ErrorLatched THEN
91         #ModeInt := 2;
92         #StatusInt := 16#0000;
93      END_IF;
94 
95      #ImportInst(REQ := #ImportPulse,
96         RECIPE_DB := "DB_Recipe",
97         DONE => #ImportDoneInt,
98         BUSY => #ImportBusyInt,
99         ERROR => #ImportErrorInt,
100         STATUS => #ImportStatusInt);
101 
102      IF #ModeInt = 2 THEN
103         #Busy := #ImportBusyInt;
104         #StatusInt := #ImportStatusInt;
105         IF #ImportDoneInt THEN
106            #ModeInt := 0;
107            #Done := TRUE;
108            #LastStatusInt := #ImportStatusInt;
109         ELSIF #ImportErrorInt THEN
110            #ModeInt := 0;
111            #ErrorLatched := TRUE;
112            #LastStatusInt := #ImportStatusInt;
113         END_IF;
114      END_IF;
115   END_REGION
116 
117   REGION 状态输出
118      // Error 保持到 Reset；Done 只在完成的那一个扫描周期为 1。
119      #Error := #ErrorLatched;
120      #Ready := (#ModeInt = 0) AND NOT #ErrorLatched;
121      #Status := #StatusInt;
122      #LastStatus := #LastStatusInt;
123      #Mode := #ModeInt;
124   END_REGION
125END_FUNCTION_BLOCK
126 
127TYPE "RecipeUDT"
128VERSION : 0.1
129   STRUCT
130      ProductName : String[32];   // 配方名（CSV 第一列之后）
131      Water : Int;
132      Barley : Int;
133      Wheat : Int;
134      Hops : Int;
135      Yeast : Int;
136      WaterTmp : Int;
137      MashTmp : Int;
138      MashTime : Int;
139   END_STRUCT;
140END_TYPE
141 

1DATA_BLOCK "DB_Recipe"
2{ S7_Optimized_Access := 'FALSE' }
3VERSION : 0.1
4   VAR
5      Recipes : Array[1..5] of "RecipeUDT";   // 最多 5 条配方
6   END_VAR
7BEGIN
8END_DATA_BLOCK
9