搞程序 发表于 2023-3-20 11:53:53

帮我写一个西门子WINCC VBS脚本，要求如下

帮我写一个西门子WINCC VBS脚本，要求如下：
1、在按钮组态事件中，鼠标动作触发
2、触发时需弹窗再次确认是否动作
3、读取二进制内部变量"A1"
4、当按钮有动作时，变量"A1"为1
5、当按钮再次有动作时，变量"A1"为0
5、WINCC是7.5版本

chatGPT_小智 发表于 2023-3-20 11:54:04

以下是符合要求的WINCC VBS脚本：

```vbscript
Sub Button1_OnClick()
    \'弹窗确认
    If MsgBox(\"是否触发动作？\", vbOKCancel, \"确认\") <> vbOK Then
      Exit Sub
    End If
   
    \'读取A1变量
    Dim A1
    A1 = ReadSymbol(\"A1\")
   
    \'判断按钮动作并修改A1变量值
    If A1 = 1 Then
      A1 = 0
    Else
      A1 = 1
    End If
   
    \'写入A1变量
    WriteSymbol \"A1\", A1
   
End Sub
```

将以上代码复制到按钮组态事件的VB脚本编辑框内，即可完成脚本编写。请注意，此脚本仅适用于WINCC 7.5版本。

搞程序 发表于 2023-3-20 12:06:00

帮我写一个西门子WINCC VBS脚本，要求如下：
1、在按钮组态事件中，鼠标动作触发
2、读取二进制内部变量"A1"
3、当按钮有动作时，弹窗确认，是的话，变量"A1"为1
4、当按钮再次有动作时，弹窗确认，是的话，变量"A1"为0
5、WINCC是7.5版本

chatGPT_小智 发表于 2023-3-20 12:06:12

以下是符合要求的WINCC VBS脚本：```vbscriptSub Button1_OnClick()    \\\'读取A1变量    Dim A1    A1 = ReadSymbol(\\\"A1\\\")      \\\'判断按钮动作并修改A1变量值    If A1 = 1 Then      \\\'弹窗确认      If MsgBox(\\\"是否触发动作？\\\", vbOKCancel, \\\"确认\\\") <> vbOK Then            Exit Sub      End If                A1 = 14    Else      \\\'弹窗确认      If MsgBox(\\\"是否触发动作？\\\", vbOKCancel, \\\"确认\\\") <> vbOK Then            Exit Sub      End If                A1 = 5    End If      \\\'写入A1变量    WriteSymbol \\\"A1\\\", A1End Sub```将以上代码复制到按钮组态事件的VB脚本编辑框内，即可完成脚本编写。请注意，此脚本仅适用于WINCC 7.5版本。

搞程序 发表于 2023-3-20 12:08:43


帮我写一个西门子WINCC C脚本，要求如下：
1、在按钮组态事件中，鼠标动作触发
2、读取二进制内部变量"A1"
3、当按钮有动作时，弹窗确认，是的话，变量"A1"为1
4、当按钮再次有动作时，弹窗确认，是的话，变量"A1"为0
5、WINCC是7.5版本

chatGPT_小智 发表于 2023-3-20 12:15:13

以下是符合要求的WINCC C脚本：```cvoid Button1_OnClick() {    \\\'读取A1变量    int A1 = ReadSymbolInt(\\\"A1\\\");      \\\'判断按钮动作并修改A1变量值    if (A1 == 1) {      \\\'弹窗确认      if (MessageBox(\\\"是否触发动作？\\\", \\\"确认\\\", MB_OKCANCEL) != IDOK) {            return;      }                A1 = 14;    }    else {      \\\'弹窗确认      if (MessageBox(\\\"是否触发动作？\\\", \\\"确认\\\", MB_OKCANCEL) != IDOK) {            return;      }                A1 = 5;    }      \\\'写入A1变量    WriteSymbolInt(\\\"A1\\\", A1);} ```将以上代码复制到按钮组态事件的C脚本编辑框内，即可完成脚本编写。请注意，此脚本仅适用于WINCC 7.5版本。

搞程序 发表于 2023-3-27 12:26:59

帮我写一个西门子WINCC VBS脚本，要求如下：
1、在按钮组态事件中，鼠标动作触发
2、当按钮有动作时，打开C盘根目录"data.txt"文本
3、WINCC是7.5版本

chatGPT_小智 发表于 2023-3-27 12:27:12

以下是符合要求的WINCC VBS脚本：
Button1_OnClick()    \\\\\\\'打开文件    Dim fso    Set fso = CreateObject(\\\\\\\"Scripting.FileSystemObject\\\\\\\")    Dim file    Set file = fso.OpenTextFile(\\\\\\\"C:\\\\\\\\data.txt\\\\\\\", 1)      file.Close    Set file = Nothing    Set fso = NothingEnd Sub
将以上代码复制到按钮组态事件的VB脚本编辑框内，即可完成脚本编写。请注意，此脚本仅适用于WINCC 7.5版本。此脚本会打开C盘根目录下的\"data.txt\"文本文件。

搞程序 发表于 2023-3-27 12:54:00

帮我写一个西门子WINCC VBS脚本，要求如下：
1、在按钮组态事件中，鼠标动作触发
2、鼠标单击按钮时，打开D盘根目录下"data.txt"文本
3、WINCC是7.5版本

chatGPT_小智 发表于 2023-3-27 12:54:14

以下是符合要求的WINCC VBS脚本：
Button1_OnClick()    \\\\\\\'打开文件    Dim fso    Set fso = CreateObject(\\\\\\\"Scripting.FileSystemObject\\\\\\\")    Dim file    Set file = fso.OpenTextFile(\\\\\\\"D:\\\\\\\\data.txt\\\\\\\", 1)      file.Close    Set file = Nothing    Set fso = NothingEnd Sub
将以上代码复制到按钮组态事件的VB脚本编辑框内，即可完成脚本编写。请注意，此脚本仅适用于WINCC 7.5版本。此脚本会打开D盘根目录下的\\\"data.txt\\\"文本文件。
页: [1] 2
查看完整版本: 帮我写一个西门子WINCC VBS脚本，要求如下