最简单的定时启动源码

基纽

  

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

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

信息框 (“时间到”, 0, “1”, )

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

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

时间 ＝ 取现行时间 ()
调试输出 (时间)
时 ＝ 到文本 (取小时 (时间))
分 ＝ 到文本 (取分钟 (时间))
秒 ＝ 到文本 (取秒 (时间))
判断循环首 (真)
如果真 (时 ＝ (可自行编辑，可以固定可以用编辑框代替) 且 分 ＝ (可自行编辑，可以固定可以用编辑框代替) 且 秒 ＝ (可自行编辑，可以固定可以用编辑框代替))
跳出循环 ()
程序_延时 (500)
判断循环尾 ()
启动线程 (&子程序1, , )

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

.版本 2<br /> .支持库 spec<br /> .支持库 EThread<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> <br /> <br /> .子程序 子程序1<br /> <br /> 信息框 (“时间到”, 0, “1”, )<br /> <br /> <br /> .子程序 _时钟1_周期事件<br /> .局部变量 时间, 日期时间型<br /> .局部变量 时, 文本型<br /> .局部变量 分, 文本型<br /> .局部变量 秒, 文本型<br /> <br /> 时间 ＝ 取现行时间 ()<br /> 调试输出 (时间)<br /> 时 ＝ 到文本 (取小时 (时间))<br /> 分 ＝ 到文本 (取分钟 (时间))<br /> 秒 ＝ 到文本 (取秒 (时间))<br /> .判断循环首 (真)<br />     .如果真 (时 ＝(可自行编辑，可以固定可以用编辑框代替) 且 分 ＝ (可自行编辑，可以固定可以用编辑框代替) 且 秒 ＝ (可自行编辑，可以固定可以用编辑框代替))<br /> <br />         跳出循环 ()<br />     .如果真结束<br />     程序_延时 (500)<br /> .判断循环尾 ()<br /> <br /> 启动线程 (&子程序1, , )

Viost丿西风

不知道...

基纽

呓语丶 发表于 2026-2-12 21:02
这个时钟属实是应该在车底,不应该在车里

这个定时还是需要优化，长时间运行会出现卡死的情况，用不上这玩意也就凑合看吧哈哈

呓语丶

这个时钟属实是应该在车底,不应该在车里

基纽

TEX 发表于 2026-2-12 19:24
你这代码太亏贼了

好用就行哈哈，可以套多线程用，代码越简单越好啊，总比占用一堆代码能用的没几条，反正目的就是定时启动，还可以定时关闭上个线程启动新的线程，多好

TEX

你这代码太亏贼了