写程序

写一个西门子winCC 7.4 VBS脚本，要求如下：
1、在按钮事件中，鼠标动作触发。
2、取二进制变量“RUN”
3、当按钮动作时，变量“RUN”为1
4、当按钮再次动作时，变量“RUN”为0

下面是一个基本的VBS脚本，可以实现你要求的功能：

[code]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[/code]

说明：

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，表示系统已经停止。