錄製和播放音頻

Question

我一直在尋找高和低，是在絕望的地步。我試圖做到的是簡單地從麥克風錄製音頻，將它保存到一個文件，然後播放。我曾試過的東西：

• 命令行音頻錄製。我找到了幾個選項，但沒有，我可以去工作。
• http://support.microsoft.com/kb/210067我認爲這會在XP中，但不能在Vista/7的工作。
• http://www.experts-exchange.com/Software/Office_Productivity/Office_Suites/MS_Office/Excel/Q_26416850.html（您可以通過點擊Here得到完整的東西，然後它是一個5下來給我。）這種解決方案運行順利，但從來沒有記錄任何東西。

就像我說過的，我願意使用任何人都可以想到的可怕技巧來自動化任何事情。有什麼建議麼？ 來吧所以，你可以再救我... :-)

Answer 1

莫比，這將幫助：

http://www.ehow.com/how_7889013_use-vba-access-capture-audio.html

Answer 2

我知道這是一個古老的職位，但我在這裏登陸幾次我尋找一種解決方案來記錄音頻與VBA。我終於找到了上http://www.vbarchiv.net一個解決方案，我想與大家分享： 將這個模塊中，讓我們將其命名爲sndmodule：

Option Compare Database 
Option Explicit 

REM found at http://www.vbarchiv.net 

Public Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" _ 
    (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long 

Const SND_SYNC = &H0 
Const SND_ASYNC = &H1 
Const SND_FILENAME = &H20000 

Public Declare Function mciSendString Lib "winmm.dll" _ 
    Alias "mciSendStringA" (_ 
    ByVal lpstrCommand As String, _ 
    ByVal lpstrReturnString As String, _ 
    ByVal uReturnLength As Long, _ 
    ByVal hwndCallback As Long) As Long 

Public Enum BitsPerSec 
    Bits16 = 16 
    Bits8 = 8 
End Enum 

Public Enum SampelsPerSec 
    Sampels8000 = 8000 
    Sampels11025 = 11025 
    Sampels12000 = 12000 
    Sampels16000 = 16000 
    Sampels22050 = 22050 
    Sampels24000 = 24000 
    Sampels32000 = 32000 
    Sampels44100 = 44100 
    Sampels48000 = 48000 
End Enum 

Public Enum Channels 
    Mono = 1 
    Stereo = 2 
End Enum 

Public Sub play(file As String) 
    Dim wavefile 
    wavefile = file 
    Call sndPlaySound(wavefile, SND_ASYNC Or SND_FILENAME) 
End Sub 


Public Sub StartRecord(ByVal BPS As BitsPerSec, _ 
    ByVal SPS As SampelsPerSec, ByVal Mode As Channels) 

    Dim retStr As String 
    Dim cBack As Long 
    Dim BytesPerSec As Long 

    retStr = Space$(128) 
    BytesPerSec = (Mode * BPS * SPS)/8 
    mciSendString "open new type waveaudio alias capture", retStr, 128, cBack 
    mciSendString "set capture time format milliseconds" & _ 
    " bitspersample " & CStr(BPS) & _ 
    " samplespersec " & CStr(SPS) & _ 
    " channels " & CStr(Mode) & _ 
    " bytespersec " & CStr(BytesPerSec) & _ 
    " alignment 4", retStr, 128, cBack 
    mciSendString "record capture", retStr, 128, cBack 
End Sub 

Public Sub SaveRecord(strFile) 
    Dim retStr As String 
    Dim TempName As String 
    Dim cBack As Long 
    Dim fs, F 

    TempName = strFile 'Left$(strFile, 3) & "Temp.wav" 
    retStr = Space$(128) 
    mciSendString "stop capture", retStr, 128, cBack 
    mciSendString "save capture " & TempName, retStr, 128, cBack 
    mciSendString "close capture", retStr, 128, cBack 

End Sub 

在你的代碼，你可以使用它像這樣：

Private Sub StartRecord_Click() 
    sndmodule.StartRecord Bits16, Sampels32000, Mono 
End Sub 

Private Sub EndRecord_Click() 
    sndmodule.SaveRecord "C:\Users\Johanness\Downloads\test.wav" 
End Sub 

Private Sub Play_Click() 
    sndmodule.play "C:\Users\Johanness\Downloads\test.wav" 
End Sub