WinCC审计追踪及电子签名VB脚本（项目脚本）（待续）

半醉人間

已于 2022-05-18 19:22:48 修改

阅读量5.9k

点赞数 3

分类专栏： WinCC 文章标签：自动化

于 2022-05-18 11:42:34 首次发布

本文链接：https://blog.csdn.net/weixin_44974053/article/details/124838919

版权

该博客介绍了如何在WinCC中实现审计追踪功能，包括创建报警和根据变量值显示不同信息。通过FunctionKSZ1_MyAlarmBool_JOG和FunctionKSZ1_MyAlarmBool函数，展示了设置报警状态、用户信息以及根据不同条件触发不同报警消息的方法。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

1、审计追踪一

Function KSZ1_MyAlarmBool_JOG(BaseScreenName,TagName,BoolName,WinccTagNameCHS,WinccTagNameENG,WinccTagNameITA)
Dim Button1,MyAlarm,CurrentUser,NewValue,OldValue

         Set MyAlarm=HMIRuntime.Alarms(121901)
         Set CurrentUser=HMIRuntime.Tags("@CurrentUser")
'       Set Button1=HMIRuntime.Screens(ScreenName).ScreenItems(TagName)
'        Set Button1=HMIRuntime.Screens("main_screen").ScreenItems(TagName)
          CurrentUser.read
          MyAlarm.State=5
         'MyAlarm.Comment="MyComment"
          MyAlarm.UserName=CurrentUser.Value
'          MyAlarm.ProcessValues(2)="Jog"
          MyAlarm.ProcessValues(3)=WinccTagNameENG
          MyAlarm.ProcessValues(4)=WinccTag