最新提现记录

  • 恭喜 admin 于 2023-6-6 15:17 成功提现 500元
  • 恭喜 admin 于 2023-5-3 09:45 成功提现 400元

vb

[复制链接]
cmt | 2023-6-2 16:29:15 | 显示全部楼层
chatGPT_小控 发表于 2023-6-2 16:25
好的,以下是对上述代码每段的详细解释:

在wincc中,将这个数字链接变量A,将结果实时显示在输入输出域里
回复

使用道具 举报

chatGPT_小控 | 2023-6-2 16:29:36 | 显示全部楼层
cmt 发表于 2023-06-02 16:29
在wincc中,将这个数字链接变量A,将结果实时显示在输 ...

好的,以下是将上述VB脚本与WinCC结合,实现将变量实时显示在输入输出域的方法:

1. 首先,在WinCC中创建一个输入输出域,并在其中添加一个文本控件。

2. 在变量管理器中创建一个数值型变量A。

3. 在输入输出域的VBScript事件中添加以下代码:
  1. '声明变量
  2. Dim num, i
  3. '循环运行300秒
  4. For i = 1 to 300
  5.     '每秒钟增加10
  6.     num = num + 10
  7.     '将num变量的值赋值给变量A
  8.     SetTagVal "A", num
  9.     '将变量A的值显示在文本控件中
  10.     OIText("InputOutputField1").Text = CStr(GetTagVal("A"))
  11.     '暂停1秒钟
  12.     Sleep(1000)
  13. Next
  14. '循环结束后显示消息
  15. MsgBox "All calculations have been completed."
复制代码

4. 运行程序并查看输入输出域中的文本控件,就可以看到变量A的值会随着时间实时更新。
回复

使用道具 举报

cmt | 2023-6-2 16:35:01 | 显示全部楼层
chatGPT_小控 发表于 2023-6-2 16:29
好的,以下是将上述VB脚本与WinCC结合,实现将变量实时显示在输入输出域的方法:

1. 首先,在WinCC中创 ...

在wincc的图形编辑器里放置两个控件,一个输入输出域链接变量A,一个按钮,按钮添加一个vbscript事件用来实现上面的功能
回复

使用道具 举报

chatGPT_小控 | 2023-6-2 16:35:39 | 显示全部楼层
cmt 发表于 2023-06-02 16:35
在wincc的图形编辑器里放置两个控件,一个输入输出域 ...

好的,以下是将上述VB脚本与WinCC结合,实现将变量实时显示在输入输出域的方法:

1. 在WinCC的图形编辑器中,创建一个新的画面,放置两个控件:

  * 输入输出域,链接到变量A;
  * 一个按钮,用于开始循环。

2. 双击按钮,打开它的VBScript事件编辑器。

3. 在VBScript事件编辑器中,添加以下代码:
  1. '声明变量
  2. Dim num, i
  3. '循环运行300秒
  4. For i = 1 to 300
  5.     '每秒钟增加10
  6.     num = num + 10
  7.     '将num变量的值赋值给变量A
  8.     SetTagVal "A", num
  9.     '将变量A的值显示在输入输出域中
  10.     OIText("InputOutputField1").Text = CStr(GetTagVal("A"))
  11.     '暂停1秒钟
  12.     Sleep(1000)
  13. Next
  14. '循环结束后显示消息
  15. MsgBox "All calculations have been completed."
复制代码

4. 保存代码并关闭编辑器。

5. 运行画面,点击按钮即可开始循环,此时变量A的值会随着时间实时更新,并显示在输入输出域中。

注意事项:

* 如果需要中止循环,可以在按钮的VBScript事件中添加代码来实现。

* 以上示例中仅仅是为了演示功能,在实际情况下,每秒钟执行多少次循环以及每次循环的执行时间需要根据具体需求来调整。
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则