2024年5月5日发(作者：)

维普资讯

计算机时代２００２年第３期　・ｌ９・　

用ＶＢ６．０开发英文朗读软件　

零月秀　

（广西师范走学５４１００４）　

１前言　

ＶＢ６＋０是功能强大的可视化编程语言，有很强的多媒　

体处理能力，如众所周知的演示动画、播放动态图像与声　

音文件等　大家都知道，声音文件的数据量非常尤　一分　

钟声音，单声道、８位采样位数、采样频率为１１．０２５ｋｌｔｚ，　

数据量为０　６６ＭＢ／￣＂：若采佯频率为２２．０５ｋＨｚ，则数据量　

为Ｉ　３２ＭＢ份，若为双声道，则为２　６ＭＢ／分。可以设想．　

如果不用事先录音，计算机能直接朗读文字那该多好啊。　

现在，我们这个设想宴现了，有点遗憾的是计算机只能朗　

读英文　

让计算机具有英文语音朗读功能是通过使用Ｍｉｃｒｏｓｏｆｔ　

的ＴＴｓ（Ｔｏｘｔ　ｔｏ　Ｓｐｅｃｃｈ）技术．对Ｍｉｃｒｏｓｏｆｔ　Ｓｐ￣ｃｈ　ＡＰＩ　

编程实现的　Ｍｉｃｒｏｓｏｆｔ　Ｓｐｅｅｃｈ　ＡＰＩ韵功能十分强大，不光　

可以准确地读出单词，而且还能够实现流利地朗读句子乃　

至段落、文章。　

在ＶＢ中．通过ＶｏｉｃｅＴｅｘｔＯｂｊｅｃｔ（ＶＴｘｔＡｕ￣对象）使　

用ＴＴｓ技术，使计算机具有说话的能力　Ｍｉｃｒｏｓｏｆｔ　Ｓｐｅｅｃｈ　

ＡＰＩ以ＣＯＭ组件的形式提供绐程序员，ＶＴｘｔＡｕｔｏ对象是　

一

个ＡｃｔｉｖｅＸＣＯＭ对象。　

２设置开发英语语音朗读软件的ＶＢ环境　

２．１安装Ｍｉｃｒｏｓｏｆｔ　Ｓｐｅｅｃｈ　ＡＰＩ　

Ｍｉｃｒｏｓｏｆｔ　Ｓｐｅｅｃｈ　ＡＰＩ在共享软件光盘中一般都会带有　

也可到ｈｔｔｐ：／／ｒｅｓｅａｒｃｈｍｉｃｒｏｓｏｆｔ．ｃ￣ｒｎ／网站击下载。垒山词　

霸２０００的英文全文朗读功能也是使用ＭｉｃｒｏｓｏｆｔＳｐｅ￣ｈＡＰＩ　

技术．因此，在垒山词霸光盘上也能找到它。在金山词霸　

２０００光盘上找到并打开ｉｃｉｂａ文件夹，运行并安装ｍｓＲｓ　

ｅｘｅ（Ｍｉｃｒｏｓｏｆｔ　ＴＴＳ　ｅｎｇｉｎｅ）和ｓｐｃｈａｐｉ　ｅｘｅ（Ｍｉｃｒｏｓｏｆｔ　Ｓｐｅｅｃｈ　

ＡＰＩ）即可。　

２．２在ＶＢ６．０工程中引用ＶｏｉｃｅＴｅｘｔＯｂｊｅｃｔ函数库　

虽然在系统中安装了Ｍｉｃｍｓｏ￣ＳｐｅｅｃｈＡＰＩ，但是，在用　

ＶＢ建立的工程中还不能直接引用ＶＴｘｔＡｕｌｏ对象，必须先　

在ＶＢＴ程工作环境中引用ＶｏｉｃｅＴｅｘｔＯｂｊｅｃｔ函数库。方法是：　

（１）单击“工程”菜单中的“引用”命令，出现“引　

用”对话框。　

