用VB制作一款自己的錄音機(jī)

1、用 VB 制作一款自己的錄音機(jī)風(fēng)輕云淡筆者說明：1：程序中的分計(jì)時(shí)，當(dāng)分 >60 時(shí)，仍然繼續(xù)往上加，不要緊的，仍然能繼 續(xù)錄音；2：一旦停止錄音后，需要先保存后，才能繼續(xù)錄音，3:錄制的文件為 Wav格式，如果需要MP3格式的話，可以通過另外的軟 件轉(zhuǎn)換；4:筆者制作錄音機(jī)的本意并非想用于長時(shí)間的錄音這個(gè)用途，所以，并不 想在這方面多花時(shí)間考慮；作者的原意是有別的用途的，現(xiàn)在公布出來與朋友 們分享，也真誠的希望編程愛好者加以改進(jìn)，除此之外，作者誠懇敬請(qǐng)程序設(shè) 計(jì)的前輩和老師們指點(diǎn)一下:作者的原意是:當(dāng)話筒有輸入并達(dá)到一定的峰值時(shí)，便啟動(dòng)錄音機(jī)開始錄音；當(dāng)沒有信號(hào) 時(shí)，便停止錄音，而且保

2、存這個(gè)已經(jīng)被錄下的音頻信到預(yù)先約定的文件夾下； 問題的關(guān)鍵是筆者現(xiàn)在并不知道在 VB里，如何獲取到話筒的信號(hào)？代碼又如何 寫？怎樣在程序界面上顯示和調(diào)整？所以:誠懇敬請(qǐng)程序設(shè)計(jì)的前輩和老師們指點(diǎn):怎樣才能得到話筒的音頻信號(hào)，并且加上顯示以及調(diào)整的辦法。先謝謝了！首先在 VB中添加 MMC on trol控件和Com mon Dialogl控件添加六個(gè)標(biāo)簽，四個(gè)按鈕和一個(gè)計(jì)時(shí)器，其 Caption 設(shè)置為：如下圖所示：開始編寫各個(gè)控件的代碼：1：在“通用”部分聲明變量Dim miaojishi As Long 秒計(jì)時(shí)變量Dim fen gjishi As Long分計(jì)時(shí)變量2：錄音按鈕代碼：Pr

3、ivate Sub Comma nd1_Click()錄音MMControl1. DeviceType = "WaveAudio"打開設(shè)備的類型 MMControl1. FileName="d:record.wav"' 零時(shí)文件以及位置， '【“d:record 可”以隨意確定，看你自己的愛好了】MMControl1. Comma nd = "ope n"'打開MMControl1. Command = "record"'錄音命令-開始錄音Label1. Caption = &quo

4、t;正在錄音 "Timer1.Interval = 1000Timer1.Enabled = True Command3.Enabled = False Command2. Enabled = TrueCommand1.Enabled = FalseEnd Sub 3：停止按鈕的代碼Private Sub Comma nd2_Click()停止 MMControl1.Command = "stop"Timer1.Enabled = False miaojishi = 0fengjishi = 0Command3. Enabled = TrueLabel1.Capt

5、ion = "錄音已經(jīng)停止 "Command1.Enabled = FalseCommand2. Enabled = FalseEnd Sub4：保存按鈕的代碼：Private Sub Comma nd3_Click()保存CommonDialog1.Filter = "音頻文件( *.wav)|*.wav|"CommonDialog1.DialogTitle = "保存我的音頻文件 "CommonDialog1.Action = 2MMControl1.FileName = CommonDialog1.FileNameMMContr

6、ol1.Command = "save"Command1.Enabled = FalseCommand2. Enabled = FalseLabel1.Caption = "正在保存錄音文件 "MsgBox （"文件保存完畢 "）Label1.Caption = "可以開始錄音了 "Command1.Enabled = TrueCommand2. Enabled = FalseCommand3. Enabled = FalseLabel3. Caption = 0Label5.Caption = 0miaojish

7、i = 0fengjishi = 0End Sub5：退出的代碼Private Sub Comma nd4_Click()退出MMControl1.Command = "close" '釋放資源EndEnd Sub6：窗體加載的代碼Private Sub Form_Load(初始化'MMControl1.Visible = FalseTimer1. Enabled = FalseCommand3. Enabled = FalseCommand2. Enabled = FalseLabel1.Caption = "可以開始錄音了 "End Sub6：計(jì)時(shí)器的代碼Private Sub Timer1_Timer() I IJimiaojishi = miaojishi + 1 Label5.Caption =