锐客网

  1. 首页 > 睿知 > it技术 > >

vb.nettts的简单介绍

IT技术穿址

想在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 vb.nettts我", 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("我听到vb.nettts了"话语.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如何使用Microsoft Speech SDK5.1安装vb.nettts了sdk后应该可以在控件箱单击鼠标右键vb.nettts，然后选择部件，在弹出vb.nettts的列表中应该可以找到microsoft tts engine或之类的东西，选择后就可以吧tts engine作为控件放到窗体上 。调用貌似是用.speak(String)实现的 。由于vb.nettts我是很久以前用的，所以也记得不是很清楚了，vb.nettts你可以找找看 。
如何应用vb.net语言获取并修改DataGridView控件中的checkBox用 CType(TTS_View1.Rows.Item(i).Cells(j).Controls(1), CheckBox).Checked 判断
If CType(TTS_View1.Rows.Item(i).Cells(j).Controls(1), CheckBox).Checked = True Then
else
end if
vb.net如何调用窗体之间的控件Public Class ks
Inherits System.Windows.Forms.Form
#Region " Windows 窗体设计器生成vb.nettts的代码 "
Public Sub New()
MyBase.New()
'该调用是 Windows 窗体设计器所必需vb.nettts的 。
InitializeComponent()
'在 InitializeComponent() 调用之后添加任何初始化
End Sub
'窗体重写 dispose 以清理组件列表 。
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
'Windows 窗体设计器所必需vb.nettts的

推荐阅读


上一篇：postgre服务无法启动，post 服务器

下一篇：娘子关压饼工具直播，娘子关脆饼