写程序
写一个西门子winCC 7.4 VBS脚本，要求如下：1、在按钮事件中，鼠标动作触发。
2、取二进制变量“RUN”
3、当按钮动作时，变量“RUN”为1
4、当按钮再次动作时，变量“RUN”为0
下面是一个基本的VBS脚本，可以实现你要求的功能：
Sub Button1_OnClick()
Dim sTagPath
sTagPath = "DB1.RUN"' 这里的DB1.RUN表示变量RUN所在的DB块及名称
If ReadValue(sTagPath) = 0 Then
WriteValue sTagPath, 1 ' 将变量RUN置为1
Else
WriteValue sTagPath, 0 ' 将变量RUN置为0
End If
End Sub
Function ReadValue(sTagPath)
' 读取指定变量的值
Dim oTag
Set oTag = HMIRuntime.Tags(sTagPath)
ReadValue = oTag.Read
End Function
Sub WriteValue(sTagPath, nValue)
' 设置指定变量的值
Dim oTag
Set oTag = HMIRuntime.Tags(sTagPath)
oTag.Write nValue
End Sub
说明：
1. 这个程序是在WinCC7.4平台下使用VBS编程语言实现。
2. 程序中定义了一个名为Button1_OnClick()的事件函数，当用户点击与之对应的按钮时，会自动触发这个事件。
3. 在事件中，先定义了变量sTagPath，用来表示所需读写的变量名。因为变量“RUN”是二进制变量，所以我们使用0和1来表示它的不同状态。
4. 在函数ReadValue()和WriteValue()中分别使用HMIRuntime.Tags(sTagPath)来获取所需的变量对象，并使用Read()和Write(nValue)函数来读取和设置该变量的值。
5. 在Button1_OnClick()函数中，我们调用了ReadValue()函数来读取变量RUN的值。如果变量值为0，则意味着当前系统未运行，我们需要将变量RUN置为1，表示系统已经运行；反之，将变量RUN置为0，表示系统已经停止。
页:
[1]