vb.nettts语音 vba编程发语音

想在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语音识别的最基本的一些操作.希望对你有帮助.更深入的内容有兴趣的话可以和我一起研究.
VB里怎么使用微软tts5.1语音引擎分类:电脑/网络程序设计其他编程语言
问题描述:
VB里怎么使用微软tts5.1语音引擎啊,高手请简单说下,最好有源代码 , 谢谢!
解析:
去微软网站下载 Microsoft Speech SDK 安装上 , SDK 中有文档和示例
vb 语言如何设置tts引擎1.检查手机系统设置中是否有以下项:
[设置] -- [语音输入与输出] -- [文字转语音设置]
一般来说,港行手机有,国行手机没有,配置较高的手机有,配置较低的手机没有 。
2.如果手机系统设置中有上述项,说明手机具备TTS功能 。但系统自带的默认TTS引擎是PicoTTS,并不支持中文朗读,如果想朗读中文可以自行下载第三方TTS引擎 。推荐下载[三星TTS]安装包,简单易用 , 中文朗读效果也不错 。
下载地址:[ 三星TTS ]
注:这个安装包只支持中文[女声]
3. 上述安装包下载安装成功后,在其运行主界面点击[安装TTS主程序] , 完成后将[三星TTS]设置为默认引擎 。
【vb.nettts语音 vba编程发语音】[设置] -- [语音输入与输出] -- [文字转语音设置] -- 将 [Samsung Mobile TTS]勾选上 -- 将[默认引擎] 选中项改为'Samsung Mobile TTS'
4. 在听书应用中将朗读语言设置为中文
VB.net如何使用Microsoft Speech SDK5.1安装了sdk后应该可以在控件箱单击鼠标右键,然后选择部件,在弹出的列表中应该可以找到microsoft tts engine或之类的东西,选择后就可以吧tts engine作为控件放到窗体上 。调用貌似是用.speak(String)实现的 。由于我是很久以前用的,所以也记得不是很清楚了,你可以找找看 。
vb.nettts语音的介绍就聊到这里吧,感谢你花时间阅读本站内容 , 更多关于vba编程发语音、vb.nettts语音的信息别忘了在本站进行查找喔 。

    推荐阅读