注:仅支持MP3格式。其他格式需要用媒体播放器。但思路都是一样的
代码:
.版本 2
.子程序 _按钮1_被单击
.如果 (按钮1.标题 = “播放”)
.如果真 (编辑框2.内容 = “”)
信息框 (“请填写音乐位置”, 0, )
返回 ()
.如果真结束
.如果真 (到整数 (编辑框1.内容) ≤ 0)
信息框 (“请填写延迟播放时间”, 0, )
返回 ()
.如果真结束
时钟1.时钟周期 = 到整数 (编辑框1.内容) × 1000
按钮1.标题 = “停止”
.否则
时钟1.时钟周期 = 0
停止播放 ()
按钮1.标题 = “播放”
.如果结束
.子程序 _时钟1_周期事件
.如果 (选择框1.选中)
播放MP3 (-1, 编辑框2.内容)
.否则
播放MP3 (, 编辑框2.内容)