三九宝宝网宝宝百科宝宝知识

在VB中使用文字朗读引擎

12月17日 编辑 39baobao.com

[在PS中如何文字图片叠加]2选取想要叠加显示的图片,打开为文件2。3把文件2的图片图层拖拽进文件1内,遮挡住文字内容。4按住alt点选图片图层,效果可见。5选择文字的字体,以配合图片显示的统一效果。6...+阅读

现今市面上流行的一些英语学习软件,在广告词上经常说自己使用了国际顶尖的全程语音TTS技术,能进行整段英文的流利朗读,并能自由调节朗读的速度与频率等。那么,这个神奇的TTS究竟是什么东西呢?

其实,TTS是微软出品的一套文字朗读引擎(Text-To-Speech Engine),这些英语软件就是调用它来进行英文朗读的。我们在英语学习软件的编程开发中也可使用TTS技术,下面笔者将利用Visual Basic 5.0来揭开TTS神秘的面纱。

一、安装TTS引擎

TTS引擎所需的Microsoft Text-to-Speech Engine与Microsoft Speech API软件都可到微软的站点去下载,也可以在“金山词霸2000”或“金山词霸.”的安装光盘上找到(文件名为MSTTS.EXE与SPCHAPI.EXE)。安装了TTS引擎后,在Windows所在目录下会生成一个SPEECH目录,其中有一个Vtxtauto.tlb文件,在编程时我们需要调用它。

二、在VB中引入Vtxtauto.tlb文件

进入VB 5.0,执行选单命令“文件/新建工程/标准EXE”并确定,然后执行选单“工程”中的“引用”,单击“浏览”按钮到Windows目录下的SPEECH子目录,打开Vtxtauto.tlb文件,将“VoiceText 1.0 Type Library”添加到引用列表中,选中它并单击确定。将库Vtxtauto引入VB后,我们可以通过选单“视图”中的“对象浏览器”来了解它所封装的类,以及各类成员函数的属性的意义、使用格式等信息。考试,大提示一些主要的方法与属性意义,笔者在下面的源程序中将给出注释,在这里就不详细列出。

三、设置控件及属性

在FORM1上添加三个Label控件、一个TextBox控件、一个HScrollBar控件和六个mandButton控件。窗体及各控件的主要属性设置如下:

FORM1:Caption=“英文朗读”

LABEL1:Caption=“请输入英文文档”

LABEL2:Caption=“朗读速度”

LABEL3:Caption=“ ”

(LABEL3标签用来显示朗读速度值)

TEXT1:Text=“Please input english text”;ToolTiptext=“请输入或粘贴英文文档”; MultiLine=True;ScrollBars=3-Both

HSCROLL1:名称=SpeedChange;Min=90;Max=300(Min与Max属性值分别用来限定可调节的语速的最小与值)

MAND1:名称=read;Caption=“朗读”

MAND2:名称=pause;Caption=“暂停”

MAND3:名称=stop;Caption=“停止”

MAND4:名称=prev;Caption=“上一句”

MAND5:名称=next;Caption=“下一句”

MAND6:名称=quit;Caption=“退出”

四、编写代码

下面我们就可以一步步地编写代码,具体代码如下:

’在窗体装载时调用Register方法注册,括号内的两个参数是字符串

Private Sub Form_Load()

Call VTxtAuto.VTxtAuto.Register(Space(8), Space(8))

’因为语速的默认值为170,故水平滚动条的初值也设为170

SpeedChange.Value = 170

End Sub

’设置朗读速度调节代码,当水平滚动条的值Value发生变化时将其赋给控制语速的Speed属性

Private Sub SpeedChange_Change()

VTxtAuto.VTxtAuto.Speed=SpeedChange.Value

Label3.Caption = SpeedChange.Value

End Sub

’设置“朗读”按钮代码

Private Sub read_Click()

’如果朗读出错,则转到出错处理标记模块ErrorHandler

On Error GoTo ErrorHandler

’调用方法Speak进行朗读,第一个参数是要朗读的文本,第二个参数是设置朗读风格

Call VTxtAuto.VTxtAuto.speak(Trim(Text1.Text), vtxtsp_VERYHIGH + vtxtst_READING)

Exit Sub

ErrorHandler:

MsgBox "只能朗读英文文档,不能朗读汉字字符!", , "出错信息"

End Sub

’设置“暂停”按钮代码

Private Sub pause_Click()

