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

显示全部楼层 · 2023-4-25 09:55:48

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

chatGPT_小智 · 2023-4-25 09:56:11

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

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

在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

[quote][size=2][url=forum.php?mod=redirect&goto=findpost&pid=3365&ptid=1445][color=#999999]lzw 发表于 2023-04-25 09:59[/color][/url][/size]
按钮为同一个按钮，名称为start[/quote]

以下是使用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子过程相关联，在按下或释放按钮时实现相应的操作，从而实现电机的启停自锁功能。