تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] كود اداة تسجيل الصوت من الاذاعة
#1
السلام عليكم ...

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

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

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

















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

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

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



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



مع خالص تحياتي و تقديري
الرد }}}}
تم الشكر بواسطة:
#2
Question 
بارك الله فيك وفي عملك الجميل 

اخي ممكن تشاهد الفيديو ده الفيديو 
والاكواد المستخدمه اهي 
كود :
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
الرد }}}}
تم الشكر بواسطة:
#3
(08-08-16, 03:08 PM)ziad.mg95 كتب : بارك الله فيك وفي عملك الجميل 

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



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


اسعدني مرورك 

Big Grin
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  استفسار بخصوص عدم ظهور اداة عرض ملف pdf في الادوات عباسة 7 152 22-02-17, 08:07 PM
آخر رد: عباسة
Wink [VB.NET] استفسار بخصوص التعديل والحفظ علي اداة datagridview dark1459 9 129 20-02-17, 02:13 AM
آخر رد: khodor1985
Lightbulb للخبراء هل توجد مكتبة او اداة لعمل مثل هذا النموذج عن طريق vb.net ارجو المساعدة Amrjamil 6 106 18-02-17, 02:19 PM
آخر رد: Amrjamil
  [VB.NET] HttpWebRequest مشكل في تسجيل الدخول في الفيسبوك ,,, مشكل .تفعيل الكوكيز بالركم من اني m r M T D R 0 52 07-02-17, 01:58 PM
آخر رد: m r M T D R
  [سؤال] كيف يمكنني استخدام متغير لمناداة اي اداة اليوم مبتدئة وغداً محترفة 3 102 04-02-17, 09:57 PM
آخر رد: عبد الرحمن
  كيفية ادراج نص في اداة RichTextBox مع الاحتفاظ بالنص soper 3 92 25-01-17, 02:23 PM
آخر رد: مساعدة
  مساعدة فى انشاء نظام تسجيل و تسحيل الدخول Mohamed20 2 182 15-01-17, 11:48 PM
آخر رد: Mohamed20
  اداة اختيار الملفات محمد بن عطية 2 144 12-01-17, 06:01 PM
آخر رد: مساعدة
  منع تسجيل بيانات علي جدول الحركات بقاعدة بيانات sql خلال فترة زمنية (اقفال الفترة ا) السيد الجوهري 4 195 09-01-17, 07:22 PM
آخر رد: السيد الجوهري
  بصمة الصوت mohamed haroon 5 321 03-01-17, 08:55 AM
آخر رد: mohamed haroon

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم