第七课-闹钟

这课重点讲的是闹钟，和播放mp3等功能。

作业是设置闹钟到时间后播放30秒即停止播放。

自主完善课堂源码：

1：增加判断时间是否过期功能。

2：增加闹钟启动反馈信息。

3：增加闹钟到时间反馈信息。

学习主要命令：

取现行时间（）

到时间（）

取时间间隔（）

时钟周期  =  *

播放mp3（）

停止播放（）

延迟（）

附源码:

.版本 2

.支持库 spec

.程序集 窗口程序集_启动窗口

.程序集变量 闹钟时间, 日期时间型

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

.局部变量 时间间隔, 整数型

.局部变量 限行时间, 日期时间型

限行时间 ＝ 取现行时间 ()

闹钟时间 ＝ 到时间 (编辑框1.内容)

时间间隔 ＝ 取时间间隔 (闹钟时间, 限行时间, #秒)

.如果 (时间间隔 ＞ 0)

    标签1.可视 ＝ 真

    标签1.标题 ＝ “您设定的闹钟时间为：” ＋ #换行符 ＋ 到文本 (闹钟时间) ＋ #换行符 ＋ “闹钟已开启” ＋ #换行符 ＋ “请等待.”

    时钟1.时钟周期 ＝ 1000

.否则

    信息框 (“时间已过期”, 0, , )

.如果结束

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

.局部变量 限行时间, 日期时间型

限行时间 ＝ 取现行时间 ()

.如果真 (闹钟时间 ＝ 限行时间)

    子程序1 ()

    时钟1.时钟周期 ＝ 0

.如果真结束

.子程序 子程序1

时钟1.时钟周期 ＝ 0

播放MP3 (1, “超级玛丽.mp3”)

标签1.标题 ＝ #换行符 ＋ “闹钟时间到！”

_启动窗口.总在最前 ＝ 真

延迟 (30000)

停止播放 ()

标签1.可视 ＝ 假