最新提现记录

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

vb

[复制链接]
查看4647 | 回复23 | 2023-5-22 14:31:02 | 显示全部楼层 |阅读模式
我有五个方案,要每五分钟换一个方案来运行,运行到第五个结束自动停止,vb脚本
回复

使用道具 举报

chatGPT_小控 | 2023-5-22 14:31:17 | 显示全部楼层
下面是一个简单的VB脚本示例,用于按照要求每五分钟运行不同的程序,总共运行五个程序。
  1. Dim i
  2. For i = 1 To 5
  3.     '根据i的值选择要运行的程序'
  4.     Select Case i
  5.         Case 1
  6.             '运行第一个程序的代码'
  7.             WScript.Echo "Running Program 1"
  8.         Case 2
  9.             '运行第二个程序的代码'
  10.             WScript.Echo "Running Program 2"
  11.         Case 3
  12.             '运行第三个程序的代码'
  13.             WScript.Echo "Running Program 3"
  14.         Case 4
  15.             '运行第四个程序的代码'
  16.             WScript.Echo "Running Program 4"
  17.         Case 5
  18.             '运行第五个程序的代码'
  19.             WScript.Echo "Running Program 5"
  20.     End Select
  21.     '每次运行完成后等待300秒'
  22.     WScript.Sleep(300000)
  23. Next
  24. '运行完毕,输出结束消息'
  25. WScript.Echo "All programs have been run."
复制代码

此脚本使用了一个循环来运行五个不同的程序,每次运行一个后等待300秒,然后继续运行下一个。当循环完成后,输出一个结束消息。你可以根据自己的需要修改程序的名称和运行方式。
回复

使用道具 举报

cmt | 2023-6-2 14:55:18 | 显示全部楼层
chatGPT_小控 发表于 2023-5-22 14:31
下面是一个简单的VB脚本示例,用于按照要求每五分钟运行不同的程序,总共运行五个程序。

用if语句怎么写
回复

使用道具 举报

chatGPT_小控 | 2023-6-2 14:55:45 | 显示全部楼层
cmt 发表于 2023-06-02 14:55
用if语句怎么写

使用if语句编写类似的程序会有更多的代码和复杂的逻辑,但也可以实现。下面是一个使用if语句的VB脚本示例:Dim iFor i = 1 To 5    If i = 1 Then        '运行第一个程序的代码'        WScript.Echo "Running Program 1"    ElseIf i = 2 Then        '运行第二个程序的代码'        WScript.Echo "Running Program 2"    ElseIf i = 3 Then        '运行第三个程序的代码'        WScript.Echo "Running Program 3"    ElseIf i = 4 Then        '运行第四个程序的代码'        WScript.Echo "Running Program 4"    ElseIf i = 5 Then        '运行第五个程序的代码'        WScript.Echo "Running Program 5"    End If    '每次运行完成后等待300秒'    WScript.Sleep(300000)Next'运行完毕,输出结束消息'WScript.Echo "All programs have been run."此脚本与前面的示例相比,使用了更多的代码和更复杂的逻辑来实现同样的结果。在if语句中,我们需要检查i的值是否等于1、2、3、4或5,并相应地运行不同的程序。同样,你可以根据自己的需要修改程序的名称和运行方式。
回复

使用道具 举报

cmt | 2023-6-2 15:07:58 | 显示全部楼层
chatGPT_小控 发表于 2023-6-2 14:55
使用if语句编写类似的程序会有更多的代码和复杂的逻辑,但也可以实现。下面是一个使用if语句的VB脚本示例 ...

每秒钟更新一下
回复

使用道具 举报

chatGPT_小控 | 2023-6-2 15:08:20 | 显示全部楼层
cmt 发表于 2023-06-02 15:07
每秒钟更新一下

你可以将代码中的`WScript.Sleep(300000)`改为`WScript.Sleep(1000)`,这样程序每秒钟就会更新一次:Dim iFor i = 1 To 5    If i = 1 Then        '运行第一个程序的代码'        WScript.Echo "Running Program 1"    ElseIf i = 2 Then        '运行第二个程序的代码'        WScript.Echo "Running Program 2"    ElseIf i = 3 Then        '运行第三个程序的代码'        WScript.Echo "Running Program 3"    ElseIf i = 4 Then        '运行第四个程序的代码'        WScript.Echo "Running Program 4"    ElseIf i = 5 Then        '运行第五个程序的代码'        WScript.Echo "Running Program 5"    End If    '每次运行完成后等待1秒'    WScript.Sleep(1000)Next'运行完毕,输出结束消息'WScript.Echo "All programs have been run."注意,如果你想无限地运行程序直到手动结束,可以将循环条件更改为`Do While True`,并在程序完成后添加`Loop`语句。例如:Do While True    '运行程序的代码'    If i = 5 Then        Exit Do '如果程序运行了五次,退出循环'    End If    WScript.Sleep(1000)Loop
回复

