189 8069 5689
Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
公司主营业务：网站制作、成都网站制作、移动网站开发等业务。帮助企业客户真正实现互联网宣传，提高企业的竞争能力。创新互联公司是一支青春激扬、勤奋敬业、活力青春激扬、勤奋敬业、活力澎湃、和谐高效的团队。公司秉承以“开放、自由、严谨、自律”为核心的企业文化，感谢他们对我们的高要求，感谢他们从不同领域给我们带来的挑战，让我们激情的团队有机会用头脑与智慧不断的给客户带来惊喜。创新互联公司推出常熟免费做网站回馈大家。
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call mciExecute("play F:\MUSIC\WMA\guitar\强调乐队-无声的叹息.mp3 ")
End Sub
复制可不怎么好吧,那些dll你都要有才行,vb.net做安装程序也不麻烦,只要添加一个新项目--安装向导,根据提示按下去就是了
哎~~~都说得很清楚了,你还......再给个提示吧,用timeofday来提取当前时间,和自定义时间对比
首先添加一个系统的语音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语音识别的最基本的一些操作.希望对你有帮助.更深入的内容有兴趣的话可以和我一起研究.
这就要调用API函数了
给你代码吧
记得给点分啊
Private
Const
KeysM
=
H8000
Private
Declare
Function
GetAsyncKeyState
Lib
"user32"
(ByVal
vKey
As
Long)
As
Integer
Private
Sub
TextBox1_KeyDown(ByVal
sender
As
Object,
ByVal
e
As
System.Windows.Forms.KeyEventArgs)
Handles
TextBox1.KeyDown
Me.Text
=
e.KeyValue
If
e.KeyValue
=
Keys.ShiftKey
And
GetAsyncKeyState(160)
And
KeysM
Then
MsgBox("你按的是左SHIFT")
ElseIf
e.KeyValue
=
Keys.ShiftKey
And
GetAsyncKeyState(161)
And
KeysM
Then
MsgBox("你按的是右SHIFT")
End
If
End
Sub
众所周知，Visual Basic是功能非常强大的多媒体开发工具，它有丰富的函数和方法处理各种各样的多媒体信息，能够很灵活的操作图形、声音、动画、影象等多媒体素材。但有时我们使用Visual Basic开发非多媒体应用程序，并不需要在应用程序中大量的使用声音，而只是需要在特定的场合出现。如Windows的警告声。这就要求程序员在恰当的环境中恰当的使用声音文件，既不失去VB在多媒体方面的特长，又能够为应用程序增加吸引人的效果。VB可以用于输出声音的方法很多，归结一下，大概有以下四种： 1.利用Beep语句
这是VB系统提供的一条利用计算机扬声器发声的语句，它只能够发出简单的蜂鸣声，但在应用程序中大量用于输出警告的信息。如下例允许用户在文本框中输入数字，当用户输入错误时，系统会报警提示。
Sub Text1_KeyPress (keyascii As Integer)
If keyascii 48 Or keyascii 57 Then
Beep:Beep: Beep
keyascii = 0
End If
End Sub 2.其实计算机的蜂鸣器也可以发出不同频率、音高的声音，从而奏出美妙的音乐。方法是调用Windows的一些有关发声的API函数。Windows系统包含十六个声音函数，它们都存放在Windows的SOUND.DRV这个驱动程序所包含的动态连接库中。其中最常用的四个函数是OpenSound，CloseSound，SetVoiceNote，StartSound。其声明格式如下：
Declare Function OpenSound Lib "Sound" () As Integer
Declare Sub CloseSound Lib "Sound" ()
Declare Function SetVoiceNote Lib "Sound" (ByVal nVoice As
Integer, ByVal nValue As Integer, ByVal nLength As Integer, ByVal nCdots
As Integer) As Integer
Declare Function StartSound Lib "Sound" () As Integer
在Visual Basic的通用过程中声明上述函数后，就可以象使用Visual Basic自己的函数一样使用Windows的API函数。下面给出一个例子，只需要在窗体中放置7个按钮组成的控件数组，调用上述函数就可以简单的实现准确的音阶：
Sub Command1_Click (index As Integer)
a% = OpenSound()
Select Case index
Case 0: f = 37
Case 1: f = 39
Case 2: f = 41
Case 3: f = 42
Case 4: f = 44
Case 5: f = 46
Case 6: f = 48
End Select
m1% = SetVoiceNote(1, f, 4, 0)
m2% = StartSound()
End Sub 3.Visual Basic是第一个支持对象连接与嵌入（OLE）的开发工具，利用OLE可以简单的在应用程序中插入声音文件。这也是使用Visual Basic开发多媒体软件常用的方法。使用过VB的读者都知道，VB的ToolBox中就有OLE2.0控件。当我们双击OLE2.0控件时，会弹出“Insert Object”窗口，在窗口中选择对象类型Object Type为声音文件，选择“Create from File”,指定硬盘上声音文件的位置，同时确认Link方式。这些步骤其实是在设置OLE2.0的属性。通过按F4打开Properties属性窗口，设置其中的Class、SourceDoc、SourceItem等属性也可完成这一工作。按F5运行程序，双击OLE对象时就会发声。与播放各种声音文件相关的属性为Action，通过设置Action属性可以打开、驱动、删除相应的声音对象。如下例在窗体装入时调用声音文件：
Sub Form_Load ()
ole1.Class = "soundrec"
ole1.SourceDoc = "c:\windows\ding.wav"
ole1.Action = 1
ole1.Action = 7
End Sub
4.利用Visual Basic的多媒体控件MCI.VBX。
使用MCI.VBX是Visual Basic开发多媒体软件的主要方法。利用MCI.VBX在应用程序中加入声音文件是轻而易举的事。有大量的专著介绍MCI.VBX的使用方法，这里就不在赘述。
总的说来，以上四种方法的复杂程度依次递增，对系统的要求和消耗的系统资源也越来越大。因而，作为一个VB程序员，在应用程序中，应该能够熟练而准确的使用上述四种方法并在恰当的场合选择某一种方法，就可以为自己的程序增添效果同时并不使软件显得华而不实。
文章来自: 好喜爱学习网() 网址：