易语言制作语音聊天机器人的代码

 更新时间:2018年11月26日 16:19:04   作者:易语言源码教程  
今天小编就为大家分享一篇关于易语言制作语音聊天机器人的代码,小编觉得内容挺不错的,现在分享给大家,具有很好的参考价值,需要的朋友一起跟随小编来看看吧

常量数据表

.版本 2
.常量 对话前, "<文本长度: 7>", , text":"
.常量 对话后, "<文本长度: 2>", , "}
.常量 token前, "<文本长度: 16>", , "access_token":"
.常量 双撇号, "<文本长度: 1>", , "
.常量 apikey, "<文本长度: 24>", , Tc9KWDDFPLm1QNVPgEx7kco6
.常量 Secretkey, "<文本长度: 32>", , DnqP3q2GwOqGuYI9sUhLT4l7uC2f1yVL
.常量 识别返回前, "<文本长度: 10>", , result":["
.常量 识别返回后, "<文本长度: 3>", , "],

语音聊天机器人的代码

此功能需要加载精易模块5.6

.版本 2
.支持库 eMMedia
.支持库 ESpeechEngine
.支持库 internet
.支持库 spec
.支持库 eAPI
.程序集 窗口程序集_启动窗口
.程序集变量 API地址, 文本型
.程序集变量 APIkey, 文本型
.程序集变量 唤醒名, 文本型, , "0"
.程序集变量 音量, 短整数型
.程序集变量 计时, 整数型
.程序集变量 最大频段, 整数型
.程序集变量 发送内容, 文本型
.子程序 _语音识别1_识别到语音
.参数 识别文本, 文本型
.如果真 (寻找文本 (识别文本, 唤醒名 [1], , 假) ≠ -1) ' 识别到唤醒名就开始录音。
 录音音波1.打开 () ' 这个是检测麦克风音量的用的
 最大频段 = 录音音波1.取上限 () - 1
 播放音乐 (#开始声音, )
 设置唤醒按钮.标题 = “正在聆听”
 录音1.录制 () ' 开始录音……
 判断是否说话时钟.时钟周期 = 10 ' 判断是否在说话的时钟。
.如果真结束
.子程序 _设置唤醒按钮_被单击
语音识别1.创建 (0, 1) ' 初始化语音识别引擎,初始化失败的需要下载微软的语音识别引擎Microsoft Speech SDK v5.1
加入成员 (唤醒名, 编辑框1.内容)
语音识别1.加入常用 (唤醒名)
信息框 (“设置成功,请直接对着麦克风呼唤: ” + 编辑框1.内容 + “ 即可开始对话”, 0, )
设置唤醒按钮.禁止 = 真
.子程序 机器人对话, 文本型, , 调用图灵机器人API接口
.参数 发送的内容, 文本型
.局部变量 数据, 文本型
.局部变量 返回内容, 文本型
.局部变量 需要的内容长度, 整数型
数据 = 编码_gb2312到utf8 (发送的内容) ' ——————————先转换成utf8码
返回内容 = 到文本 (HTTP读文件 (“http://www.tuling123.com/openapi/api?key=bad4d07e4c1c439b935a922906176478&info=” + 数据 + “&loc=北京&userid=a1”)) ' ——————————发送给图灵
返回内容 = 编码_utf8到gb2312 (返回内容) ' —————————— 先把返回的数据转成简体中文的编码
调试输出 (返回内容) ' ——————————调试输出一下看看
需要的内容长度 = 取文本长度 (返回内容) - 寻找文本 (返回内容, #对话前, , 假) - 取文本长度 (#对话前) - 取文本长度 (#对话后) + 1 ' 全部的长度 - 前面文本所在位置 - 前面文本长度 - 后面文本长度 + 1,得出来的结果就是需要的文本长度
返回内容 = 取文本中间 (返回内容, 寻找文本 (返回内容, #对话前, , 假) + 取文本长度 (#对话前), 需要的内容长度) ' ——————————起始位置是前面文本所在位置 + 前面文本的长度
编辑框3.内容 = 返回内容 ' ——————————编辑框上显示出来
返回 (返回内容)
.子程序 获取token, 文本型, , 获取百度验证信息
.局部变量 临时数组, 文本型, , "0"
.局部变量 返回的文本, 文本型
.局部变量 token, 文本型
返回的文本 = 到文本 (HTTP读文件 (“https://openapi.baidu.com/oauth/2.0/token?grant_type=client_credentials&client_id=” + #apikey + “&client_secret=” + #Secretkey))
临时数组 = 分割文本 (返回的文本, #token前, )
token = 取文本左边 (临时数组 [2], 寻找文本 (临时数组 [2], #双撇号, , 假) - 1)
返回 (token)
.子程序 合成语音, , , 调用百度语音合成API接口
.参数 需要合成的文本, 文本型
.局部变量 句柄, 整数型
.局部变量 z, 文本型
.局部变量 返回的语音, 字节集
z = 需要合成的文本
z = 编码_gb2312到utf8 (z) ' 先转换成utf8编码
z = 编码_URL编码 (z) ' 再进行URL编码
媒体播放1.停止 ()
媒体播放1.关闭 () ' 关闭正在播放的才能写出新的语音
返回的语音 = HTTP读文件 (“http://tsn.baidu.com/text2audio?tex=” + z + “&lan=zh&ctp=1&cuid=” + 取本机网卡物理地址 () + “&tok=” + 获取token () + “&pit=9”)
写到文件 (“C:\Users\Administrator\Desktop\1.mp3”, 返回的语音)
媒体播放1.打开 (“C:\Users\Administrator\Desktop\1.mp3”)
媒体播放1.播放 (-1, )
调试输出 (“合成语音完成”)
设置唤醒按钮.标题 = “完成”
.子程序 _判断播放状态时钟1_周期事件, , , 如果播放完了就关闭文件,这样才能写出新的文件
.判断开始 (媒体播放1.取状态 () = 2)
 媒体播放1.关闭 ()
.默认
.判断结束
.子程序 _判断是否说话时钟_周期事件
录音音波1.取声波值 (音量, 2047)
音量 = 取绝对值 (音量)
.判断开始 (音量 > 200)
 计时 = 0
.判断 (计时 > 100) ' 时钟周期是10,如果连续100次(也就是1秒钟)音量都小于200就结束录音。这个作用就是1秒钟之内没说话就停止录音。
 判断是否说话时钟.时钟周期 = 0
 录音1.停止 ()
 播放音乐 (#结束声音, )
 设置唤醒按钮.标题 = “正在识别”
 录音1.保存文件 (取运行目录 () + “\ly.wav”, 真)
 合成语音 (机器人对话 (识别 ()))
 计时 = 0
.默认
 计时 = 计时 + 1
.判断结束
.子程序 识别, 文本型, , 调用百度语音识别API接口
.局部变量 MAC, 文本型
.局部变量 语言, 文本型, , , 中文=zh、粤语=ct、英文=en,不区分大小写,默认中文
.局部变量 返回内容, 文本型
MAC = 取本机网卡物理地址 ()
语言 = “zh”
返回内容 = 编码_utf8到gb2312 (到文本 (网页_访问 (“http://vop.baidu.com//server_api?lan=” + 语言 + “&format=wav” + “&rate=8000” + “&channel=1” + “&cuid=” + MAC + “&token=” + 获取token (), 1, , , , “Content-Type:audio/wav;rate=8000;Content-length=999999”, , , 读入文件 (取运行目录 () + “\ly.wav”), )))
返回内容 = 取文本中间 (返回内容, 寻找文本 (返回内容, #识别返回前, , 假) + 取文本长度 (#识别返回前), 寻找文本 (返回内容, #识别返回后, , 假) - 寻找文本 (返回内容, #识别返回前, , 假) - 取文本长度 (#识别返回前)) ' 取得需要的文本
调试输出 (“识别后的内容:” + 返回内容)
编辑框2.内容 = 返回内容
返回 (返回内容)

运行结果:

总结

以上就是这篇文章的全部内容了,希望本文的内容对大家的学习或者工作具有一定的参考学习价值,谢谢大家对脚本之家的支持。如果你想了解更多相关内容请查看下面相关链接

相关文章

  • 实例讲解易语言数组排序

    实例讲解易语言数组排序

    在本篇文章里小编给大家分享了关于易语言数组排序的相关知识点内容,有兴趣的朋友们学习下。
    2019-01-01
  • 详解易语言正则表达式的多行匹配替换

    详解易语言正则表达式的多行匹配替换

    在本篇内容里小编给大家整理了关于易语言正则表达式的多行匹配替换的知识点内容,有需要的朋友们学习下。
    2018-11-11
  • 易语言调用whois实现域名批量查询与注册的代码

    易语言调用whois实现域名批量查询与注册的代码

    今天小编就为大家分享一篇关于易语言调用whois实现域名批量查询与注册的代码,小编觉得内容挺不错的,现在分享给大家,具有很好的参考价值,需要的朋友一起跟随小编来看看吧
    2018-11-11
  • 易语言查找文本的制作教学

    易语言查找文本的制作教学

    在本篇文章里我们给大家整理了关于易语言查找文本的制作教学内容,有需要的朋友们可以学习下。
    2019-01-01
  • 易语言删除成员命令使用讲解

    易语言删除成员命令使用讲解

    今天小编就为大家分享一篇关于易语言删除成员命令使用讲解,小编觉得内容挺不错的,现在分享给大家,具有很好的参考价值,需要的朋友一起跟随小编来看看吧
    2018-11-11
  • 易语言将日期时间转换成纯数字格式的代码

    易语言将日期时间转换成纯数字格式的代码

    今天小编就为大家分享一篇关于易语言将日期时间转换成纯数字格式的代码,小编觉得内容挺不错的,现在分享给大家,具有很好的参考价值,需要的朋友一起跟随小编来看看吧
    2018-11-11
  • 易语言在画板中画指定样式饼形的方法

    易语言在画板中画指定样式饼形的方法

    今天小编就为大家分享一篇关于易语言在画板中画指定样式饼形的方法,小编觉得内容挺不错的,现在分享给大家,具有很好的参考价值,需要的朋友一起跟随小编来看看吧
    2018-11-11
  • 易语言调用api获取网卡信息网络连接名的代码

    易语言调用api获取网卡信息网络连接名的代码

    今天小编就为大家分享一篇关于易语言调用api获取网卡信息网络连接名的代码,小编觉得内容挺不错的,现在分享给大家,具有很好的参考价值,需要的朋友一起跟随小编来看看吧
    2018-11-11
  • 易语言结束程序的代码详解

    易语言结束程序的代码详解

    在本文中我们给大家带来一篇关于易语言结束程序的代码的相关内容,有需要的读者们学习下。
    2019-01-01
  • 易语言实现文件夹加密的代码

    易语言实现文件夹加密的代码

    今天小编就为大家分享一篇关于易语言实现文件夹加密的代码,小编觉得内容挺不错的,现在分享给大家,具有很好的参考价值,需要的朋友一起跟随小编来看看吧
    2018-11-11

最新评论