vb.net+转语音 vba 语音

vb.net文字转语音

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim s As Object

s = CreateObject("sapi.spvoice")

s.speak("speak")

End Sub

相关问答

Q1: vb.net调用c语音编写的，dll文件时，报错找不到接口，怎么办？

添加引用vb.net+转语音，不要使用Declare Function来声明

Q2: vb 编个小程序 怎样使在text1和text2输入阿拉伯数字时自动人声报号，我有数字0--9的 .wav文件

给你个TTS有关的东西，就是文字转换语音的，不知道适合你不，不用wav文件了。

____________________________________________________________________

在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”或“金山词霸.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引擎是否安装的检测、增加从文本文件或数据库中读取文档的功能、增加让用户选择朗读的优先级和发声音量调节等功能。这些功能实现起来较为复杂，感兴趣的读者可进行深入研究。

Q3: vb.net怎么做中文语音识别程序

首先添加一个系统的语音COM组件的引用microsoft speech object library然后在程序中声明一个语音类dim RC As SpeechLib.SpSharedRecoContext这个类有一些事件,如果你要处理它的一些事件,可以用withevent来声明然后在窗体LOAD事件或你需要的地方先创建一个实例RC = New SpeechLib.SpSharedRecoContext当一个RC被实例化后,系统就会运行语音识别程序.前提是你的系统已经正确安装这个功能.一般默认就已经安装好的.其次提醒一下,WIN7的语音识别比XP的好N倍.从阅读到侦听都好很多.然后就可以在你需要阅读的地方使用RC.Voice.Speak("hello 我", 11)11那里是一些枚举,用来标识系统用前台还是后台或其他方式来阅读文字,简单的来说就是阅读的时候不会卡住你的程序.你可以选其他的枚举来试试作用.以上为阅读部分.如果需要程序听你说话,则需要声明一个侦听类dim RG As SpeechLib.ISpeechRecoGrammar在初始化时将之与上面的RC建立关系,此时则必须要用withevent来声明上面的RC,因为涉及电脑听到你的语音后,会触发一个事件,并将听到的内容传递到该事件.其次,要让系统听到的解析为命令,就必须准备一个XML结构的文件来保存那些固定的命令.如果电脑在XML文件中找不到那些固定命令或同时不属于系统命令,电脑将会将其解释为听写.RG = RC.CreateGrammar '(0)

RG.CmdLoadFromFile("听到.xml", SpeechLib.SpeechLoadOption.SLODynamic)

RG.CmdSetRuleIdState(0, SpeechLib.SpeechRuleState.SGDSActive)然后写一个过程来处理听到的事件Private Sub 听到命令(ByVal StreamNumber As Integer, ByVal StreamPosition As Object, ByVal RecognitionType As SpeechLib.SpeechRecognitionType, ByVal 话语 As SpeechLib.ISpeechRecoResult) Handles RC.Recognition RC.Voice.Speak("我听到了" 话语.PhraseInfo.GetText, 11)End Sub以上为侦听部分.下面列一个XML的例文?xml version="1.0" encoding="gb2312"?

GRAMMAR LANGID="804"

RULE NAME="命令" TOPLEVEL="ACTIVE"

L

P打开播放器

P上我的QQ

P关闭你自己 /L

/RULE

/GRAMMAR要让系统正确地侦听到你说的话,前提你必须运行语音识别程序并让其激活到"正在聆听"状态.并且你必须有一个能正常使用的话筒而且保证话筒已经打开.(废话-_-|||)以上就是用VB.NET语音识别的最基本的一些操作.希望对你有帮助.更深入的内容有兴趣的话可以和我一起研究.

Q4: VB.net如何使用Microsoft Speech SDK5.1

MS Speech 是一个合成语音软件，可用来形成语音（例如朗读"Hi I am Mike"），Speech SDK是用来将Speech的功能使用于自己的程序的辅助开发工具。

Q5: 哪个翻译软件好？

比较好用vb.net+转语音的翻译软件有找翻译app、拍拍译、有道翻译官、小猿搜题、扫描翻译大师。

1、找翻译app

找翻译vb.net+转语音，这是款非常优质的手机翻译软件，集合拍照翻译、语音翻译等功能于一身，让vb.net+转语音你随时轻松解决语音问题，更有专业的人工翻译服务，既满足了语言需求者的需要，同时也为翻译行业的从业人员提供兼职机会。

2、拍拍译

拍拍译是款专业好用的拍照翻译软件，随时随地为用户提供实时翻译服务，无论是学习、工作，还是旅游中都能轻松翻译，还有精准的语音识别及翻译引擎，帮vb.net+转语音你出国旅游旅行时与外国人轻松交流，灵敏迅速，翻译精准，堪比同声传译。

3、扫描翻译大师

描翻译大师ios是一款专为的图文识别翻译神器，选择或者拍一张带有文字的照片，选取需要扫描识别区域，文本就会立刻识别呈现，上手简单，手机小白也能轻松操作，帮助大火把们轻松翻译、编辑、分享。

4、有道翻译官

有道翻译官是一款功能强大的翻译软件，配备强大的摄像头取词和拍照翻译功能，一拍即译无需手动输入便可快速获取翻译结果，这款软件支持107种语言翻译，采用最先进的翻译技术，提高翻译的准确率和效率。

5、小猿搜题

小猿搜题是一款学生们都在使用的手机拍照搜题助手。碰到不会的作业题目，只需要拿出手机，打开小猿搜题，一键拍照，答案秒出vb.net+转语音！还能够收藏作业供以后复习查看，无需注册，永久免费。

使用搜题软件的弊端：

1、学生的惰性加大，作业全做对，考试都不会。长期使用搜题软件会导致听课效率降低，反正作业可以抄得到，省时省力，正确率高。瞬时的快感会导致学生强烈地依赖搜题软件，搜题软件成为阻碍学生进步的绊脚石，不是帮手，是“杀手”。

2、单纯抄答案的学生学习成绩会有所下降。搜题软件会呈现答案、学习方法、思路分析，但绝大多数学生只是一味地照抄答案，并没有对其中的解题思路进行反思。

关于vb.net+转语音和vba 语音的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。