vb.net設計錄音程序,vb 錄音

vb.net 錄音&保存

A simple Sound Recorder~

創新互聯公司服務項目包括阿魯科爾沁網站建設、阿魯科爾沁網站制作、阿魯科爾沁網頁制作以及阿魯科爾沁網絡營銷策劃等。多年來，我們專注于互聯網行業，利用自身積累的技術優勢、行業經驗、深度合作伙伴關系等，向廣大中小型企業、政府機構等提供互聯網行業的解決方案，阿魯科爾沁網站推廣取得了明顯的社會效益與經濟效益。目前，我們服務的客戶以成都為中心已經輻射到阿魯科爾沁省份的部分城市，未來相信會繼續擴大服務區域并繼續獲得客戶的支持與信任！

1. Add Three buttons (button1, button2, button3) and a label (label1) to the form.

2. Set the Text of Button1 to Start, Button2 to Stop, and Button3 to Play.

3. Add this code:

Public?Class?Form1

Private?Declare?Function?mciSendString?Lib?"winmm.dll"?Alias?"mciSendStringA"?(ByVal?lpstrCommand?As?String,?ByVal?lpstrReturnString?As?String,?ByVal?uReturnLength?As?Integer,?ByVal?hwndCallback?As?Integer)?As?Integer

Private?Sub?Button1_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Button1.Click

Button1.Enabled?=?False

Button2.Enabled?=?True

mciSendString("open?new?Type?waveaudio?Alias?recsound",?"",?0,?0)

mciSendString("record?recsound",?"",?0,?0)

Label1.Text?=?"Recording..."

Label1.Visible?=?True

End?Sub

Private?Sub?Button2_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Button2.Click

Button1.Enabled?=?True

Button2.Enabled?=?False

Button3.Enabled?=?True

mciSendString("save?recsound?c:\recsound.wav",?"",?0,?0)

mciSendString("close?recsound",?"",?0,?0)

MsgBox("File?Created:?C:\recsound.wav")

Label1.Text?=?"Stopped..."

Label1.Visible?=?False

My.Computer.Audio.Stop()

End?Sub

Private?Sub?Button3_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Button3.Click

Label1.Text?=?"Playing..."

Label1.Visible?=?True

My.Computer.Audio.Play("c:\recsound.wav",?AudioPlayMode.Background)

End?Sub

End?Class

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.net中如何播放聲音，是要什么控件嘛？

My.Computer.Audio.Play("SoundFile.wav")

SoundFile.wav是你要播放的聲音文件的路徑

分享文章：vb.net設計錄音程序,vb 錄音
網頁URL：http://m.kartarina.com/article4/heigie.html

成都網站建設公司_創新互聯，為您提供商城網站、品牌網站建設、Google、手機網站建設、服務器托管、

廣告

聲明：本網站發布的內容（圖片、視頻和文字）以用戶投稿、用戶轉載內容為主，如果涉及侵權請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網站立場，如需處理請聯系客服。電話：028-86922220；郵箱：631063699@qq.com。內容未經允許不得轉載，或轉載時需注明來源： 創新互聯