本文共 604 字，大约阅读时间需要 2 分钟。

.版本 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