易语言取一个整点报时(具体需求在下面很详细)

曼巴精神8

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

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

判断循环首 (真)
程序_延时 (10000)
如果真 ()  ' 满足我的判定条件了
' 获取当前时间  比如是  15:14:26   当走到整点后 也就是 16:00:00  在加一个小时  17:00:00
' 那么我需要让程序在  17:00:00  又因为上面的  程序_延时 (10000)  有误差  所以在 17:00:00 ~ 17:01:00  之间  调试输出("111")

判断循环尾 ()

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> .判断循环首 (真)<br />     程序_延时 (10000)<br /> <br />     .如果真 ()  ' 满足我的判定条件了<br />         ' 获取当前时间  比如是  15:14:26   当走到整点后 也就是 16:00:00  在加一个小时  17:00:00<br />         ' 那么我需要让程序在  17:00:00  又因为上面的  程序_延时 (10000)  有误差  所以在 17:00:00 ~ 17:01:00  之间  调试输出("111")<br /> <br />     .如果真结束<br /> <br /> <br /> .判断循环尾 ()

山猫啊

新建 易程序.e (957.72 KB, 下载次数: 0)

2025-5-17 15:57 上传

点击文件名下载附件

易肆玖

api简单实现

曼巴精神8

易肆玖 发表于 2025-5-17 16:31
api简单实现

show me your code

zainex

用 增减时间 ，直接加小时的话，会出现23点加到25点：

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

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

变量名	类 型	静态	数组	备 注
退出	逻辑型
判定条件	逻辑型
现行时间	日期时间型
目标时间	日期时间型
初始化	逻辑型
已执行	逻辑型

判定条件 ＝ 真
判断循环首 (退出 ＝ 假)
程序_延时 (10000)
如果真 (判定条件 ＝ 真)
现行时间 ＝ 取现行时间 ()
如果真 (初始化 ＝ 假)
初始化 ＝ 真
现行时间 ＝ 增减时间 (现行时间, #秒, ���取秒 (现行时间))
现行时间 ＝ 增减时间 (现行时间, #分钟, ���取分钟 (现行时间))
目标时间 ＝ 增减时间 (现行时间, #小时, 2)
目标时间 ＝ 增减时间 (目标时间, #分钟, 1)
调试输出 (现行时间, 目标时间)
如果真 (已执行 ＝ 假 且 现行时间 ≥ 目标时间 且 现行时间 ≤ 增减时间 (目标时间, #分钟, 1))
已执行 ＝ 真
调试输出 (“到点了”)


判断循环尾 ()

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

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 退出, 逻辑型<br /> .局部变量 判定条件, 逻辑型<br /> .局部变量 现行时间, 日期时间型<br /> .局部变量 目标时间, 日期时间型<br /> .局部变量 初始化, 逻辑型<br /> .局部变量 已执行, 逻辑型<br /> <br /> 判定条件 ＝ 真<br /> .判断循环首 (退出 ＝ 假)<br />     程序_延时 (10000)<br />     .如果真 (判定条件 ＝ 真)<br />         现行时间 ＝ 取现行时间 ()<br />         .如果真 (初始化 ＝ 假)<br />             初始化 ＝ 真<br />             现行时间 ＝ 增减时间 (现行时间, #秒, －取秒 (现行时间))<br />             现行时间 ＝ 增减时间 (现行时间, #分钟, －取分钟 (现行时间))<br />             目标时间 ＝ 增减时间 (现行时间, #小时, 2)<br />             目标时间 ＝ 增减时间 (目标时间, #分钟, 1)<br />         .如果真结束<br />         调试输出 (现行时间, 目标时间)<br />         .如果真 (已执行 ＝ 假 且 现行时间 ≥ 目标时间 且 现行时间 ≤ 增减时间 (目标时间, #分钟, 1))<br />             已执行 ＝ 真<br />             调试输出 (“到点了”)<br />         .如果真结束<br /> <br />     .如果真结束<br /> <br /> .判断循环尾 ()