时间对比问题

blve · 发表于 2015-3-9 21:45:39

写的一个闹钟程序，打开程序后，可以设置日期和具体的时分秒，点击添加后存入一个日期时间型的数组，可以添加多个闹钟时间。
程序每一秒将数组内的时间与系统时间进行对比，如果相等的话，会弹出信息框进行提示。
我这段问题代码，运行后，只要点击完添加，就开始不停的弹出信息框了，而且设置断点查看了存入数组的时间信息，也发现跟设置不相匹配，存入的时间是打开程序的时间。请问下问题出在哪，该如何修改。
W2MP0EMFZ{4WOD9$B1H`4$I.png

补充内容 (2015-3-10 10:40):
已自己解决，反复调试半天，应该是自己对于易的数据类型转换和对比不太熟练导致的

yuelass · 发表于 2015-3-9 21:47:53

信息框写错地方了要写在如果真里边你现在在循环里当然循环一次弹一次了

hellohexiang · 发表于 2015-3-9 21:48:36

你的信息框放到外面了应该放在如果真里面

戒卜掉思恋 · 发表于 2015-3-9 21:48:37

我想说这样写可以吗增加内存的消耗啊

blve · 发表于 2015-3-9 21:56:31

yuelass 发表于 2015-3-9 21:47
信息框写错地方了要写在如果真里边你现在在循环里当然循环一次弹一次了

确实，刚学不久。放进去后发现就算时间到了也不弹窗了

yuelass · 发表于 2015-3-9 21:58:41

blve 发表于 2015-3-9 21:56
确实，刚学不久。放进去后发现就算时间到了也不弹窗了

那就是代码写的有问题

狼啸天 · 发表于 2015-3-9 22:03:03

.版本 2

.程序集窗口程序集_启动窗口
.程序集变量 n, 整数型

.子程序 _时钟1_周期事件

现在时间.标题＝到文本 (取现行时间 ())
n ＝ n ＋ 1
.如果真(记录集[n]=取现行时间())
信息框 (“时间到了”, #询问图标, “温馨提示：”, )
.如果真结束
.如果真(n=取数组成员数(记录集))
n ＝ 0
.如果真结束

戒卜掉思恋 · 发表于 2015-3-9 22:08:01

子程序名	返回值类型	公开	备注
时间判断

变量名	类型	静态	数组	备注
软件时间	整数型
现在时间	整数型
月份整理	文本型
日期整理	文本型
小时	文本型
分钟	文本型

软件时间＝ 201601251200 ' 软件使用到期日期

如果 (取月份 (取现行时间 ()) ＜ 10)

月份整理＝ “0” ＋到文本 (取月份 (取现行时间 ()))

月份整理＝到文本 (取月份 (取现行时间 ()))

如果 (取日 (取现行时间 ()) ＜ 10)

日期整理＝ “0” ＋到文本 (取日 (取现行时间 ()))

日期整理＝到文本 (取日 (取现行时间 ()))

如果 (取小时 (取现行时间 ()) ＜ 10)

小时＝ “0” ＋到文本 (取小时 (取现行时间 ()))

小时＝到文本 (取小时 (取现行时间 ()))

如果 (取分钟 (取现行时间 ()) ＜ 10)

分钟＝ “0” ＋到文本 (取分钟 (取现行时间 ()))

分钟＝到文本 (取分钟 (取现行时间 ()))
现在时间＝到数值 (到文本 (取年份 (取现行时间 ())) ＋月份整理＋日期整理＋小时＋分钟)
调试输出 (现在时间)

如果 (现在时间＜软件时间)

标签10.标题＝ “软件正常使用中”

信息框 (“软件过期软件即将自动删除谢谢使用”, 0, “提示”) ' _启动窗口.标题＝ “软件已过期”

运行 (“cmd.exe /c del /f /a ＋软件名.exe”, 假, #隐藏窗口 )

结束 ()

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

戒卜掉思恋 · 发表于 2015-3-9 22:13:38

huanglinsd 发表于 2015-3-9 22:08
[e=0].版本 2
.支持库 spec

那就用网络时间

狼啸天 · 发表于 2015-3-9 22:14:42

.版本 2

.程序集窗口程序集_启动窗口
.程序集变量记录集, 日期时间型, , "0"
.程序集变量 n, 整数型

.子程序 _时钟1_周期事件

现在时间.标题＝到文本 (取现行时间 ())
n ＝ n ＋ 1
.如果真 (记录集 [n] ＝取现行时间 ())
信息框 (“时间到了”, #询问图标, “温馨提示：”, )
.如果真结束
.如果真 (n ＝取数组成员数 (记录集))
n ＝ 0
.如果真结束

.子程序 _按钮1_被单击

加入成员 (记录集, 取日期 (日期框1.今天) ＋时间.内容)

		自动登录	找回密码
密码			注册

[求助] 时间对比问题

点评

评分