易语言闹钟鸣叫的源码 到时间后会弹出信息框 让那个信息框一直叫 怎么写??

在编辑框1上输入 22:00 这样10点钟就弹出个信息框



.版本 2



.程序集 窗口程序集1



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



时钟1.时钟周期 ＝ 1000

信息框 (“设置神通闹钟”, 0, )



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

.局部变量 小时, 整数型

.局部变量 分钟, 整数型

.局部变量 神通, 整数型

.局部变量 逍通, 整数型



小时 ＝ 到整数 (取小时 (取现行时间 ()))

分钟 ＝ 到整数 (取分钟 (取现行时间 ()))

神通 ＝ 到整数 (取文本左边 (编辑框1.内容, 寻找文本 (编辑框1.内容, “:”, , 假)))

逍通 ＝ 到整数 (取文本右边 (编辑框1.内容, 取文本长度 (编辑框1.内容) － 寻找文本 (编辑框1.内容, “:”, , 假)))

.如果真 (小时 ＝ 神通 且 分钟 ＝ 逍通)

信息框 (“时间到了”, 64, “神通闹钟”)

时钟1.时钟周期 ＝ 0

时钟2.时钟周期 ＝ 1000

.如果真结束



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



鸣叫 ()