在VB中使用文字朗读引擎（TTS）技术

现今市⾯上流⾏的⼀些英语学习软件，在⼴告词上经常说⾃⼰使⽤了国际顶尖的全程语⾳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控件和六个CommandButton控件。窗体及各控件的主要属性设置如下：

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属性值分别⽤来限定可调节的语速的最⼩与值）

COMMAND1：名称=read；Caption=“朗读”

COMMAND2：名称=pause；Caption=“暂停”

COMMAND3：名称=stop；Caption=“停⽌”

COMMAND4：名称=prev；Caption=“上⼀句”

COMMAND5：名称=next；Caption=“下⼀句”

COMMAND6：名称=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()

japanese from voice 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/98、VB 5.0环境下运⾏通过。运⾏时在⽂本编辑框中输⼊或粘贴英⽂⽂档，然后单击“朗读”按钮就可播放读⾳。

五、程序改进思路

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

本文发布于:2024-09-21 16:34:27，感谢您对本站的认可！

本文链接：https://www.17tex.com/xueshu/231440.html

上一篇：白中英《计算机组成原理》(第5版)专业课复习题库(考研真题精选-综合应用题)【圣才出品】

下一篇：行业英语：计算机术语CPU类

标签：朗读代码设置按钮属性编程功能控件

留言与评论（共有 0 条评论）