برنامج لتسجيل الصوت وحفظه في ملف

[underkap 53]

اريد كود لعمل حفظ للصوت (تسجيل الصوت) من المايك ومن ثم ضغط زر لحفظه على هيئة ملف wav.

باستخدام اي لغة VB.NET or C# o

شكرا

[حمزة 1]

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

                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



        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



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

    End Sub

End Class

تم تعديل 14 Oct 2010 بواسطه حمزة

[muhedeen 16]

[Guest ( HASSAN )]

البرنامج جاهز في المرفقات

بالتوفيق ..

soundrecored.rar

VB.net 2008

تم تعديل 14 Oct 2010 بواسطه ( HASSAN )

[aanet 0]

البرنامج لا يعمل ويظهر خطأ بها الجزء

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

بعدم وجود لملف مسجل فما المشكلة ؟

تم تعديل 3 May 2016 بواسطه aanet