.版本 2 .程序集 窗口程序集1 .程序集变量 时间, 日期时间型 .程序集变量 小时, 文本型 .程序集变量 分, 文本型 .程序集变量 秒, 文本型 .程序集变量 短路径, 文本型 .程序集变量 n, 整数型 .程序集变量 上下午, 文本型 .程序集变量 分1, 文本型 .程序集变量 分2, 文本型 .子程序 _时钟_周期事件 .局部变量 状态, 文本型 .局部变量 路径, 文本型 ' 本源码来自三叶资源网(www.sanye.cx) 状态 ＝ 取空白文本 (255) mciSendStringA (“status ” ＋ 短路径 ＋ “ mode”, 状态, 255, 0) .如果真 (到小写 (状态) ＝ “stopped”) ' 判断上一个语音是否读完，读完了就读下一个语音 状态 ＝ “” mciSendStringA (“close ” ＋ 短路径, “”, 0, 0) n ＝ n ＋ 1 .如果真 (n ＞ 6) 时钟.时钟周期 ＝ 0 返回 () .如果真结束 路径 ＝ 多项选择 (n, 上下午, 小时, “点.wav”, 分1, 分2, “分.wav”) .如果真 (路径 ＝ “”) 状态 ＝ “stopped” 返回 () .如果真结束 路径 ＝ 取运行目录 () ＋ “\” ＋ 路径 短路径 ＝ 取空白文本 (255) GetShortPathNameA (路径, 短路径, 255) mciSendStringA (“open ” ＋ 短路径, “”, 0, 0) mciSendStringA (“play ” ＋ 短路径, “”, 0, 0) .如果真结束 ' 本源码来自三叶资源网(www.sanye.cx) .子程序 _按钮1_被单击 .局部变量 路径, 文本型 .局部变量 临时, 整数型 时间 ＝ 取现行时间 () 临时 ＝ 取时间部分 (时间, #小时) 上下午 ＝ “上午.wav” .如果真 (临时 ＞ 12) 上下午 ＝ “下午.wav” 临时 ＝ 临时 － 12 .如果真结束 小时 ＝ 到文本 (临时) ＋ “.wav” 临时 ＝ 取时间部分 (时间, #分钟) 分1 ＝ 到文本 (临时) ＋ “.wav” 分2 ＝ “” .如果真 (临时 ＞ 10) 分2 ＝ 取文本右边 (到文本 (临时), 1) ＋ “.wav” .如果真 (分2 ＝ “0”) 分2 ＝ “” .如果真结束 临时 ＝ 取整 (临时 ÷ 10) × 10 分1 ＝ 到文本 (临时) ＋ “.wav” .如果真结束 秒 ＝ 到文本 (取时间部分 (时间, #秒)) ＋ “.wav” ' 没有秒的语音文件就不读了 时钟.时钟周期 ＝ 200 路径 ＝ “现在时间.wav” 路径 ＝ 取运行目录 () ＋ “\” ＋ 路径 短路径 ＝ 取空白文本 (255) GetShortPathNameA (路径, 短路径, 255) mciSendStringA (“open ” ＋ 短路径, “”, 0, 0) mciSendStringA (“play ” ＋ 短路径, “”, 0, 0) .子程序 _时钟1_周期事件 标签1.标题 ＝ 到文本 (取现行时间 ())