Wincc7.5SP1 按钮操作记录(二次确认及语音播报)

Wincc 7.5 SP1 按钮操作记录生成（含二次确认及语音播报）

前面一篇文章已经介绍了“语音播报WINCC报警”，本文是之前功能的延伸，记录按钮操作记录并实现播报。

操作记录及语音播报效果

<创建消息文本>

1. 创建消息文本

• 消息编号100，消息等级“系统无确认”，消息类型“操作员输入消息”，消息文本“循环水泵启动操作”，其他参数默认。
• 消息编号101，消息等级“系统无确认”，消息类型“操作员输入消息”，消息文本“循环水泵停止操作”，其他参数默认。
  

2. 创建语音播报

针对每条消息文本，在“属性”-“参数”下勾选“触发动作”，该功能将联动语音播报

<创建函数>

1. 函数功能

因为此次想将该功能封装为函数，供界面重复调用，所以需要使用VBS建立项目函数。
功能：

• 写入操作记录
• 按钮二次确认

2. 函数脚本

打开“全局脚本”-VBS，创建“项目模块”，输入如下代码
变量说明：

• BindTagName：变量名称
• Value：变量写入值
• AlarmNo：消息编号

Sub ConfirmWithAlarm(Byval BindTagName,Value,AlarmNo)

	Dim MyAlarm
	
	If MsgBox("确认要进行此操作？",vbOKCancel,"确认")=vbOK Then
	
		HMIRuntime.Tags(BindTagName).Write Value	'写入变量值

		Set MyAlarm=HMIRuntime.Alarms(AlarmNo) 		'设置消息标号
    	             
		MyAlarm.State = 1      						'1=消息到来
    	                         
    	MyAlarm.Create
    	
	End If
	
End Sub

<创建界面>

1. 界面

按如下图所示，界面中放置报警控件、按钮。

2. 脚本

按钮主要是使用函数调用来实现：操作记录、语音播报、写入变量值。
按钮-鼠标-时间，vbs脚本

• 启动水泵

Sub OnClick(Byval Item)        
ConfirmWithAlarm "myalarm",1,100
End Sub

• 停止水泵

Sub OnClick(Byval Item)         
	ConfirmWithAlarm "myalarm",0,101
End Sub

3.效果