定时问题

j104l

请教下大佬们，我用无限循环判断定时，这没问题，然后我想过了这个时间停止，第二天到时间开始怎么写，还有就是运行久了崩溃是哪有问题（可能不到几小时）

  

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

启动线程 (&子程序1, , )

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

变量名	类 型	静态	数组	备 注
s	整数型
f	整数型
m	整数型

判断循环首 (真)
s ＝ 取小时 (取现行时间 ())
f ＝ 取分钟 (取现行时间 ())
m ＝ 取秒 (取现行时间 ())
判断 (s ＝ 10 且 f ＝ 10 且 m ＝ 10)
任务1 ()

判断 (s ＝ 12 且 f ＝ 12 且 m ＝ 12)
任务2 ()



程序_延时 (1000)
判断循环尾 ()

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

调试输出 (1111)

子程序名	返回值类型	公开	备 注
任务2

调试输出 (2222)

i支持库列表	支持库注释
EThread	多线程支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 EThread<br /> .支持库 spec<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 启动线程 (&子程序1, , )<br /> <br /> .子程序 子程序1<br /> .局部变量 s, 整数型<br /> .局部变量 f, 整数型<br /> .局部变量 m, 整数型<br /> <br /> .判断循环首 (真)<br />     s ＝ 取小时 (取现行时间 ())<br />     f ＝ 取分钟 (取现行时间 ())<br />     m ＝ 取秒 (取现行时间 ())<br /> <br />     .判断开始 (s ＝ 10 且 f ＝ 10 且 m ＝ 10)<br />         任务1 ()<br /> <br />     .判断 (s ＝ 12 且 f ＝ 12 且 m ＝ 12)<br />         任务2 ()<br />     .默认<br /> <br />     .判断结束<br /> <br />     程序_延时 (1000)<br /> <br /> .判断循环尾 ()<br /> <br /> .子程序 任务1<br /> <br /> 调试输出 (1111)<br /> <br /> .子程序 任务2<br /> <br /> 调试输出 (2222)

LEOONL

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
停止	逻辑型

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

启动线程 (&子程序1, , )

子程序名	返回值类型	公开	备 注
_按钮1_被单击

停止 ＝ 真

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

变量名	类 型	静态	数组	备 注
s	整数型
f	整数型
m	整数型

判断循环首 (真)
s ＝ 取小时 (取现行时间 ())
f ＝ 取分钟 (取现行时间 ())
m ＝ 取秒 (取现行时间 ())
如果真 (停止 ＝ 假)
判断 (s ＝ 10 且 f ＝ 10 且 m ＝ 10)
任务1 ()

判断 (s ＝ 12 且 f ＝ 12 且 m ＝ 12)
任务2 ()




判断 (s ＝ 0 且 f ＝ 0 且 m ＝ 0)
停止 ＝ 假



程序_延时 (1000)
判断循环尾 ()

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

调试输出 (1111)

子程序名	返回值类型	公开	备 注
任务2

调试输出 (2222)

i支持库列表	支持库注释
EThread	多线程支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 EThread<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 停止, 逻辑型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 启动线程 (&子程序1, , )<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 停止 ＝ 真<br /> <br /> .子程序 子程序1<br /> .局部变量 s, 整数型<br /> .局部变量 f, 整数型<br /> .局部变量 m, 整数型<br /> <br /> .判断循环首 (真)<br />     s ＝ 取小时 (取现行时间 ())<br />     f ＝ 取分钟 (取现行时间 ())<br />     m ＝ 取秒 (取现行时间 ())<br /> <br />     .如果真 (停止 ＝ 假)<br />         .判断开始 (s ＝ 10 且 f ＝ 10 且 m ＝ 10)<br />             任务1 ()<br /> <br />         .判断 (s ＝ 12 且 f ＝ 12 且 m ＝ 12)<br />             任务2 ()<br />         .默认<br /> <br />         .判断结束<br /> <br />     .如果真结束<br /> <br />     .判断开始 (s ＝ 0 且 f ＝ 0 且 m ＝ 0)<br />         停止 ＝ 假<br />     .默认<br /> <br />     .判断结束<br /> <br /> <br /> <br /> <br />     程序_延时 (1000)<br /> <br /> .判断循环尾 ()<br /> <br /> .子程序 任务1<br /> <br /> 调试输出 (1111)<br /> <br /> .子程序 任务2<br /> <br /> 调试输出 (2222)

LEOONL

  

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

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

启动线程 (&子程序1, , )

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

变量名	类 型	静态	数组	备 注
s	整数型
f	整数型
m	整数型

判断循环首 (真)
s ＝ 取小时 (取现行时间 ())
f ＝ 取分钟 (取现行时间 ())
m ＝ 取秒 (取现行时间 ())
判断 (s ＝ 10 且 f ＝ 10 且 m ＝ 10)
任务1 ()

判断 (s ＝ 12 且 f ＝ 12 且 m ＝ 12)
任务2 ()



判断 (s ＝ 13 且 f ＝ 12 且 m ＝ 12)
停止 ＝ 停止 ＋ 1


如果 (停止 ＝ 1)
判断 (s ＝ 0 且 f ＝ 0 且 m ＝ 0)
开始（）






程序_延时 (1000)
判断循环尾 ()

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

调试输出 (1111)

子程序名	返回值类型	公开	备 注
任务2

