易语言语音报时源码
.版本 2
.程序集 窗口程序集1
.子程序 __启动窗口_创建完毕
标签1.标题 = 到文本 (取现行时间 ())
.子程序 _时钟1_周期事件
标签1.标题 = 到文本 (取现行时间 ())
.子程序 _按钮1_被单击
.局部变量 时间, 日期时间型
.局部变量 临时, 整数型
.局部变量 路径, 文本型
.局部变量 短路径, 文本型
.局部变量 状态, 文本型
时间 = 取现行时间 ()
临时 = 取时间部分 (时间, #小时)
输出调试文本 (临时)
.如果 (临时 < 10)
路径 = 取运行目录 () + “\h\0” + 到文本 (临时) + “.mp3”
.否则
路径 = 取运行目录 () + “\h\” + 到文本 (临时) + “.mp3”
.如果结束
短路径 = 取空白文本 (255)
GetShortPathNameA (路径, 短路径, 255)
mciSendStringA (“close ” + 短路径, “”, 0, 0)
mciSendStringA (“open ” + 短路径, “”, 0, 0)
mciSendStringA (“play ” + 短路径, “”, 0, 0)
状态 = 取空白文本 (255)
mciSendStringA (“status ” + 短路径 + “ mode”, 状态, 255, 0)
.判断循环首 (到小写 (状态) = “playing”)
mciSendStringA (“status ” + 短路径 + “ mode”, 状态, 255, 0)
延时 (1)
.如果真 (到小写 (状态) = “stopped”)
跳出循环 ()
.如果真结束
' 输出调试文本 (状态)
.判断循环尾 ()
临时 = 取时间部分 (时间, #分钟)
输出调试文本 (临时)
.如果 (临时 < 10)
路径 = 取运行目录 () + “\m\0” + 到文本 (临时) + “.mp3”
.否则
路径 = 取运行目录 () + “\m\” + 到文本 (临时) + “.mp3”
.如果结束
短路径 = 取空白文本 (255)
GetShortPathNameA (路径, 短路径, 255)
mciSendStringA (“close ” + 短路径, “”, 0, 0)
mciSendStringA (“open ” + 短路径, “”, 0, 0)
mciSendStringA (“play ” + 短路径, “”, 0, 0)
易语言语音源码
音乐报时易语言