近在眼前－MCI指令应用例程－语音报时

易语言语音报时源码

.版本 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.标题 ＝ 到文本 (取现行时间 ())

@资源源码站-近在眼前