منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] تشغيل ملفات الصوتية متتالية - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=18212)

تشغيل ملفات الصوتية متتالية - سوري حر - 30-11-16

ممكن كود تشغيل ملفات الصوتية متتالية
يعني انا صنعت برنامج قران كريم صوت
ولكن كل ماينتهي مقطع يوقف 
المطلوب كود جعل المقاطع تشتغل بعد
انتهاء المقطع الاول
وجزاكم الله كل خير

RE: تشغيل ملفات الصوتية متتالية - silverlight - 01-12-16

عليك ان تضيف الملفات الي مصفوفة و تتعامل مع كل ملف موجود بالمصفوفة كأنه ملف عادي

RE: تشغيل ملفات الصوتية متتالية - أبو ناصر - 01-12-16

بالنسبة لي أقوم بالتالي :
  أضع السور في ComboBox  من الفاتحة الى البقرة و لتشغيل أي سورة أختارها من ComboBox ليتم تشغيلها 
 أما بالنسبة للتشغيل المتواصل للسور أقوم بالتالي :
  أضيف Timer وظيفته  تشغيل  السورة الموالية في حال تم قراة السورة الحالية ، كما في الكود :

كود :
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
       If AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsStopped Then
           AxWindowsMediaPlayer1.Ctlcontrols.play()
           ComboBox1.SelectedIndex += 1
       End If
   End Sub
  
  و أضيف CheckBox و اسميه قراءة متواصلة للسور  وأكتب في حدث Click الخاص به الكود :
كود :
Private Sub CheckBox2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.Click
       If CheckBox2.Checked = True Then
           Timer1.Start()
       Else
           Timer1.Stop()
       End If
   End Sub

  و الأمر اشتغل معي بشكل جيد ، أرجو أن تكون قد وصلت الفكرة

RE: تشغيل ملفات الصوتية متتالية - amgad525 - 01-12-16

PHP كود :
Private Sub AxWindowsMediaPlayer1_PlayStateChange(sender As Object, e As AxWMPLib._WMPOCXEvents_PlayStateChangeEvent) Handles AxWindowsMediaPlayer1.PlayStateChange

    If AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsStopped Then

        AxWindowsMediaPlayer1.URL = "next.mp3"

    End If

End Sub 


RE: تشغيل ملفات الصوتية متتالية - zinom - 02-12-16

[attachment=12375]

[attachment=12376]

[attachment=12377]



RE: تشغيل ملفات الصوتية متتالية - سوري حر - 16-12-16

الله يجزيك الخيررررررر

RE: تشغيل ملفات الصوتية متتالية - zinom - 18-12-16

اللهم امين نحن وجميع اخواننا

RE: تشغيل ملفات الصوتية متتالية - Basil Abdallah - 23-12-16

الافضل عمل Listbox و عندما ينتهي من المقطع الاول ListBox1.SelectedIndex = ListBox1.SelectedIndex + 1