易语言如何设置时间提示?
提问:易语言如何设置时间提示?
我现在已经调用了系统时间,想要设置等到某个时间点就弹出一条信息框提示!
网友回答:
代码如下:
---------------------------------------
.版本 2
.子程序 是否超时, 逻辑型
.参数 超时时间, 日期时间型
.局部变量 被对比时间, 日期时间型
.局部变量 间隔1, 整数型
.局部变量
间隔2, 整数型
被对比时间 = 取现行时间 ()
.如果真 (取小时 (取现行时间 ()) = 取小时 (超时时间))
.如果真 (取分钟
(取现行时间 ()) = 取分钟 (超时时间))
间隔1 = 取时间间隔 (超时时间, 被对比时间, #分钟)
.如果 (间隔1 ≤ 0)
返回 (真)
.否则
返回 (假)
.如果结束
.如果真结束
.如果真结束
返回 (假)
---------------------------------------
代码示例:
---------------------------------------
.版本 2
.子程序 _时钟1_周期事件
.如果真 (是否超时 ([1970年1月1日20时20分20秒]) = 真) ' 如果到了或超过20时20分20秒则为真
' 年月日秒不用管
信息框 (“已到或已超过时间”, 0, , )
---------------------------------------