使用道具 举报

cmt | 2023-6-2 15:45:30 | 显示全部楼层
chatGPT_小控 发表于 2023-6-2 15:08
你可以将代码中的`WScript.Sleep(300000)`改为`WScript.Sleep(1000)`,这样程序每秒钟就会更新一次:Dim  ...

如果在wincc里用vbs脚本怎么写
回复

使用道具 举报

chatGPT_小控 | 2023-6-2 15:46:16 | 显示全部楼层
cmt 发表于 2023-06-02 15:45
如果在wincc里用vbs脚本怎么写

在WinCC中使用VBScript脚本的语法和VBScript在Windows操作系统中的使用方式基本相同。下面是一个在WinCC中使用VBScript脚本的示例,该示例可以实现你想要的每五分钟运行一个程序,总共运行五个程序的功能。

首先,需要在WinCC中创建一个VBScript脚本对象。步骤如下:

1. 打开WinCC项目编辑器。

2. 在左侧的“工具箱”窗口中,选择“VBScript 对象”。

3. 在工作区中拖动VBScript对象到图形界面上。

4. 双击VBScript对象,打开脚本编辑器。

5. 在编辑器中输入以下代码:
  1. Dim i
  2. For i = 1 To 5
  3.     Select Case i
  4.         Case 1
  5.             '运行第一个程序的代码'
  6.             WinCC.MsgBox "Running Program 1"
  7.         Case 2
  8.             '运行第二个程序的代码'
  9.             WinCC.MsgBox "Running Program 2"
  10.         Case 3
  11.             '运行第三个程序的代码'
  12.             WinCC.MsgBox "Running Program 3"
  13.         Case 4
  14.             '运行第四个程序的代码'
  15.             WinCC.MsgBox "Running Program 4"
  16.         Case 5
  17.             '运行第五个程序的代码'
  18.             WinCC.MsgBox "Running Program 5"
  19.     End Select
  20.     '每次运行完成后等待300秒'
  21.     WinCC.Sleep(300000)
  22. Next
  23. '运行完毕,输出结束消息'
  24. WinCC.MsgBox "All programs have been run."
复制代码

6. 保存脚本并关闭编辑器。

7. 在WinCC项目中添加一个按钮或者其他触发物,双击该触发物,在“动作”选项卡中选择刚才创建的VBScript对象。这样,当点击该按钮或者触发物时,就会触发VBScript脚本。

总之,在WinCC中使用VBScript脚本只需要遵循VBScript的语法规则,并将所有的输出和等待命令替换为WinCC的相应命令即可。
回复

使用道具 举报

cmt | 2023-6-2 15:49:48 | 显示全部楼层
chatGPT_小控 发表于 2023-6-2 15:46
在WinCC中使用VBScript脚本的语法和VBScript在Windows操作系统中的使用方式基本相同。下面是一个在WinCC ...

这五分钟内,数据一直在变怎么写
回复

使用道具 举报

chatGPT_小控 | 2023-6-2 15:50:20 | 显示全部楼层
cmt 发表于 2023-06-02 15:49
这五分钟内,数据一直在变怎么写

如果在这五分钟内数据会一直变化,可以在每次运行程序之前读取最新的数据,并在程序中使用读取到的数据。以下是一个示例代码,演示如何在VBScript脚本中读取PLC数据并在程序中使用:Dim i, dataFor i = 1 To 5    data = ReadPlcData()   '读取PLC数据'    Select Case i        Case 1            '使用读取到的数据运行第一个程序的代码'            WinCC.MsgBox "Running Program 1 with data: " & data        Case 2            '使用读取到的数据运行第二个程序的代码'            WinCC.MsgBox "Running Program 2 with data: " & data        Case 3            '使用读取到的数据运行第三个程序的代码'            WinCC.MsgBox "Running Program 3 with data: " & data        Case 4            '使用读取到的数据运行第四个程序的代码'            WinCC.MsgBox "Running Program 4 with data: " & data        Case 5            '使用读取到的数据运行第五个程序的代码'            WinCC.MsgBox "Running Program 5 with data: " & data    End Select    '每次运行完成后等待300秒'    WinCC.Sleep(300000)Next'运行完毕,输出结束消息'WinCC.MsgBox "All programs have been run."Function ReadPlcData()    '读取PLC数据'End Function在上述代码中,ReadPlcData为自定义函数,用于读取PLC数据。你需要根据你所使用的PLC类型和通信方式来编写这个函数。每次循环都会调用该函数读取最新的PLC数据,并将其传递给运行的程序。根据你的实际情况,你需要在合适的位置添加对PLC数据的读取操作。
回复

使用道具 举报

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

本版积分规则