--=== 让你的程序开始说话(在VB中使用文字朗读引擎(TTS)技术)===--

原创 2001年05月04日 17:29:00
在VB中使用文字朗读引擎(TTS)技术
(作者:许锦新 2001年04月10日 13:52)

  现今市面上流行的一些英语学习软件,在广告词上经常说自己使用了国际顶尖的全程语音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后,我们可以通过选单“视图”中的“对象浏览器”来了解它所封装的类,以及各类成员函数的属性的意义、使用格式等信息。一些主要的方法与属性意义,笔者在下面的源程序中将给出注释,在这里就不详细列出,请参见附图1。


  三、设置控件及属性
  在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

  '设置“暂停”按钮代码

  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环境下运行通过。运行时在文本编辑框中输入或粘贴英文文档,然后单击“朗读”按钮就可播放读音,运行界面如图2。


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

用VB制作的语音朗读文本的程序

  • 2011年11月20日 10:46
  • 75KB
  • 下载

【VC++技术杂谈004】使用微软TTS语音引擎实现文本朗读

本文主要介绍如何使用微软TTS语音引擎实现文本朗读,以及生成wav格式的声音文件。   1.语音引擎及语音库的安装   TTS(Text-To-Speech)是指文本语音的简称,即通...
  • shaofei63
  • shaofei63
  • 2015年01月13日 20:56
  • 779

用C#实现语音技术

用C#实现语音技术【IT168 编程开发】“电脑朗读”(英文)一个很好的触发点,通过它可以实现电子小说阅读、英文听力测试、英文单词学习...  下面的Speech已对MSTTS作了简单封装。  1.安...
  • letian_fly
  • letian_fly
  • 2008年06月17日 15:20
  • 346

金山词霸”屏幕取词技术揭密(讨论稿)

金山词霸”屏幕取词技术揭密(讨论稿) 这篇文章最早是发在北极星论坛的一系列帖子,那时候闻怡洋(好像他也是MVP)也在那里混原始的帖子我已经没有了,但不知道是谁帮我收集整理了下来(非常感谢),我用goo...
  • eagletian
  • eagletian
  • 2006年11月08日 18:47
  • 4371

微软TTS语音引擎编程入门

我们都使用过一些某某词霸的英语学习工具软件,它们大多都有朗读的功能,其实这就是利用的Windows的TTS(Text To Speech)语音引擎。它包含在Windows Speech SDK开发...
  • u012250337
  • u012250337
  • 2016年06月20日 17:18
  • 4803

TTS-零基础入门之停止列表中单条语音播报

做了一个语音 循环播报列表信息。当我新删除了一天列表之后,发现它只有在下一轮播报中才会取消。这明显是不合理的。 一开始的代码是这样写的。 /// /// ...
  • u010176014
  • u010176014
  • 2015年08月18日 10:05
  • 1766

C#.NET使用TTS引擎实现文语转换

[转载] 本文讲述使用微软TTS5.1语音引擎(中文)实现文本阅读和音频输出为WAV完美解决方案。 网上很多文章说的是要安装SAPI.51 SDK,而这个东西有好几十M,并且用起来比较复杂。微软...
  • luoyanqing119
  • luoyanqing119
  • 2014年09月30日 16:24
  • 945

JAVA朗读中文字符串

package com.mohe.tts; import java.awt.Dimension; import java.awt.event.ActionEvent; import java.a...
  • daixinmei
  • daixinmei
  • 2013年08月22日 09:48
  • 5746

基于TextToSpeech(tts)引擎的朗读demo,很好玩的一个功能

很好玩的一个功能,有需要的朋友可以look look~~
  • DaJian35
  • DaJian35
  • 2015年01月09日 16:13
  • 1160

7 个开源的TTS(文本转语音)系统推荐

前言:TTS在电视产品的应用,能够帮助对电视机界面无法采用可视化标准访问的盲人和弱视的人,在欧洲在美国已经开始制订了规范的实现标准,和实施的规章制度。 Ref: http:...
  • yellow_hill
  • yellow_hill
  • 2017年08月02日 13:55
  • 1467
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:--=== 让你的程序开始说话(在VB中使用文字朗读引擎(TTS)技术)===--
举报原因:
原因补充:

(最多只允许输入30个字)