（，１滚动列表哉到Ｖｏｉｃｅ　Ｔｅｘ＇ｔＯ　ｅｃｔＬｉｂｒａｒｙ选项，并单　

击其复选框．将其选定。　

（３）单击“确定”按钮关闭对话框。　

经过以上步骤，已经将Ｖｏｉｃｅ　Ｔｅｘｔ　Ｏｂｊｅｃｔ函数库引入　

到我们的工程中，单击ＶＢ６　０“视图”菜单下的“对象测　

览器”或按Ｆ２功能键，打开　对象浏览器　窗口，就可　

以在“对象浏览器”窗口的“工程，库”框中看到ＹＴｘｔＡｕｔｏ　

库．在“类”列表中可以看到ＶＴｘｔＡｕｔｏ类。现在就可以　

引用ＶＴｘｔＡｕｔｏ对象，使用ＶＴｘｌＡｕｔｏ对象的属性和方法编　

程了　

３　ＶＴｘｔＡｕｔｏ对象的属性和方法　

３　１属性　

｛ｉ）Ｃａｌｌｂａｃｋ属性　

这个属性用来指定一个自定义类的名字，这个类的方　

法接收来自ＶＴｘｔＡｕｔｏ对象的通知。这个自定义类必须包　

含一个ｓｐｃａｋｊｎ县ｓｔ　ｅｄ方法和一个ＳｐｅａｋｉｎｇＤｏ￣方法。　

（２）Ｅｎａｂ￣甜属性　

Ｅｎａｂｌｅｄ属性是使被朗读文本有效或无效，值为逻辑　

型　当取值为Ｔｒｕｅ时，文本有效，允许朗读　当取值为　

Ｆａｌｓｅ时．文本无效，禁止朗读　

（３）ＩｓＳｐｅａｋｉｎｇ属性　

这个属・睦用来检查ＶＴｘｔＡｕｔｏ对象是否正在朗读文本。　

若是，值为Ｔｒｕｅ　若不是，值为Ｆａｌｓｅ。这个属性为只读　

属性．不能赋值。　

（４）Ｓｐｅｅｄ属性　

这个属性用来设置或返回朗读的速度。速度韵单位为：　

字份，速度的取值范围在３Ｏ～５１０之间，超出这个范围将　

产生错误。Ｓｐｅｅｄ的值也可取０或・１，若取值为０，则速度　

设置为最慢值，即３Ｏ字份：若取值为－Ｉ，则建度设置为　

最快值，即为５１０字份。缺省值为１７０　分。　

３．２　ＶＴｘｔＡｕｔｏ对象的方法　

（】）王毒敷的方法　

语法为：对象方法　

无参数的方法共有５个，它们分别为：　

ＡｕｄｉｏＦａｓＦｏｒｗａｒｄ方法前进一个句子或短语　

ＡｕｄｉｏＰａｕｓｅ方法暂停朗读　

ＡｕｄｉｏＲｅｓｕｍｅ方法恢复朗读　

ＡｕｄｉｏＲｅｗｉｎｄ方法后退一个句子或短语　

ＳｔｏｐＳｐｅａｋｉｎｇ方法停止朗读　

维普资讯

２０・　Ｃｏｍｐｕｔｅｒ　ｅｒａ　Ｎｏ．３　２００２　

・

【２）有拳敷妁方法　

有参数的方法只有两个．Ｒｅｇｉｓｔｅｒ方法和Ｓｐｅａｋ方法。　

Ｒｅｇｉｓｔｅｒ方法用来注册使用ＶｔｘｔＡｕｔｏ对象的应用程序。　

必须在调用其它属　手日方法之前先使用这个方１挂。语法为：　

对象．Ｒｅｇｉｓｔｅｒ（ｓＳｉｔｅｎａｍｅ　ａｓ　Ｓｔｒｉｎｇ，ｓＡｐｐｌｉｃａｔｉｏｎｎａｍｅ　

ａｓ　Ｓｔｒｉｎｇ）　

