博图WinCC点击按钮触发单脉冲信号

博图15.1版本

博图WinCC点击按钮触发单脉冲信号

点击按钮记录时间，计划任务已500毫秒的时间间隔执行VB函数。当执行VB函数时的时间与点击按钮的时间相差一秒，复位按钮。

1、HMI里面新添加四个内部变量

2、新建画面，两个按钮，两个圆，当启动1为1时，其对应的圆会亮起，启动2同理。便于监测。

 3、设置“启动1”按钮

Sub OnClick(ByVal item)

SetBit "启动1"    '置位变量”启动1“为1
SetTag "TIME1",Timer '记录单击按钮时从零时到此时的秒数，存储在变量"TIME1"

End Sub

 4、设置圆1属性。当“启动1”为1时，圆1亮起。

 5、按钮2与圆2同理设置。

6、新建一个VB脚本。

Sub TIME_1()

SetTag "TIME2",Timer '记录执行该函数时零时到此时的秒数，存储到变量"TIME2"中
Dim B
B = HMIRuntime.Tags("TIME2").Read - HMIRuntime.Tags("TIME1").Read '变量”B“记录点击按钮时间和该函数执行时的时间差

If  B >= 1 And B <= 1.5 Then  '如果时间差大于等于1秒，小于等于1.5秒，复位所有启动按钮
	ResetBit "启动1"							
	ResetBit "启动2"
End If

If "TIME2" Then
	ResetBit "启动1"							'判断"TIME2"是否为0，是为了避免当点击按钮的时间刚好是一天最后一秒的前一秒
	ResetBit "启动2"

End If
End Sub

7、添加一个计划任务。类型函数列表，触发器：500毫秒。事件选择刚刚新建的函数