易语言大师进各种高分

最近写个软件 头都大了 具体情况看图 :
我做的是个游戏的活动提醒,当选择框被打上√
就判断标签上的时间 是否是指定时间 如果是如下图:

我改了很多种了 但是 还是不行 到了那个时间不会弹出信息框和播放音乐
我还试了一种方法;如果真(取现行间()=到时间(“2015年4月7日12时10分0秒”))这样写 的话 标签时间也得写2015年4月7日12时10分0秒 写了后可以到点正常运行,但是这样的话就得做好多标签来让他判断了,我现在就是想写个这样的:
当选择框被选中开始判断当前时间和写入的时间是否一致 一旦一致就开始执行命令,如果不一致就不执行,然而得保持判断 等到标签时间和写入的时间一致为止。
大神门 应该怎么写代码?

.版本 2


.程序集 窗口程序集1

.程序集变量 活动, 文本型, , "0"

.程序集变量 活动时间, 文本型, , "0"

.程序集变量 文本, 文本型


.子程序 __启动窗口_创建完毕


活动 = { “博古通金”, “组队竞技”, “守卫襄阳”, “决战光明顶” }

活动时间 = { “11:55”, “12:25”, “14:25”, “14:55” }

文本 = “活动还有5分钟开始”


.子程序 _选择框1_被单击


.判断开始 (选择框1.选中)

    时钟1.时钟周期 = 998

.默认

    时钟1.时钟周期 = 0

.判断结束



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

.局部变量 时分, 文本型

.局部变量 计次, 整数型

.局部变量 小时, 整数型

.局部变量 分钟, 整数型


时分 = 到文本 (取小时 (取现行时间 ())) + “:” + 到文本 (取分钟 (取现行时间 ()))

标签2.标题 = “现在时间 ” + 时分

.计次循环首 (取数组成员数 (活动), 计次)

    .如果真 (时分 = 活动时间 [计次])

        标签1.标题 = 活动 [计次] + 文本

        ' 播放音乐 (#声音1, )

        活动时间 [计次] = “”

        选择框1.选中 = 假

        .如果真 (信息框 (“下一活动还提醒吗?”, #是否钮, ) = #是钮)

            选择框1.选中 = 真

            跳出循环 ()

        .如果真结束


    .如果真结束

    .如果真 (时分 > 活动时间 [计次])

        活动时间 [计次] = “”

    .如果真结束

    .如果真 (活动时间 [计次] ≠ “”)

        小时 = 到整数 (取文本左边 (活动时间 [计次], 2))

        分钟 = 到整数 (取文本右边 (活动时间 [计次], 2))

        .如果 (分钟 = 55)

            标签1.标题 = 活动 [计次] + “将在” + 到文本 (小时 + 1) + “整进行!”

        .否则

            标签1.标题 = 活动 [计次] + “将在” + 到文本 (小时) + “:” + 到文本 (分钟 + 5) + “分进行!”

        .如果结束

        计次 = 取数组成员数 (活动) + 1

        跳出循环 ()

    .如果真结束


.计次循环尾 ()

.如果真 (取数组成员数 (活动) ≥ 计次)

    _选择框1_被单击 ()

.如果真结束

--------

经过运行,完全通过.

追问

感谢提供的源码,现在正在努力 解析,毕竟我是想要你们提供思路,我自己来做 这样我学到的会更多,谢谢你在百忙之中为我提供源码,先采纳了,不懂的地方在问你。谢谢

温馨提示:答案为网友推荐,仅供参考
第1个回答  2015-04-07
这些代码和标签4的显示要放在时钟内。追问

我到时钟周期事件的 但是没用啊

追答

楼下回答是对的,中英文的冒号还真不一样。
11:55不等于11:55。

追问

谢谢 我调整过来了 但是 现在可以达到到点提醒了 但是 提醒确实连续弹窗和播放音乐,用延迟不知道行不行

第2个回答  2015-04-07
冒号不一样 一个是英文状态输入的 标签的是中文状态输入的追问

跟符号,没关系

追答

谢谢 我调整过来了 但是 现在可以达到到点提醒了 但是 提醒确实连续弹窗和播放音乐,用延迟不知道行不行

这个可以添加一个程序集变量 记录上次报时时间 然后判断现在时间不是上次报时时间再报时

相关了解……

你可能感兴趣的内容

本站内容来自于网友发表,不代表本站立场,仅表示其个人看法,不对其真实性、正确性、有效性作任何的担保
相关事宜请发邮件给我们
© 非常风气网