第一个参数ｓＳｉｔｅｎａｍｅ指要连接到的位置，用一个空　

的字符串代替默认位置（“Ｌｏｃａｌ　ＰＣ”）。第二个参数ｓＡｐ－　

ｐ］ｉｃａｔｉｏｎｎａｍｅ为应用程序的名字。　

Ｓｐｅａｋ方法：该方法把指定的英文文本用语音朗读出　

来。语法为：　

对象Ｓｐｅａｋ｛ｓＴｅｘｔＴｏＳｐｅａｋ　ａＳ　Ｓｔｒｉｎｇ，ＩＦｌａｇ　ａｓ　Ｌｏｎｇ）　

参数ｓＴｅｘｔＴｏＳｐｅａｋ是用来向ＴＴｓ引擎传送需要朗读的　

文本　参数ＩＦｌａｇ是用来指定朗读时使用的语气及优先级，　

它的值如表ｌ所示　

表　

符号常辫　僵　Ｉ熏义　

删Ｉ平常雠的普气ｃ￡揩僵】　

４＇Ｔａｌ　ＱＩＥＳＵＯＮ　２　ｆ　硼　

语　ｍＩ　Ｃ　ｍ　ＡｈＤ　ｍ　竹６９　

ｍＩＷｌ删Ｇ　８　６９　

ｍＩｍ∞ｌｍ　＆ＨｌＯ嘲　６９　

ｍＩ　Ｎ【ｎ０ＥＲｓ　删０　适　弼ｉ臻撇气　

吡Ｉ刚强曲Ｓ＿哑ＥＴ　髓１０请　僦于黼甲埔的爵气　

ｔｉ，￣ｐ　ＶＥＲＹＨ　０　＆ｑＳＯ打断正在朗证明Ｐ嘱．旦孵出用此方式朗　

比先噩　Ｉ读的交丰．骺重薪钎馕已酣　的文丰．　

由　Ｄ　ＧＨ　＆ＨＩＯ０　ｌ镬完正在朗读弹嗯　１日　

Ｄ　ＮＯ№Ｌ　￣１２００　ｌ傩加＾播帆列末尾ｃ　佰：　

４一个简单的实例　

新建一个标准ＥＸＥ工程，按照上述第二个主题的步　

骤来设置工程的工作环境。在窗体上添加一个标签、一个　

文本框，四个命令按钮　窟体的ｈａｏｌｅ为　ｆｒｍＭａｉｕ”、ｃａｐｔｉｏｎ　

为“Ｔｈｅ　Ｅｎｇｌｉｓｈ　Ｓｐｅａｋｅｒ”：文本框的ｎａｍｅ为“ｔｘｔＥｄｉｔｏｒ”、　

ＭｕｌｔｉＬｉｎｅ为“Ｔｒｕｅ”、Ｓｃｒｏ］ｌｇａｒｓ为“２　ｖｅｎｉｃａ　四１、命　

令按钮的ｎａｍｅ分别为：“ｃｍｄＳｐｅａｋ”、“ｃｍｄＰａｕｓｅ”、　

“ｃｍｄＳ￣ｐ”、“ｃｍｄＥｘｉｔ”。程序的运行界面如图Ｉ昕示　

图】　

在代码窗口中输入　下代码：　

Ｏｐｔｉｏｎ　Ｅｘｐｌｉｃｉｔ　

Ｄｉｍ　Ｖｔｘｌ　ＡＳ　ＶＴｘＩＡｕｔｏ　ＶＴｘｔＡｕｔｏ　

’定卫具有点音能力的ＶＴｘＩＡｕｔｏ对象　

Ｄｉｍ　ＧｒｅｅｔＵｓｅｒ　Ａｓ　Ｓｔｒｉｎｇ　

Ｐｒｉｖａｔｅ　Ｓｕｂ　Ｆｏｒｍ　Ｌｏａｄ　０　

