开启辅助访问 切换到宽版

精易论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

用微信号发送消息登录论坛

新人指南 邀请好友注册 - 我关注人的新帖 教你赚取精币 - 每日签到


求职/招聘- 论坛接单- 开发者大厅

论坛版规 总版规 - 建议/投诉 - 应聘版主 - 精华帖总集 积分说明 - 禁言标准 - 有奖举报

查看: 11929|回复: 22
打印 上一主题 下一主题
收起左侧

[易语言纯源码] 小歪:易语言读字语音自动播报程序

[复制链接]
跳转到指定楼层
楼主
发表于 2017-6-18 20:44:54 | 只看该作者 回帖奖励 |正序浏览 |阅读模式   山东省潍坊市
分享源码
界面截图:
是否带模块: 纯源码
备注说明: -
我用易语言写的一个读字自动播放文字内容的程序,先说一下吧,我用的是百度翻译的语音播放,很明显是使用的post,可能大家想不到,也可能大家都知道,我发出来的原因还是老样子,想让大家都用到我们自己的产品,谁知道网上的软件里面别人添加了什么不干净的东西是吧,我会把程序和源码打包发到附件里面去,需要的同学下载了使用就行,想学习的同学下载了学习就好,希望大家多多支持,然后,程序中使用了好多功能,有很多功能可能是由于个人水平问题,有很多功能不完善,希望大家多多指点,这个软件使用的初级post的知识,相信会post的同学都会,我不是来炫耀什么,只是想要大家都用我们自己的产品,程序运行会打开和我的QQ聊天窗口,我希望用到这个程序的同学能和我聊聊易语言的事情。大神就不要说我了,嘻嘻


  
窗口程序集名保 留  保 留备 注
窗口程序集_启动窗口   
子程序名返回值类型公开备 注
_按钮_英文_被单击  
bsf = 2
启动线程 (&获取播放语音, , )
子程序名返回值类型公开备 注
_按钮_中文_被单击  
bsf = 1
启动线程 (&获取播放语音, , )
子程序名返回值类型公开备 注
__启动窗口_创建完毕  
打开指定网址 (“tencent://message/?uin=1454144616&Site=在线咨询&Menu=yes;”)
' 程序是否以管理员身份运行 ()
语音生成器地址 = 取特定目录 (3)“\语音生成器”
创建目录 (语音生成器地址)
子程序名返回值类型公开备 注
程序是否以管理员身份运行 C:\Windows\System32\drivers\etc
如果真 (写配置项 (“C:\Windows\System32\drivers\etc”“\Yy科技城管理员身份验证配置文件.ini”, “语音生成程序验证配置我呢见”, “是否验证”, “真”))
信息框 (“文件的部分操作需要管理员身份运行,请右击本程序选择管理员身份运行!”, #信息图标, “提示:”, )
结束 ()

子程序名返回值类型公开备 注
获取播放语音 1 表示中文  2表示英文
变量名类 型静态数组备 注
中文字节集 
英文字节集 
置随机数种子 ()
随机数 = 取随机数 (1000, 999999999)
判断 (bsf = 1)
调试输出 (“检测到中文正在以中文的形式录入!”)
中文 = 网页_访问 (http://fanyi.baidu.com/gettts?lan=zh&text=编码_URL编码 (编辑框1.内容, 真, )“&spd=5&source=web”, 0, , , , )
判断 (写到文件 (语音生成器地址 + “\”到文本 (随机数)“.wav”, 中文))
信息框 (“文件生成成功!语音文件已经保存到您的桌面{语音生成器}文件夹下,如果您需要您此次生成的文件,您可以到下面的文件夹下面去找,此次为您生成的音频文件的名称是”到文本 (随机数)“.wav”#换行符“音频将在1秒后播放!”, #信息图标, “提示:”, )
延迟 (1000)
判断 (选择框_身份2.选中 = )
播放器1.地址 = 语音生成器地址 + “\”到文本 (随机数)“.wav”
播放器1.打开播放器 (语音生成器地址 + “\”到文本 (随机数)“.wav”)
_启动窗口.标题 = “文件读取成功!”到文本 (随机数)“.wav”

_启动窗口.标题 = “文件读取失败!已经存在的文件名!”

判断 (bsf = 2)
调试输出 (“检测到英文正在以英文的形式录入!”)
_启动窗口.标题 = “文件获取中”
英文 = 网页_访问 (http://fanyi.baidu.com/gettts?lan=en&text= + 编辑框1.内容 + “&spd=3&source=web”, 0, , )
判断 (写到文件 (语音生成器地址 + “\”到文本 (随机数)“.wav”, 英文))
延迟 (1000)
判断 (选择框_身份2.选中 = )
播放器1.地址 = 语音生成器地址 + “\”到文本 (随机数)“.wav”
播放器1.打开播放器 (语音生成器地址 + “\”到文本 (随机数)“.wav”)
调试输出 (播放器1.地址)
_启动窗口.标题 = “文件读取成功!”到文本 (随机数)“.wav”
信息框 (“文件生成成功!语音文件已经保存到您的桌面{语音生成器}文件夹下,如果您需要您此次生成的文件,您可以到下面的文件夹下面去找,此次为您生成的音频文件的名称是”到文本 (随机数)“.wav”#换行符“音频将在1秒后播放!”, #信息图标, “提示:”, )
_启动窗口.标题 = “文件读取失败!已经存在的文件名!”

信息框 (“操作系统传过的数据为无效参数,本函数只能暂时接受1 和2 系统穿过来的参数为:”到文本 (bsf), #信息图标, “提示:”, )
返回 ()

[attach]653584[/attach]
[attach]653584[/attach]


i支持库列表   支持库注释   
EThread多线程支持库
eAPI应用接口支持库
shell操作系统界面功能支持库
spec特殊功能支持库
wmp9Windows媒体播放器

QQ截图20170618203449.png (10.64 KB, 下载次数: 13)

QQ截图20170618203449.png

签到天数: 3 天

23
发表于 2025-3-4 10:47:27 | 只看该作者   广东省佛山市
看看还能用不
回复 支持 反对

使用道具 举报

22
发表于 2021-6-30 03:13:09 | 只看该作者   山西省运城市
好厉害11111111111111111111
回复 支持 反对

使用道具 举报

21
发表于 2020-10-26 14:50:59 | 只看该作者   上海市上海市
#在这里快速回复#1111111111111111111
回复 支持 反对

使用道具 举报

20
发表于 2020-9-7 20:24:40 | 只看该作者   江苏省南通市
6666666666666
回复 支持 反对

使用道具 举报

19
发表于 2018-9-19 18:14:14 | 只看该作者   广东省汕头市
eeeeeeeeeeeeee
回复 支持 反对

使用道具 举报

结帖率:80% (4/5)
18
发表于 2018-8-15 14:16:05 | 只看该作者   山东省枣庄市
学习,支持,了解一下。
回复 支持 反对

使用道具 举报

签到天数: 3 天

17
发表于 2018-7-6 23:19:03 | 只看该作者   菲律宾
谢谢楼主分享
回复 支持 反对

使用道具 举报

16
发表于 2018-4-26 16:38:21 | 只看该作者   福建省厦门市
很强大的东西
回复 支持 反对

使用道具 举报

结帖率:80% (4/5)
15
发表于 2018-4-21 01:48:31 | 只看该作者   山东省枣庄市
555555555555555
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则 致发广告者

发布主题 收藏帖子 返回列表

sitemap| 易语言源码| 易语言教程| 易语言论坛| 易语言模块| 手机版| 广告投放| 精易论坛
拒绝任何人以任何形式在本论坛发表与中华人民共和国法律相抵触的言论,本站内容均为会员发表,并不代表精易立场!
论坛帖子内容仅用于技术交流学习和研究的目的,严禁用于非法目的,否则造成一切后果自负!如帖子内容侵害到你的权益,请联系我们!
防范网络诈骗,远离网络犯罪 违法和不良信息举报QQ: 793400750,邮箱:[email protected]
网站简介:精易论坛成立于2009年,是一个程序设计学习交流技术论坛,隶属于揭阳市揭东区精易科技有限公司所有。
Powered by Discuz! X3.4 揭阳市揭东区精易科技有限公司 ( 粤ICP备12094385号-1) 粤公网安备 44522102000125 增值电信业务经营许可证 粤B2-20192173

快速回复 返回顶部 返回列表