ممكن طريقة عمل راديو اذاعات القرآن الكريم عن طريق List Box
ولو ماينفعش ماهى الطريقة الصحيحة لعمل راديو اذاعات القرآن الكريم
يوجد لدى روابط المحطات
على ما اعتقد سوف تضع ادة متصفح الويب داخ الفورم و عند التشغيل اجعلها تفتح الربط للاذاعة مباشرة فى حدث التحميل للفورم
بس انا لم اجرب
بالتوفيق
ضع الروابط لكي نعرف ما يناسبه من كود مناسب فقد تحتاج إلى WebBrowser أو MediaPlayer فلأمر يختلف
هذه هي بعض الروابط التي اريد اضافتها
كود :
عبد الباسط مرتل
mms://radio.mp3quran.net/basit
عبد الباسط مجود
mms://radio.mp3quran.net/basit_mjwd
محمد صديق المنشاوى
mms://radio.mp3quran.net/minsh
محمود الحصرى
mms://radio.mp3quran.net/husr
الشيخ على الحذيفي
http://live.mp3quran.net:9844/;
فارس عبادى
mms://radio.mp3quran.net/frs_a
رابط اخر
http://live.mp3quran.net:9972/;
مشارى راشد العفاسى
mms://radio.mp3quran.net/afs
ماهر المعيقلى
mms://radio.mp3quran.net/maher
احمد بن على العجمى
mms://radio.mp3quran.net/ajm
الشيخ سعد الغامدى
mms://radio.mp3quran.net/s_gmd
وهذا مثال لما اريد
في انتظار حد محترف يعرف لنا الموضوع دة يارجالة
ضع أداة AxWindowsMediaPlayer1
وListBox1 لأسماء قنوات القرآن الكريم (ولا اسامح من يستغل الكود لقنوات محرمة)
وButton1 للتشغيل
وButton2 للإيقاف
وادع لي بالغيب
كود :
Public Class Form1
Private arr As New Dictionary(Of String, String)
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
arr.Add("عبد الباسط مرتل", "mms://radio.mp3quran.net/basit")
arr.Add("عبد الباسط مجود", "mms://radio.mp3quran.net/basit_mjwd")
arr.Add("محمد صديق المنشاوى", "mms://radio.mp3quran.net/minsh")
arr.Add("محمود الحصرى", "mms://radio.mp3quran.net/husr")
arr.Add("مشارى راشد العفاسى", "mms://radio.mp3quran.net/afs")
arr.Add("ماهر المعيقلى", "mms://radio.mp3quran.net/maher")
arr.Add("احمد بن على العجمى", "mms://radio.mp3quran.net/ajm")
arr.Add("الشيخ سعد الغامدى", "mms://radio.mp3quran.net/s_gmd")
ListBox1.Items.AddRange(arr.Select(Function(x) x.Key).ToArray)
End Sub
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
If AxWindowsMediaPlayer1.currentMedia IsNot Nothing Then AxWindowsMediaPlayer1.Ctlcontrols.stop()
Dim index As Integer = ListBox1.SelectedIndex
If index <> -1 Then
If AxWindowsMediaPlayer1.playState <> WMPLib.WMPPlayState.wmppsPlaying Then
AxWindowsMediaPlayer1.URL = arr(ListBox1.Text)
AxWindowsMediaPlayer1.Ctlcontrols.play()
End If
End If
End Sub
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
If AxWindowsMediaPlayer1.currentMedia IsNot Nothing Then AxWindowsMediaPlayer1.Ctlcontrols.stop()
End Sub
End Class