Ｓｅｔ　Ｖｔｘｔ＝Ｎｅｗ　ＩＡｕｔｏ　ＶＴｘｔＡｕｌｏ　

’建立一十新的ＶｌｘｔＡｕｔｏ对象　

Ｃａｌｌ　Ｖｔｘｔ　Ｒｅｇｉｓｔｅｒ（Ａｐｐ　Ｔｉｔｌｅ．Ａｐｐ　ＥＸＥＮａｍａ）　

注册本应用程序使用下Ｔｓ引肇　

设置朗读按钮为有效的，暂停与结束按钮为无效的　

ｃｍｄＳｐｅａｋ　Ｅｎａｂｌｅｄ＝Ｔｒｕｅ　

ｃｍｄＰａｕｓｅ　Ｅｎａｂｌｅｄ＝Ｆａｌｓｅ　

ｃｍｄＳｔｏｐ　Ｅｎａｂｌｅｄ＝Ｆａｌｓｅ　

’根据系统当前时间同候用户　

Ｖｔｘｔ　Ｓｐａｅｄ＝１３Ｄ　

ＩｆＴ￣ｍｅ￥０）”１８：００：００”Ｔｈｅｎ　

Ｇ　ｒｅｅｔＵｓｅｒ＝”Ｇｏｏｄ　ｅｖｅｎｉｎｇ！　

Ｅｌｓｅ　

ｔｆＴｉｍｅｓ　ｎ＞”１２　０Ｑ　００“Ｔｈｅｎ　

ＧｒｅｅｔＵｓｅｒ　’＿Ｇｏｏｄ　ａＳｅｒｎｏｏｎ！”　

Ｅｌｓｅ　

Ｇ　ｒｅｅｔＵｓｅｒ　”Ｇｏｏｄ　ｍｏｒｎｉｎｇ！”　

Ｅｎｄ　

Ｅｎｄｌｆ　

Ｃａｌｌ　Ｖｔｘｔ　Ｓｐｅａｋ（ＧｒｅｅｔＵｓｅ￣．ｖｌｘｔｓＬＳＴＡＴＥＭＥＮＴ）　

Ｅｎｄ　Ｓｕｂ　

Ｐｒｉｖａｔｅ　Ｓｕｂ　ｃｍｄＳｐｅａｋ＿ｃｌｉｄ（０　

Ｉｆ　ｔｘｔＥｄｉｌｏｒ．Ｔｅｘｌ＝＿Ｔｈｅｎ　

ＥｘｉｔＳｕｂ’若文本框申没有要朗读的英文，到培束子过程　

Ｅｌｓｅ　

Ｃａｌｌ　Ｖｌｔｘ　Ｓｐｅａｋ（ｔｘｔＥｄｉｌｏｒ　Ｔｅｘｔ．ｖｔｘｔｓｔ－ｓＴＡＴＥＭＥＮＴ）　

’朗读文本框申的蔓文文丰　

’朗读时．激活暂停与结束按钮　

ｏｍｄＰａｕｓｅ　Ｅｎａｂｌｅｄ＝Ｔｒｕｅ　

ｅｒｒｄＳＩｏｐ　Ｅｎａｂｌｅｄ＝Ｔｒｕｅ　

Ｅｎｄ　

ＥｎｄＳｕｂ　

Ｐｒｉｖａｔｅ　Ｓｕｂ　ｃｍｄＰａｕｓｅ

＿

Ｃｔｉｃｋ【）　

Ｉｆ　Ｖｈｔ　ＩｓＳｐｅａｋｉｎｇ　Ｔｈｅｎ　

Ｖｌｘｔ　ＡｕｄｉｏＰａｕｓｅ　’若正在朗读，则暂停　

ｏｍｄＰａｕｓｅ　Ｃａｐｔｉｏｎ　＆Ｒｅｓｕｍ　ｅ．．　

’暂停时，把按钮的标题改为“Ｒｅｓｕｍｅ”　

’暂停时，屏蔽朗读与结束按钮　

