最近写个软件 头都大了 具体情况看图 :
我做的是个游戏的活动提醒,当选择框被打上√
就判断标签上的时间 是否是指定时间 如果是如下图:
我改了很多种了 但是 还是不行 到了那个时间不会弹出信息框和播放音乐
我还试了一种方法;如果真(取现行间()=到时间(“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_被单击 ()
.如果真结束
--------
经过运行,完全通过.
追问感谢提供的源码,现在正在努力 解析,毕竟我是想要你们提供思路,我自己来做 这样我学到的会更多,谢谢你在百忙之中为我提供源码,先采纳了,不懂的地方在问你。谢谢
我到时钟周期事件的 但是没用啊
追答楼下回答是对的,中英文的冒号还真不一样。
11:55不等于11:55。
谢谢 我调整过来了 但是 现在可以达到到点提醒了 但是 提醒确实连续弹窗和播放音乐,用延迟不知道行不行
跟符号,没关系
追答谢谢 我调整过来了 但是 现在可以达到到点提醒了 但是 提醒确实连续弹窗和播放音乐,用延迟不知道行不行
这个可以添加一个程序集变量 记录上次报时时间 然后判断现在时间不是上次报时时间再报时