定时启动子程序

jacket12 · 发表于 2024-12-2 02:24:54

多个子程序已经在执行中，特殊子程序是定时启动的当到了12点执行特殊子程序，让其他程序暂停。在特殊程序后继续执行其他程序。

该如何写？请大佬提供一下案例

a45167039 · 发表于 2024-12-2 02:24:55

窗口程序集名	保留	保留	备注
窗口程序集_启动窗口
变量名	类型	数组	备注
句柄	整数型

子程序名	返回值类型	公开	备注
__启动窗口_创建完毕

句柄＝线程_启动 (&子程序1, , )

子程序名	返回值类型	公开	备注
子程序1

变量名	类型	静态	数组	备注
i	整数型

判断循环首 (真)

i ＝ i ＋ 1

调试输出 (i)

程序_延时 (1000)

判断循环尾 ()

子程序名	返回值类型	公开	备注
_时钟1_周期事件

变量名	类型	静态	数组	备注
时	整数型
分	整数型
秒	整数型
时间	日期时间型

时间＝取现行时间 ()
时＝取小时 (时间)
分＝取分钟 (时间)
秒＝取秒 (时间)

如果真 (时＝ 0 且分＝ 3 且秒＝ 1)

线程_启动 (&特殊子程序)

子程序名	返回值类型	公开	备注
特殊子程序

变量名	类型	静态	数组	备注
i	整数型

线程_挂起 (句柄)

计次循环首 (10, i)

调试输出 (“特殊”, i)

程序_延时 (1000)

计次循环尾 ()
线程_恢复 (句柄)

i支持库列表	支持库注释
spec	特殊功能支持库

补充内容 (2024-12-2 02:48):
时钟周期1000毫秒
时钟里的如果真 (时＝ 0 且分＝ 3 且秒＝ 1) 改成如果真 (时＝ 12 且分＝ 0 且秒＝ 1)
就是中午12点0分1秒的时候执行

hongqingfeng · 发表于 2024-12-2 02:33:32

在易语言中实现类似的功能，你需要使用多线程以及定时器组件。易语言本身对多线程的支持有限，但你可以使用“线程”和“定时器”控件来实现这一需求。

以下是一个简单的易语言示例，展示如何在12点时暂停其他线程并执行特殊子程序，然后继续执行其他线程：

步骤 1: 创建新程序
1.打开易语言开发环境。
2.创建一个新程序。
步骤 2: 添加控件
1.在窗体上添加一个“定时器”控件（命名为Timer1）。
2.在代码中添加必要的变量和子程序。
步骤 3: 编写代码
.版本 2

.子程序 _启动子程序
.局部变量线程句柄, 整数型
.局部变量特殊任务触发时间, 文本型

' 创建并启动其他线程（示例中创建了三个线程）
线程句柄 = 线程_创建(地址of 其他任务1)
线程_启动(线程句柄)

线程句柄 = 线程_创建(地址of 其他任务2)
线程_启动(线程句柄)

线理句柄 = 线程_创建(地址of 其他任务3)
线程_启动(线程句柄)

' 设置特殊任务触发时间
特殊任务触发时间 = "12:00"

' 启动定时器，每分钟检查一次时间
定时器1.时钟周期 = 60000 ' 1分钟
定时器1.启用 = 真

.子程序 _定时器1_时钟
.局部变量当前时间, 文本型

' 获取当前时间
当前时间 = 时间_到文本(取系统时间())

' 检查是否到了特殊任务触发时间
如果 (当前时间 = 特殊任务触发时间) 则
      ' 暂停所有其他线程
      线程_暂停(线程句柄1)
      线程_暂停(线程句柄2)
      线程_暂停(线程句柄3)

      ' 执行特殊任务
      特殊任务()

      ' 恢复所有其他线程
      线程_恢复(线程句柄1)
      线程_恢复(线程句柄2)
      线程_恢复(线程句柄3)

      ' 重置特殊任务触发时间（可选）
      特殊任务触发时间 = 格式时间(取系统时间(), "hh:mm") + ":00"
结束如果

.子程序其他任务1
.局部变量计数器, 整数型
计数器 = 0
.循环
      输出文本 (“其他任务1运行中...” + 转文本(计数器))
      计数器 = 计数器 + 1
      处理事件 ()
.否则如果 (线程_已暂停())
      线程_等待()
.结束循环

' 其他任务2和任务3的定义类似，只是输出文本不同

.子程序特殊任务
输出文本 (“特殊任务运行中...”)
处理事件 ()
注意事项
1.线程句柄：在实际代码中，你需要保存每个线程的句柄，以便能够暂停和恢复它们。
2.定时器精度：易语言的定时器精度可能有限，确保定时器的时钟周期设置合理。
3.错误处理：添加必要的错误处理代码，以应对可能的异常情况。
4.线程安全：在多线程环境中，确保对共享资源的访问是线程安全的。
调试与测试
1.编译并运行程序。
2.观察输出窗口，确保其他任务在12点时暂停，特殊任务执行完毕后继续。
请根据实际需求调整代码，并确保在调试过程中逐步验证每个功能模块的正确性

石榴熟了 · 发表于 2024-12-2 02:45:31

呵呵仙_多线程式时钟1.1
https://bbs.125.la/forum.php?mod=viewthread&tid=14125060
(出处: 精易论坛)

筱松学习 · 发表于 2024-12-2 12:06:52

可以用多线程，当特殊子程序执行的时候自动结束其他线程，如果想让多个子程序都执行完毕再暂停的话可以加一些参数的判断

		自动登录	找回密码
密码			注册

[已解决] 定时启动子程序

最佳答案