当前位置: 网学 > 编程文档 > VB > 正文

在VB中使用文字朗读引擎(TTS)技术

来源:Http://myeducs.cn 联系QQ:点击这里给我发消息 作者: 用户投稿 来源: 网络 发布时间: 12/10/16
下载{$ArticleTitle}原创论文样式

作者:许锦新

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

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

  一、安装TTS引擎
  TTS引擎所需的Microsoft Text-to-Speech Engine与Microsoft Speech API软件都可到微软的站点去下载,也可以在“金山词霸2000”或“金山词霸.net”的安装光盘上找到(文件名为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()

  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

  ''设置“暂停”按
  • 上一篇资讯: 用VB5创建B/S程序
  • 网学推荐

    免费论文

    原创论文

    浏览:
    设为首页 | 加入收藏 | 论文首页 | 论文专题 | 设计下载 | 网学软件 | 论文模板 | 论文资源 | 程序设计 | 关于网学 | 站内搜索 | 网学留言 | 友情链接 | 资料中心
    版权所有 QQ:3710167 邮箱:3710167@qq.com 网学网 [Myeducs.cn] 您电脑的分辨率是 像素
    Copyright 2008-2015 myeducs.Cn www.myeducs.Cn All Rights Reserved
    湘ICP备09003080号