下のコードで録音と再生は、できますが、数字にしたり、マイク入力をスピーカーから出力する方法ができません。よろしくお願いします。






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

        ' record from microphone


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


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

    End Sub



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

        ' stop  and save



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



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

    End Sub



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

        ' play audio



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

    End Sub

End Class