كيف ممكن اقوم بتسجيل صوت من المايكريفون الى ملف مباشرة؟؟

[elkaser]

السلام عليكم

اخواني الكرام ابحث عن كود وطريقة استطيع من خلالها تسجيل صوت عبر المايكريفون باسخدام لغة vb.net



اذا امكن تسجيل الصوت ووضعه في ملف mp3 مباشرة


شكرا جزيلا اخواني الاعزاء

بارك الله فيكم

[ArabCoders]

وعليكم السلام

شوف هذا الرابط

http://www.eggheadcafe.com/community...in-vb-net.aspx

قوقل صديقك!

[elkaser]

السلام عليكم
شكرا جزيلا اخي العزيز

حاولت احول الكود الى vb.net ولاكن لا يقوم بالتسجيل!!!!!



هذا هو الكود الحالي

Imports Microsoft.VisualBasic.Devices
Imports System.Runtime.InteropServices

Class UserMenu

    Private Shared Function mciSendString(ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Integer, ByVal hwndCallback As Integer) As Integer
    End Function



    Private Sub MainMenu_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

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



    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        mciSendString("open new Type waveaudio Alias recsound", "", 0, 0)
        mciSendString("record recsound", "", 0, 0)
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        mciSendString("save recsound c:\new.wav", "", 0, 0)
        mciSendString("close recsound ", "", 0, 0)
        Dim c As New Computer()
        c.Audio.[Stop]()

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        Dim computer As New Computer()
        computer.Audio.Play("c:\new.wav", AudioPlayMode.Background)

    End Sub
End Class

شكرا جزيلا