弄了一个闹钟提醒的小程序，但是出现提前提醒了，这是.....

sjround

弄了一个闹钟提醒的小程序，但是出现还没到设定时间事提前提醒了，出现提前提醒都是时间刚好是整点的时候，没有整点的时候不会出现这个错误，这究竟是哪出了问题，还望大神指点一下, 附上源码
闹钟.rar (343.97 KB, 下载次数: 9)

2022-11-19 00:04 上传

点击文件名下载附件
下载积分: 精币 -1 枚

陽陽陽

建议直接用：
取启动时间（）
然后时间相减就行了

sjround

陽陽陽 发表于 2022-11-19 00:22
建议直接用：
取启动时间（）
然后时间相减就行了

应该不是这个的问题，我找半天没找到原因出在哪里，只要出现整点就会提前提醒

苗哥

闹钟.e (1.33 MB, 下载次数: 8)

2022-11-19 01:19 上传

点击文件名下载附件
下载积分: 精币 -1 枚

改了下，你试试

sjround

自由天下 发表于 2022-11-19 01:19
改了下，你试试

好的，我测试一下看看

陽陽陽

sjround 发表于 2022-11-19 00:30
应该不是这个的问题，我找半天没找到原因出在哪里，只要出现整点就会提前提醒 ...

建议你改成这个，这个稳定

云少i

把这两个子程序改成这样就可以了。
注意增加了程序集变量

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
A
B
C	文本型
集_时间	日期时间型
集_时间戳	文本型

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

组合框_载入数据 (组合框1, 取运行目录 () ＋ “/qjzs.dat”)
B ＝ 0
超级列表框1.置列宽 (0, -2)
超级列表框2.置列宽 (0, -2)

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

集_时间 ＝ 增减时间 (取现行时间 (), #分钟, 到整数 (编辑框9.内容) － 到整数 (编辑框1.内容))
集_时间戳 ＝ 时间_到时间戳 (集_时间, 真, )
超级列表框1.插入表项 (, 组合框1.取项目文本 (组合框1.现行选中项) ＋ 到文本 (集_时间), , , , )

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

计次循环首 (超级列表框1.取表项数 (), )
C ＝ 超级列表框1.取标题 (B, )
B ＝ B ＋ 1
如果真 (到数值 (集_时间戳) ≤ 到数值 (时间_到时间戳 (取现行时间 (), 真, )))
时钟2.时钟周期 ＝ 0
播放音乐 ( #声音1, )
信息框 (超级列表框1.取标题 (B － 1, ) ＋ “,时间到”, #置顶, “时间到啦~”, )
超级列表框2.插入表项 (, 超级列表框1.取标题 (B － 1, ) ＋ “,时间到”, , , , )
停止播放 ()
超级列表框1.删除表项 (B － 1)
时钟2.时钟周期 ＝ 10

计次循环尾 ()
B ＝ 0

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 A<br /> .程序集变量 B<br /> .程序集变量 C, 文本型<br /> .程序集变量 集_时间, 日期时间型<br /> .程序集变量 集_时间戳, 文本型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 组合框_载入数据 (组合框1, 取运行目录 () ＋ “/qjzs.dat”)<br /> B ＝ 0<br /> 超级列表框1.置列宽 (0, -2)<br /> 超级列表框2.置列宽 (0, -2)<br /> <br /> .子程序 _按钮2_被单击<br /> <br /> 集_时间 ＝ 增减时间 (取现行时间 (), #分钟, 到整数 (编辑框9.内容) － 到整数 (编辑框1.内容))<br /> 集_时间戳 ＝ 时间_到时间戳 (集_时间, 真, )<br /> 超级列表框1.插入表项 (, 组合框1.取项目文本 (组合框1.现行选中项) ＋ 到文本 (集_时间), , , , )<br /> <br /> .子程序 _时钟2_周期事件<br /> <br /> .计次循环首 (超级列表框1.取表项数 (), )<br /> <br />     C ＝ 超级列表框1.取标题 (B, )<br />     B ＝ B ＋ 1<br /> <br />     .如果真 (到数值 (集_时间戳) ≤ 到数值 (时间_到时间戳 (取现行时间 (), 真, )))<br />         时钟2.时钟周期 ＝ 0<br />         播放音乐 (#声音1, )<br />         信息框 (超级列表框1.取标题 (B － 1, ) ＋ “,时间到”, #置顶, “时间到啦~”, )<br />         超级列表框2.插入表项 (, 超级列表框1.取标题 (B － 1, ) ＋ “,时间到”, , , , )<br />         停止播放 ()<br />         超级列表框1.删除表项 (B － 1)<br />         时钟2.时钟周期 ＝ 10<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> B ＝ 0

sjround

云少i 发表于 2022-11-19 11:12
把这两个子程序改成这样就可以了。
注意增加了程序集变量

你好，经过测试后出现到时间不会提示了，然后会突然间全部一下子提示出来

sjround

有大神帮忙看一下是哪里出错了么？实在找不到原因

云少i

sjround 发表于 2022-11-22 18:42
你好，经过测试后出现到时间不会提示了，然后会突然间全部一下子提示出来 ...

把计次循环里面的如果真做成子程序，改为线程启动、