[سؤال] كود اداة تسجيل الصوت من الاذاعة - نسخة قابلة للطباعة

[سؤال] كود اداة تسجيل الصوت من الاذاعة - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] كود اداة تسجيل الصوت من الاذاعة (/showthread.php?tid=16741)

كود اداة تسجيل الصوت من الاذاعة - Ana Muslim - 08-08-16

السلام عليكم ...

انا عضو سجلت قبل اسبوع طلبت مساعدة قبل اليوم لكن لم يساعدني احد

المهم , انا كملت برنامجي بنجاح بعد تعب كبير خاصة و اني مبتدئ و هو برنامج

اذاعة القران الكريم بأكثر من مئة اذاعة لمختلف القرائ و نال على اكثر من 160 تنزيل في 24 ساعة على الرابط تحت تجدوه 1 ميغا بايت

http://up.top4top.net/downloadf-218bqd11-rar.html

وصلت لي بعض الطلبات ع البرنامج عمل زر لتسجيل الصوت من الاذاعة لمختلف القرائ

و انا لا اعلم كيف احفظ الصوت الي يوصل من الاذاعة بصيغة ام بي ثري

اهم شي صوت مو مهم الصيغة عندي

رجاءا اذا تعرف ساعدني

مع خالص تحياتي و تقديري

RE: كود اداة تسجيل الصوت من الاذاعة - ziad.mg95 - 08-08-16

بارك الله فيك وفي عملك الجميل

اخي ممكن تشاهد الفيديو ده الفيديو
والاكواد المستخدمه اهي

كود :

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

        Button1.Enabled = False

        Button2.Enabled = True

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

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

        Label1.Text = "Recording..."

        Label1.Visible = True

    End Sub

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

        Button1.Enabled = True

        Button2.Enabled = False

        Button3.Enabled = True

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

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

        MsgBox("File Created: C:\recsound.wav")

        Label1.Text = "Stopped..."

        Label1.Visible = False

        My.Computer.Audio.Stop()

    End Sub

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

        Label1.Text = "Playing..."

        Label1.Visible = True

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

    End Sub

End Class

RE: كود اداة تسجيل الصوت من الاذاعة - Ana Muslim - 08-08-16

(08-08-16, 03:08 PM)ziad.mg95 كتب : بارك الله فيك وفي عملك الجميل

وانا معنديش علم بالكود بس هحاول اساعدك

الله يحفظك شكراً اخي الكريم

اسعدني مرورك

Big Grin