在实际项目中，经常会用到一些定时功能，如设备的定时开关机、付尾款程序等一些需要定时来完成的逻辑，都需要准确的实时时钟。

这些逻辑一般在PLC实现，但是由于有些PLC没有内置实时时钟电池，而只是用超级电容保持时钟，断电保持时间一般7天左右，以西门子ST20为例，可以加装电池板及电池CR1025实现，这样就加了成本。

那如何用触摸屏实现PLC时钟同步呢？以200smart为例，当上位机采用的威纶通MT8071IE时，如何用触摸屏时间同步PLC呢？

1.打开维纶触摸屏开发环境，宏指令→新增

2.写触摸屏的宏脚本，为了大家看的方便，我把注释列上。写完成之后，把周期执行、当HMI启动时即执行一次勾选上，并且把周期执行的时间写上，这里单位是100ms，我写600也就是1分钟执行一次时钟同步比较。注意由于PLC用的是BCD码格式，所以触摸屏也选用的是BCD码，省的进行数据转换。

macro_commandmain()shorth_y,h_mo,h_d,h_h,h_m,h_s,h_w//声明触摸屏变量bcdcharp_y,p_Mo,p_d,p_h,p_m,p_s,p_w//声明PLC变量bcdGetData(h_y,"LocalHMI",LW,9015,1)//读取触摸屏年GetData(h_mo,"LocalHMI",LW,9014,1)//读取触摸屏月GetData(h_d,"LocalHMI",LW,9013,1)//读取触摸屏日GetData(h_h,"LocalHMI",LW,9012,1)//读取触摸屏时GetData(h_m,"LocalHMI",LW,9011,1)//读取触摸屏分GetData(h_s,"LocalHMI",LW,9010,1)//读取触摸屏秒GetData(p_y,"SiemensS7-200SMART(Ethernet)",VB,100,1)//读取PLC年GetData(p_mo,"SiemensS7-200SMART(Ethernet)",VB,101,1)//读取PLC月GetData(p_d,"SiemensS7-200SMART(Ethernet)",VB,102,1)//读取PLC日GetData(p_h,"SiemensS7-200SMART(Ethernet)",VB,103,1)//读取PLC时GetData(p_m,"SiemensS7-200SMART(Ethernet)",VB,104,1)//读取PLC分GetData(p_s,"SiemensS7-200SMART(Ethernet)",VB,105,1)//读取PLC秒ifh_yp_yorh_mop_moorh_dp_dorh_hp_horh_mp_morh_sp_sthen//年月日时分秒任意不相等SetData(h_y,"SiemensS7-200SMART(Ethernet)",VB,110,1)//设定PLC年SetData(h_mo,"SiemensS7-200SMART(Ethernet)",VB,111,1)//设定PLC月SetData(h_d,"SiemensS7-200SMART(Ethernet)",VB,112,1)//设定PLC日SetData(h_h,"SiemensS7-200SMART(Ethernet)",VB,113,1)//设定PLC时SetData(h_m,"SiemensS7-200SMART(Ethernet)",VB,114,1)//设定PLC分SetData(h_s,"SiemensS7-200SMART(Ethernet)",VB,115,1)//设定PLC秒boolplcset=trueSetData(plcset,"SiemensS7-200SMART(Ethernet)",M,2.0,1)//接通PLC设置时钟的代码plcset=falseSetData(plcset,"SiemensS7-200SMART(Ethernet)",M,2.0,1)//断开PLC设置时钟的代码ifmacro_command

3.写PLC读时钟和同步时钟的代码(梯形图)

设置时钟，采用的是上升沿触发。

读时钟，由于精度1秒，所以1秒读一次即可，没有必要每个扫描周期都运行

时钟格式切记是BCD码，也就是4位二进制表示1位10进制数

4.200Smart定义的时钟数据格式

5.小案例分享

-------一个从打杂工自学加实践到电气及软件工程师的工控人