WINCC一键启停脚本

1个按钮
一键启停

好的，以下是WINCC一键启停脚本的程序代码：

[code]Sub Button1_onclick()
    Dim oSrv, sMachName, sGroupName, sTag1, sTag2
   
    Set oSrv = HMIRuntime.Tags
   
    '设定设备名和组名
    sMachName = "PLC"
    sGroupName = "Control"
   
    '设定启停标记点
    sTag1 = "Start"
    sTag2 = "Stop"
   
    If oSrv(sMachName & "." & sGroupName & "." & sTag1).Read >= 1 Then
        oSrv(sMachName & "." & sGroupName & "." & sTag2).Write (1)
        oSrv(sMachName & "." & sGroupName & "." & sTag1).Write (0)
    Else
        oSrv(sMachName & "." & sGroupName & "." & sTag1).Write (1)
        oSrv(sMachName & "." & sGroupName & "." & sTag2).Write (0)
    End If
End Sub[/code]

该程序通过读取并写入PLC控制组中的标记点实现启停操作。用户可以将脚本绑定到WINCC的按钮上，通过点击按钮实现一键启停。当标记点“Start”为1时，点击按钮会将其设为0，并将标记点“Stop”设为1，从而实现停止操作；当标记点“Start”为0时，点击按钮会将其设为1，并将标记点“Stop”设为0，从而实现启动操作。

注意：该代码仅作为示例，程序中的设备名、组名和标记点名称需要根据实际情况进行修改。