易语言 闹钟程序和播放音乐

.版本 2


.程序集 窗口程序集_启动窗口
.程序集变量 当前播放了多少时间, 整数型
.程序集变量 程序集_时间, 日期时间型


.子程序 _按钮_确定_被单击


程序集_时间 ＝ 到时间 (编辑框_用户输入时间.内容)
时钟_计时.时钟周期 ＝ 1000


.子程序 _时钟_计时_周期事件
.局部变量 局部_时间, 日期时间型




局部_时间 ＝ 取现行时间 ()
.如果真 (局部_时间 ＝ 程序集_时间)
    ' 信息框 (“当前时间已经达到”, 0, , )


    ' 当前路径直接放音乐名称就可以了
    播放MP3 (1, “D:\KuGou\Christine Welch - 一百万个可能(DJ版).mp3”)
    时钟_计时.时钟周期 ＝ 0


.如果真结束


当前播放了多少时间 ＝ 当前播放了多少时间 ＋ 1
输出调试文本 (当前播放了多少时间)


.如果真 (当前播放了多少时间 ≥ 30)
    停止播放 ()
    时钟_计时.时钟周期 ＝ 0
    当前播放了多少时间 ＝ 0
.如果真结束




.子程序 _按钮_停止播放闹钟音乐_被单击


停止播放 ()




.子程序 _按钮_开始播放音乐_被单击


时钟_计时.时钟周期 ＝ 1000
当前播放了多少时间 ＝ 0
播放MP3 (1, “D:\KuGou\Christine Welch - 一百万个可能(DJ版).mp3”)


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


当前播放了多少时间 ＝ 0