易语言语音报时源码

易语言语音报时源码

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

@易语言代码编写例子