￣ｍｄＳｐｅａｋ　Ｅｎａｂｌｅｄ＝ＦａＩｅｓ　

ｃｍｄＳｌｏｐ　Ｅｎａｂｌｅｄ＝ＦａＩｓｅ　

Ｅｌｓｅ　

Ｖｔｘｔ　ＡｏｄｉｏＲｅｓｕｍｅ　’Ｉ蔓复朗读　

ｃｍｄＰａｕｓｅ　Ｃａｐｔｉｏｎ＝”＆Ｐａｕｓｅ＇’　

ｃｍｄＳｌｏｐ　Ｅｎａｂｌｅｄ＝Ｔｒｕｅ’恢复魄读后，激活结束按缸　

Ｅｎｄ　

Ｅｎｄ　Ｓｕｂ　

Ｐｒｉｖａｌｅ　Ｓｕｂ　ｃｍｄＳｔｏｐ

＿

ＣｌｉｃＲ　０　

ＩｆＶｌｘｔ　ＩｓＳｐｅａｋｉｎｇ　Ｔｈｅｎ　

Ｖｔｘｔ　ＳｔｏｐＳｐｅａｋｉｎｇ　’若正在朗读、姑柬朗读　

Ｅｎｄｌｆ　

ｔｘｔＥｄｉｌｏｒ　ＳｅｔＦｏｃｕｓ　

维普资讯

计算机时代２００２年第３期　－２１・　

怎样包装Ｃ＋＋Ｂｕｄｄｅｒ应用程序　

王有一　

（国家电力　司热工研究院７１００３２）　

一

般应用程序开发完成后，都需要进行包装，　便于　或选择的所有设定值都将存储在ＤＢＡ　ｉｗｚ文件里。　

同时，工具程序还显示出一张设定步骤表（如表１所　

示）。　

销售发行　你不必到市面上购买通用的安装程序制作软件，　

ｃ＋＋Ｂ　ｕｉ】ｄｃｒ的光盘内就附有一套用于分配发行的工具软件　

［ｎｓｔａＩｌＳｈｉｅＩｄ。当你的ｃ　一Ｂｕｉｌｄｅ　工程项目开发完成后，就　

可以使用这套工具程序把工程项目包舍的所有程序和数据　

文件包装起来。包装的文件主要包括应用程序的执行文件，　

其次，ＢＤＥ数据库引擎、ＳＱＩ　Ｌｉｎｋｓ驱动程序、ＯＣＸ文件、　

Ｐａｒａｄｏｘ或Ｆ０ｘｐｒ０数据库文件，应根据应用程序是否用到，　

进行选择包装。　

当体按照表格，执行完所有的设定步骤ｔ应用程序的　

包装就完成了　

２・ｌ第一设定步骤Ｓｅｔ　ｔｈｅ　Ｖｉｓｕａｌ　Ｄｅｓｉｇｎ　

点击第一设定步骤ＡｐｐＩ　ａｔｉｏｎＩｎｆｏｒｍａｔｉｏｎ项・会出现　

ｓ　ｔｈｅＶｉ　】Ｄ　ｇ　窗口的ＡＰＰＩ　ｆ０页面。请在ＡｐＰＩｉｃａｔｊｏｎ　

Ｎ虮忙框输入应用程序的名称，可以随意起一个名字辅入，　

２使用ＩｎｓｔａｌｌＳｈｉｅｌｄ包装数据库应用程序　如ＤＢＡ　ｏ在Ａｐｐ　ｉ。　ｉ。　。。　’。框输入应用程序的执行　

装警　应里程序是比较典型的应用，以下介绍怎｝羊包　Ｄｅｓ　ａ１　Ｄｉｒｅｃｔｏｒ＇框暂且不要首它，在后面的第四设定　

一　

数　应用　：　

从（『孑ｆ始”一“程序”菜单中选择执行ＥｘｐｒｅｓｓＦｏｒ　

