ممكن طريقة عمل راديو اذاعات القرآن الكريم عن طريق

كود :

عبد الباسط مرتل

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

كود :

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