Use Vtxtauto.tlb!One Example:Dim vText As New VTxtAuto.VTxtAutoPrivate Sub Command1_Click() Dim astr As String
Command1.Enabled = False vText.Register vbNullString, "Speech" 'vtext.Register astr = "This is a sample of Microsoft Speech Engine?" vText.Speak astr, vtxtsp_NORMAL Or vtxtst_QUESTION End SubPrivate Sub Form_Unload(Cancel As Integer) Set vText = Nothing End Sub// Sub Speak(pszBuffer As String, dwFlags As Long) VTxtAuto.VTxtAuto 的成员 Speak the text.
可以读预先编辑好的文本! 你得先下载msagent.exe,然后安装(如果是windowsxp就不用了)。 在“工程”--〉“部件”添加"microsoft agent control 2.0". 出现agent控件,然后可以编程。
一、安装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环境下运行通过。运行时在文本编辑框中输入或粘贴英文文档,然后单击“朗读”按钮就可播放读音。 五、程序改进思路 本文对在VB编程中使用TTS技术只是起个抛砖引玉的作用,熟悉VB编程的电脑爱好者来可以对本程序作一些改进,例如增加对声卡和TTS引擎是否安装的检测、增加从文本文件或数据库中读取文档的功能、增加让用户选择朗读的优先级和发声音量调节等功能。这些功能实现起来较为复杂,感兴趣的读者可进行深入研究。
Const DATAPATH = "c:\windows\msagent\chars\"Dim Peedy As IAgentCtlCharacter Dim merlin As IAgentCtlCharacter Dim Request1, Request2 As IAgentCtlRequestPrivate Sub Command1_Click() Dim fs As Object Dim file As Variant Peedy.LanguageID = &H409 merlin.LanguageID = &H409 Peedy.MoveTo 150, 200 Peedy.Show Peedy.Play "Read" merlin.MoveTo 350, 200 merlin.Show merlin.Play "Write" Set fs = CreateObject("Scripting.fileSystemObject") Set file = fs.opentextFile("F:\我的文件\测试程序\vb测试\Agent\1.txt", 1, 0)'自己建一个文本文件,一行一句的。
Do While file.atendofline <> True Set Request1 = Peedy.Speak(file.readline) merlin.Wait Request1 Set Request2 = merlin.Speak(file.readline) Peedy.Wait Request2 Loop file.Close Set fs = Nothing Peedy.Play "ReadReturn" merlin.Play "WriteReturn" Peedy.Hide merlin.Hide
End SubPrivate Sub Form_Load() myAgent.Characters.Load "Peedy", DATAPATH & "Peedy.acs" myAgent.Characters.Load "merlin", DATAPATH & "merlin.acs"Set Peedy = myAgent.Characters("Peedy") Set merlin = myAgent.Characters("merlin")End SubPrivate Sub Form_Unload(Cancel As Integer) Set Peedy = Nothing Set merlin = Nothing End Sub
Dim astr As String
Command1.Enabled = False
vText.Register vbNullString, "Speech"
'vtext.Register
astr = "This is a sample of Microsoft Speech Engine?"
vText.Speak astr, vtxtsp_NORMAL Or vtxtst_QUESTION
End SubPrivate Sub Form_Unload(Cancel As Integer)
Set vText = Nothing
End Sub//
Sub Speak(pszBuffer As String, dwFlags As Long)
VTxtAuto.VTxtAuto 的成员
Speak the text.
具体是什么含义??劳烦高手赐教!!!!!
兄台可否详细一点??
十万火急啊!!!!!!
你得先下载msagent.exe,然后安装(如果是windowsxp就不用了)。
在“工程”--〉“部件”添加"microsoft agent control 2.0".
出现agent控件,然后可以编程。
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环境下运行通过。运行时在文本编辑框中输入或粘贴英文文档,然后单击“朗读”按钮就可播放读音。
五、程序改进思路
本文对在VB编程中使用TTS技术只是起个抛砖引玉的作用,熟悉VB编程的电脑爱好者来可以对本程序作一些改进,例如增加对声卡和TTS引擎是否安装的检测、增加从文本文件或数据库中读取文档的功能、增加让用户选择朗读的优先级和发声音量调节等功能。这些功能实现起来较为复杂,感兴趣的读者可进行深入研究。
Dim merlin As IAgentCtlCharacter
Dim Request1, Request2 As IAgentCtlRequestPrivate Sub Command1_Click()
Dim fs As Object
Dim file As Variant
Peedy.LanguageID = &H409
merlin.LanguageID = &H409
Peedy.MoveTo 150, 200
Peedy.Show
Peedy.Play "Read"
merlin.MoveTo 350, 200
merlin.Show
merlin.Play "Write"
Set fs = CreateObject("Scripting.fileSystemObject")
Set file = fs.opentextFile("F:\我的文件\测试程序\vb测试\Agent\1.txt", 1, 0)'自己建一个文本文件,一行一句的。
Do While file.atendofline <> True
Set Request1 = Peedy.Speak(file.readline)
merlin.Wait Request1
Set Request2 = merlin.Speak(file.readline)
Peedy.Wait Request2
Loop
file.Close
Set fs = Nothing
Peedy.Play "ReadReturn"
merlin.Play "WriteReturn"
Peedy.Hide
merlin.Hide
End SubPrivate Sub Form_Load()
myAgent.Characters.Load "Peedy", DATAPATH & "Peedy.acs"
myAgent.Characters.Load "merlin", DATAPATH & "merlin.acs"Set Peedy = myAgent.Characters("Peedy")
Set merlin = myAgent.Characters("merlin")End SubPrivate Sub Form_Unload(Cancel As Integer)
Set Peedy = Nothing
Set merlin = Nothing
End Sub
上下载。