调试输出 (2222)

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 停止, 整数型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 启动线程 (&子程序1, , )<br /> <br /> .子程序 子程序1<br /> .局部变量 s, 整数型<br /> .局部变量 f, 整数型<br /> .局部变量 m, 整数型<br /> <br /> .判断循环首 (真)<br />     s ＝ 取小时 (取现行时间 ())<br />     f ＝ 取分钟 (取现行时间 ())<br />     m ＝ 取秒 (取现行时间 ())<br /> <br />     .判断开始 (s ＝ 10 且 f ＝ 10 且 m ＝ 10)<br />         任务1 ()<br /> <br />     .判断 (s ＝ 12 且 f ＝ 12 且 m ＝ 12)<br />         任务2 ()<br />     .默认<br /> <br />     .判断结束<br /> <br />     .判断开始 (s ＝ 13 且 f ＝ 12 且 m ＝ 12)<br />         停止 ＝ 停止 ＋ 1<br />     .默认<br /> <br />     .判断结束<br />     .如果 (停止 ＝ 1)<br />         .判断开始 (s ＝ 0 且 f ＝ 0 且 m ＝ 0)<br />             开始（）<br />         .默认<br /> <br />         .判断结束<br /> <br />     .否则<br /> <br />     .如果结束<br /> <br /> <br />     程序_延时 (1000)<br /> <br /> .判断循环尾 ()<br /> <br /> .子程序 任务1<br /> <br /> 调试输出 (1111)<br /> <br /> .子程序 任务2<br /> <br /> 调试输出 (2222)

就凭这些代码应该不至于崩溃，是不是有其他代码原因

易造轮

  

子程序名	返回值类型	公开	备 注
任务台循环体_定时执行任务

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

' 首次运行等待：
如果真 (g_Event_循环定时任务.等待超时 ( #间隔毫秒_30秒 ) ＝ 假)  ' 让任务回归0毫秒开始
输出调试文本 (取程序名称 (1) ＋ “|线程退出”)
返回 ()  ' 首次等待跳出
' 循环体执行任务：
循环判断首 ()
取时间信息_ASM (取现行时间_毫秒_ASM (), , , , , 分, 秒)
如果真 (分 ＝ 0 且 秒 ＝ 0)
XXX ()
如果真 ( (秒 ＝ 10 或 秒 ＝ 40) 且 分 ＝ 29)
XXX ()
如果真 (秒 ＝ 0 且 分 ＝ 30)
XXX ()

循环判断尾 (g_Event_循环定时任务.等待超时 ( #间隔毫秒_1秒 ))
g_日志框.输出 (取程序名称 (1) ＋ “|线程退出”, , 真)

.版本 2<br /> <br /> .子程序 任务台循环体_定时执行任务<br /> .局部变量 秒, 整数型<br /> .局部变量 分, 整数型<br /> <br /> ' 首次运行等待：<br /> .如果真 (g_Event_循环定时任务.等待超时 (#间隔毫秒_30秒) ＝ 假)  ' 让任务回归0毫秒开始<br />     输出调试文本 (取程序名称 (1) ＋ “|线程退出”)<br />     返回 ()  ' 首次等待跳出<br /> .如果真结束<br /> ' 循环体执行任务：<br /> .循环判断首 ()<br />     取时间信息_ASM (取现行时间_毫秒_ASM (), , , , , 分, 秒)<br />     .如果真 (分 ＝ 0 且 秒 ＝ 0)<br />         XXX ()<br />     .如果真结束<br />     .如果真 ((秒 ＝ 10 或 秒 ＝ 40) 且 分 ＝ 29)<br />         XXX ()<br />     .如果真结束<br />     .如果真 (秒 ＝ 0 且 分 ＝ 30)<br />         XXX ()<br />     .如果真结束<br /> <br /> .循环判断尾 (g_Event_循环定时任务.等待超时 (#间隔毫秒_1秒))<br /> g_日志框.输出 (取程序名称 (1) ＋ “|线程退出”, , 真)

j104l

LEOONL 发表于 2024-7-29 19:27
[e=0].版本 2
.支持库 EThread
.支持库 spec

这如果是14点开始的就不会运行了吧

j104l

易造轮 发表于 2024-7-29 19:37
[e=0].版本 2

.子程序 任务台循环体_定时执行任务

这好像我用不了

LEOONL

j104l 发表于 2024-7-29 21:11
这如果是14点开始的就不会运行了吧

判断 (s ＝ 0 且 f ＝ 0 且 m ＝ 0)
停止 ＝ 假

这句就是判断0点可以开始执行的意思，开始时间你自己定啊

j104l

LEOONL 发表于 2024-7-29 21:15
判断 (s ＝ 0 且 f ＝ 0 且 m ＝ 0)
停止 ＝ 假

哦哦，大概就是我程序开始给他一个变量就开始，过了时间在给一个变量停止对吧

LEOONL

j104l 发表于 2024-7-29 21:21
哦哦，大概就是我程序开始给他一个变量就开始，过了时间在给一个变量停止对吧 ...

你可以再写一个判断时间停止=真   运行你任务的逻辑就是判断停止=假， 设置一个判断时间然后停止=假就可以正常开始了

j104l

LEOONL 发表于 2024-7-29 21:23
你可以再写一个判断时间停止=真   运行你任务的逻辑就是判断停止=假， 设置一个判断时间然后停止=假就可 ...

好的，感谢大佬