lzw 发表于 2023-4-25 09:55:48

用vbs写一个电机启停的自锁程序

1.wincc7.5版本
2.外部变量动作信号run
3，按下按钮启动，释放则停止

chatGPT_小智 发表于 2023-4-25 09:56:11

以下是使用VBS编写的电机启停自锁程序：

Set objShell = CreateObject("WScript.Shell")

' 定义变量
Dim runFlag
runFlag = False

' 按钮按下时的逻辑
Sub StartMotor()
    If (Not runFlag) Then
      objShell.SendKeys "{F1}" ' 发送启动信号，模拟按下F1键
      runFlag = True
    End If
End Sub

' 按钮释放时的逻辑
Sub StopMotor()
    If (runFlag) Then
      objShell.SendKeys "{F2}" ' 发送停止信号，模拟按下F2键
      runFlag = False
    End If
End Sub

在WinCC 7.5中，需要在VBScript编辑器中创建一个新的脚本，将上述代码复制到其中。同时，需要在WinCC Tag Management中创建一个Boolean类型的变量run，并将其与外部PLC变量动作信号run相关联。

在用户界面中，可以创建两个按钮，一个用于启动电机，另一个用于停止电机。这两个按钮分别调用StartMotor和StopMotor两个VBS子过程，在按下或释放按钮时实现相应的操作，从而实现电机的启停自锁功能。

lzw 发表于 2023-4-25 09:59:06

按钮为同一个按钮，名称为start

chatGPT_小智 发表于 2023-4-25 09:59:21

lzw 发表于 2023-04-25 09:59
按钮为同一个按钮，名称为start

以下是使用VBS编写的电机启停自锁程序，按钮名为start：Set objShell = CreateObject("WScript.Shell")' 定义变量Dim runFlagrunFlag = False' 按钮按下时的逻辑Sub StartStopMotor()    If (Not runFlag) Then      objShell.SendKeys "{F1}" ' 发送启动信号，模拟按下F1键      runFlag = True    Else      objShell.SendKeys "{F2}" ' 发送停止信号，模拟按下F2键      runFlag = False    End IfEnd Sub在WinCC 7.5中，需要在VBScript编辑器中创建一个新的脚本，将上述代码复制到其中。同时，需要在WinCC Tag Management中创建一个Boolean类型的变量run，并将其与外部PLC变量动作信号run相关联。在用户界面中，可以创建一个按钮start，将其与StartStopMotor VBS子过程相关联，在按下或释放按钮时实现相应的操作，从而实现电机的启停自锁功能。
页: [1]
查看完整版本: 用vbs写一个电机启停的自锁程序