Ｂ　＿】ｄ。ｒ４程序・即进入Ｉ“虬　【ｌｓｈｉ。Ｉｄ　Ｅ　ｐｒｅ　Ｌ　ｍｊ　ｄ　Ｅ曲ｉＤ盯　

。．．　　．

步骤中还可　对它设定修改　最后按－ｒ确定”，即完成该项　

目＾ｈ　自　

再进入Ｍ

ａｉｎ　Ｗｉｎｄ。ｗ页面．在Ｍ　ｎ　Ｔｉｔｌｅ项．可选　ｘｌ　

新　！。．掌击“ｓｔ　Ｆｉ晤。ｅ　工　”＿　”　开Ｎ奠‘比如Ｄ：ｗ　。Ｂｊ　和存储位　ｅｃ　窗呈，．尊　文字标题，如果休输入　国家电力公司”，则它会被作为　

置安装过程的显示标题。在Ｌ。ｇ。Ｂｉ【ｍａｐ项．可输入安姜　

（比如　、　ＹＤＢＡ　’然后单击“ｃｒｅ　

按钮，即在　程的显示画面

。

．

由于Ｉｎｓ扭儿ｓｈｊｅｌｄ　Ｅｘ　ｓｓ包　序只支持　

’结束明读后．把当前焦点移到文本框　准备精＾需要朗读文本　

ＥｎｄＳｕｂ　

ＥｎｄＳｕｂ　

运行程序时．计算机首先问候用户。当用户在文本框　

中输入需要朗读的英文后，单击“Ｓｐｅａｋ”按钮，计算机　

将把文本框中的英文朗读出来。文本榧具有编辑功能，如　

果要朗读的英文已在计算机中，用不着从键盘输入，把要　

朗读的英文复制到文本框即可　

Ｐｒｉｖａｔｅ　Ｓｕｂ　ｔｘｔＥｄｉｔｏｒ　ＧｏｔＦｏｃｕｓ　０　

’当前焦点在文本框时，激活朗读按钮、屏蔽暂停与结束　

按钮　

ｃｍｄＳｐｅａｋ　Ｅｎａｂｌｅｄ＝＂ｌ－ｒＬｉｅ　

ｃｍｄＳｔｏｐ　Ｅｎａｂｌｅｄ＝Ｆａｌｓｅ　

ｃｍｄＰａｕｓｅ　Ｅｎａｂｌｅｄ＝Ｆａｌｓｅ　

Ｅｎｄ　Ｓｕｂ　

Ｐｄｖａｔｅ　Ｓｕｂ　Ｆｏｍ

—

５结束语　

上述程序是一个使用Ｔ丁ｓ技术的简单实例，可以用来　

学习英语单词或短语的发音、朗读课文、｛啦听力练习，也　

可以用来校对英文文章。如果把ＴＴｓ技术应用到英语课件　

中去，用来朗读课文，不仅可　省掉大量的录音工作，还　

可　节省大量的存储空间，使课件的体积大大地减小。当　

然，使用Ｔ丁ｓ技术还不能实现口语中如带感情色彩的语　

调、语速等的变化．显得有点单调　以上程序在Ｗｉｎｄｏｗｓ９８、　

ＶＢ６　０中调试通过　

Ｕｎｌｏａｄ（Ｃａｎｃｅｌ　Ａｓ　Ｉｎｔｅｇｅｒ）　

ＩｆＶｔｘｔ　ＩｓＳｐｅａｋｉｎｇＴｈｅｎ　

Ｖｔｘｌ　ＳｌｏｐＳｐｅａｋｉｎｇ　

ＥｎｄＩｆ　

ＳｅｔＶｔｘｔ＝Ｎｏｔｈｉｎｇ’关闭ＶｔｘｌＡｕｔｏ对象　

Ｅｎｄ　Ｓｕｂ　

Ｐｄｖａｌａ　Ｓｕｂ　ｃｍｄＥｘｉｔ

ｃｌｉｃｋ　０　

＿

Ｅ