一句代码让你的电脑开口讲话-红尘如烟
Access软件网QQ交流学习群(群号码198465573),欢迎您的加入!
首页 >技术文章> Access数据库-模块/函数/VBA


一句代码让你的电脑开口讲话

发表时间:2016/10/26 20:03:32 评论(13) 浏览(60071)  评论 | 加入收藏 | 复制
   
摘 要:一句代码调用Windows语音功能播报文字。
正 文:

昨日夜间跑步,奈何老天逗我玩,一霎阵雨之后成了落汤鸡。


今日早醒来,忽感头壳炸裂脑浆迸,欲仙欲死不是梦,于是歇息一日。


昏睡整日,晚上又有了些许精神,无甚聊赖瞎转悠。


偶遇一网友,言道自已在开发一个收银系统,想要做发声功能。


即:收银时,可以对应收多少金额、优惠多少金额、顾客付款多少金额、找零多少金额等进行语音播报提醒。


他目前用的是在网站上找到的方法,即把每个数字,每句话做成不同的声音文件,然后用PlaySound这个播放声音功能的API函数去播放。


但这样做起来太烦琐了,一些声音文件在网上找不到。他甚至还在想,是不是要找个声音甜美的妹纸给录一下音。问我有没有好点的方法。


我闻之大惊:你是从古代穿越来的么?!现在语音技术这么发达了,瘟到死系统自带的语音功能不要太好用,你居然还在用这么古董的方法!?


下面这一句代码就能解决:

CreateObject("SAPI.SpVoice").Speak "总共13585.43元,收您20000元,找您6414.57元!"

此君听后怔立半晌,眼神发直的望着我。


都看得我毛骨悚然,心想这厮不是垂涎我的美色,想要对我做不法的事?我是该赶紧跑呢?还是报警呢?


正当我犹疑不定之时,突然听得此人发一声大喊,狂奔而走,惊起一阵烟尘,风中飘来一把声音“我先回去改代码!……”


备   注:

遇到有的网友电脑上不能发声读出来的情况,则需要下载语音库补丁安装一下,下载地址如下

http://pan.baidu.com/s/1jIyO9pG




Access软件网交流QQ群(群号:198465573)
 
 相关文章
如何让access发声朗读  【Fans  2007/11/28】
[分享]语音朗读通用模块  【fan0217  2008/10/6】
【access小品】谁在说话?!---语音朗读示例  【todaynew  2011/1/17】
【给力示例】发声报警-带声音的自动提醒示例,关于定时执行代码的案例...  【麥田  2011/4/12】
光标移动至命令按钮时字体变色集锦(按钮遇到鼠标时发声)  【jia  2011/12/24】
文字发声阅读  【shuyangchao  2014/7/19】
常见问答
技术分类
相关资源
文章搜索
关于作者

红尘如烟

文章分类

文章存档

友情链接