判断现在时间帮忙修改下

3218181

在线等秒最佳

输入一个 时，分，秒，比如：12 时 10 分 40秒
监控打勾以后

在12时 10分 20秒 的时候 就 一直调试输出（“到时间啦！”） ’也就是比你输入的时间早 20秒就调试输出  （ -20）

在12时 11分 00秒 的时候 就停止调试输出  ‘也就是比你输入的时间晚20秒停止  （+20）


下边这个代码  只做到了  输入一个提前的时间 比如 15点40分20秒   然后他确实是提前20秒  在15点40分的时候就调试输出了   但是问题来了 在他 15点40分20秒的时候就停止了  正确的应该在15点40分40秒才停止  

  

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

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

变量名	类 型	静态	数组	备 注
时间格式	文本型

时间格式 ＝ “HH:mm:ss”
日期框1.发送信息 (4101, 0, 取变量数据地址 (时间格式))

子程序名	返回值类型	公开	备 注
_选择框1_被单击

变量名	类 型	静态	数组	备 注
当前时间	日期时间型
目标时间	日期时间型
秒数	双精度小数型

目标时间 ＝ 日期框1.今天
判断循环首 (选择框1.选中 ＝ 真)
当前时间 ＝ 取现行时间 ()
秒数 ＝ 取时间间隔 (当前时间, 目标时间, #秒 )
判断 (秒数 ≥ 20)
选择框1.选中 ＝ 假
跳出循环 ()

判断 (秒数 ≥ -20 且 秒数 ≤ 0)
调试输出 (“到时间啦！”, 当前时间, 目标时间, 秒数)

调试输出 (“当前时间”, 当前时间)

延迟 (1000)
判断循环尾 ()
调试输出 (“已结束”)

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

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 时间格式, 文本型<br /> <br /> 时间格式 ＝ “HH:mm:ss”<br /> <br /> 日期框1.发送信息 (4101, 0, 取变量数据地址 (时间格式))<br /> <br /> .子程序 _选择框1_被单击<br /> .局部变量 当前时间, 日期时间型<br /> .局部变量 目标时间, 日期时间型<br /> .局部变量 秒数, 双精度小数型<br /> <br /> 目标时间 ＝ 日期框1.今天<br /> .判断循环首 (选择框1.选中 ＝ 真)<br /> <br />     当前时间 ＝ 取现行时间 ()<br /> <br />     秒数 ＝ 取时间间隔 (当前时间, 目标时间, #秒)<br /> <br />     .判断开始 (秒数 ≥ 20)<br />         选择框1.选中 ＝ 假<br />         跳出循环 ()<br /> <br />     .判断 (秒数 ≥ -20 且 秒数 ≤ 0)<br />         调试输出 (“到时间啦！”, 当前时间, 目标时间, 秒数)<br /> <br />     .默认<br />         调试输出 (“当前时间”, 当前时间)<br />     .判断结束<br /> <br />     延迟 (1000)<br /> .判断循环尾 ()<br /> <br /> 调试输出 (“已结束”)

LEOONL

3218181 发表于 2024-9-15 15:49
你这个可以 但是调试输出（“到时间了”） 得非常快的速度 1秒发N个  你这个做不到啊 你这个是到时间了1 ...

你把时钟周期设置小点就可以了，而且是按你说的超过20秒就会停止的。你没发现超过20秒虽然输出了时间但不会输出 “到时间了”这个吗

LEOONL

1.e (3.44 KB, 下载次数: 3)

2024-9-15 15:42 上传

点击文件名下载附件

3218181

LEOONL 发表于 2024-9-15 15:42

你这个可以 但是调试输出（“到时间了”） 得非常快的速度 1秒发N个  你这个做不到啊 你这个是到时间了1秒1个

补充内容 (2024-9-15 15:50):
而且你这个还不会自动停止