使用SCL函数块编写计算保质期的应用程序

在以下部分中，将创建 SCL  函数块“SCL_Best_before_date” 。  可使用 SCL  函数块计算保质期。

要创建 SCL  函数块，请按以下步骤操作： 

1.   打开“程序块” 文件夹。 

2.   双击“添加新块”。 

3.   要添加一个函数块： 

–  单击“函数块” 。 

–  指定块名称“SCL_Best_before_date” 。 

–  选择语言“SCL” 。 

–  单击“确定”。 

4.   保存项目。 成功创建了 SCL  函数块“SCL_Best_before_date” 。  程序编辑器将自动打开。 

要定义接口，请按以下步骤操作： 

1.   在“Input” 部分定义带有以下属性的输入参数： 

–  名称："Duration" 

–  数据类型："Int" 

可在此参数中指定保质期（年）。 

2.   在“Output” 部分定义带有以下属性的输出参数： 

–  名称："Best_before_date_Output" 

–  数据类型："Int" 

需要此参数输出计算出的保质期。 

3.   在“Temp”部分定义带有以下属性的一个参数： 

–  名称："Error" 

–  数据类型："Int" 

需要此临时参数临时存储指令“RD_SYS_T” 的返回值，该参数将在项目过程中稍后设定。 

4.   在“Temp”部分定义带有以下属性的第二个参数： 

–  名称："System_Time_DT" 

–  数据类型："Date_And_Time" 

需要此临时参数临时存储指令“RD_SYS_T” 的系统时间。 

5.   在“Temp”部分定义带有以下属性的第三个参数： 

–  名称："System_Time_Array" 

–  数据类型："AT" 

需要此临时参数覆盖接口“System_Time_DT” 。 

部分名称后将自动添加后缀“AT "System_Time_DT"” ，同时将数据类型“AT” 转换为“Date_And_Time” 。 

6.   将文本“Date_And_Time” 替换为“Array [0 .. 7] of Byte” 。 

7.   在“Temp”部分定义带有以下属性的第四个参数： 

–  名称："Year" 

–  数据类型："Int" 

需要此临时参数临时存储所读取的系统时间的年份值。 

8.   保存项目。 在 SCL  函数块的接口中成功定义了所有必需参数。 

在以下部分中，将编写计算保质期的 SCL  函数块。 

对于项目“Filling Station” ，则只输出年份值： 

●  要执行此操作，需要使用指令“RD_SYS_T” 读取 CPU  块的当前系统时间。  读出的数据以 DT (Date_And_Time)  格式存储在该指令的临时接口“System_Time_DT” 中。 

●  然后用临时参数“System_Time_Array” 覆盖临时参数“System_Time_DT” 。  该操作将数据类型“DT” 的各个值对应数组中的相应字节。 

●  数组的第一个字节包含当前年份值。  将值“2000” 添加到年份字段中，由于格式为“DT(Date_And_Time)”，因此只指定了年份的最后两位（例如：  值“11” 对应于“2011”年）。  除了当前年份外，还会加上输入接口“Duration” 中指定的持续时间。 

要编写 SCL  函数块，请按以下步骤操作： 

1.   定义程序代码的第一行： 

–  在指令前写入："#Error :=" 

–  写入指令："RD_SYS_T" 

–  在指令后写入："(OUT => #System_Time_DT);" 

2.   定义程序代码的第二行： 

–  在指令前写入："#Year :=" 

–  写入指令："BCD_TO_INT" 

–  在指令后写入："(#System_Time_Array[0]);" 

该指令用于将“BCD” 格式转换为“INT”格式。 

3.   定义程序代码的第三行： 

–   "#Best_Before_Date_Output :=  #Year + 2000 + #Duration;" 

该指令用于将值“2000” 和输入接口“Duration” 的当前值加到值“Year” 上。 

4.   保存项目。成功编写了计算保质期的 SCL  函数块。 

审核编辑：郭婷