If VTxtAuto.VTxtAuto.IsSpeaking Then

’如果属性IsSpeaking为真,则表示正在朗读,调用AudioPause方法暂停朗读

Call VTxtAuto.VTxtAuto.AudioPause

pause.Caption = "恢复"

Else

’如果已经处于暂停状态则调用AudioResume方法恢复朗读

Call VTxtAuto.VTxtAuto.AudioResume

pause.Caption = "暂停"

End If

End Sub

’设置“停止”按钮代码,调用StopSpeaking方法停止当前朗读

Private Sub stop_Click()

Call VTxtAuto.VTxtAuto.StopSpeaking

End Sub

’设置“上一句”按钮代码,调用AudioRewind方法往后跳过一句

Private Sub prev_Click()

Call VTxtAuto.VTxtAuto.AudioRewind

End Sub

’设置“下一句”按钮代码,调用AudioFastForward方法向前跳过一句

Private Sub next_Click()

Call VTxtAuto.VTxtAuto.AudioFastForward

End Sub

’设置“退出”按钮代码

Private Sub quit_Click()

Unload Me

End Sub

本程序在中文Windows 95/9

8、VB 5.0环境下运行通过。运行时在文本编辑框中输入或粘贴英文文档,然后单击“朗读”按钮就可播放读音。

五、程序改进思路

本文对在VB编程中使用TTS技术只是起个抛砖引玉的作用,熟悉VB编程的电脑爱好者来可以对本程序作一些改进,例如增加对声卡和TTS引擎是否安装的检测、增加从文本文件或数据库中读取文档的功能、增加让用户选择朗读的优先级和发声音量调节等功能。这些功能实现起来较为复杂,感兴趣的读者可进行深入研究。

以下为关联文档:

每天给孩子朗读书10分钟,不可思议的变化将悄悄降临就像曾经的我,很多家庭的父母一度认为给孩子“讲”故事对孩子来说容易被孩子接受。但随着认识的积累,我越来越深刻地意识到,朗读对年幼的孩子来说更好,甚至因此懊恼为何不在孩子...

如何在CAD中提取文字2在天正建筑中打开你所需提取文字的cad图纸3找到你所要提取的文字,鼠标右击,出现图示小工具栏。鼠标左击选择多行文字,即可出现多行文字的操作界面。4在多行文字的操作界面...

word2010中如何设计文字效果2右键单击选择字体3选择字体,效果如图所示4选择字体、字号、字形效果5选择字体颜色和下划线效果,着重号6选择效果,如图所示设置字符格式和段落格式的快捷键快捷键 作用 Ct...

雅思听力提高方法朗读是关键雅思听力提高方法朗读是关键针对这个问题,给大家的方法和建议一是多听多听再多听,这是基本也是有效的。二是平时可以大声朗读文章,并且要有一定的速度。快速的朗读在一定程度...

2007年3期目录文字备选 特别策划 Special Section 巧手辅食经典提案 宝宝4~6个月,你最需要的是什么?一份清晰的实用指南!这里,汇集了妈妈们最关心的话题和权威专家最到位的经典解答! 流感过后,一线医...

利用朗读增强朗读的效果虽然任何形式的朗读都是有益的,但若以某些特定的方式朗读,效果会更好。一般而言,朗读形式的互动性越强,孩子就越有可能听清字母的发音,听懂故事,把书中的事物与其现实世界中的事物...

朗读是我们终身的阅读素养——发现声音之美按照学校的安排,今天我就把听到的武琼老师的讲座结合自己的理解,在此做一浅层次的分享和交流,如有不当之处还请您不吝赐教。 古人云: 胸藏百汇凭吞吐,笔有千钧任翕张。 听武琼老...

体验促理解,朗读促感悟太仓市城厢镇第一小学 施彩萍 【案例】 窗含西岭千秋雪 的教学片断 《绝句》(杜甫) 教学过程如下:⑴ 自主读,思考:你眼前仿佛看到了什么?⑵ 全班交流: ①在这句话中,你有什么不理解...

阅读,从改变开始——读《朗读手册》有感新沂市机关幼儿园 薄惠琳, 你或许拥有无限财富,一箱箱的珠宝与一柜柜的黄金,但你永远不会比我富有,我有一位读书给我听的妈妈。 第一次听到这段话,是在一次萤火虫亲子阅读活动中,...

推荐阅读
图文推荐