|
14楼
发表于 2017-3-11 17:38:20
|
只看该作者
山东省德州市
.版本 2
.支持库 ESpeechEngine
.程序集 窗口程序集1
.程序集变量 机读文本, 机读文本
.子程序 __启动窗口_创建完毕
.局部变量 dd, 文本型, , "0"
.局部变量 n1, 整数型
.如果 (机读文本.是否可用 () = 真)
dd = 机读文本.列举语音库 ()
.计次循环首 (取数组成员数 (dd), n1)
组合框1.加入项目 (dd [n1], )
.计次循环尾 ()
.否则
.如果结束
组合框1.现行选中项 = 组合框1.取项目数 () - 组合框1.取项目数 ()
' ↑↑↑此处可自行修改启动时自动选择组合框中第几个语音库
机读文本.设置语音库 (组合框1.取项目文本 (组合框1.现行选中项))
.子程序 _按钮1_被单击
机读文本.设置语音库 (组合框1.取项目文本 (组合框1.现行选中项))
.子程序 _按钮2_被单击
机读文本.设置语速 (滑块条1.位置)
机读文本.文本到语音 (0, 编辑框1.内容, , )
.子程序 _按钮3_被单击
机读文本.停止发音 ()
.子程序 _编辑框1_内容被改变
清除剪辑板 ()
机读文本.停止发音 ()
机读文本.设置语速 (滑块条1.位置)
机读文本.文本到语音 (0, 编辑框1.内容, , )
.子程序 _时钟1_周期事件
.如果 (剪辑板中可有文本 ())
编辑框1.内容 = 取剪辑板文本 ()
.否则
.如果结束
|
|