تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ابسط مثال لتشغيل ملفات mp3 مستضافة على موقع
#1

كود :
Public Class Form1
    'صيغة الروابط
    'الغامدي
    'http://audio2.islamweb.net/Quran/sghamdi/1001.mp3
    '------------------------------------------------------
    'الحذيفي
    'http://audio2.islamweb.net/Quran/hozefee/1001.mp3
    '------------------------------------------------------
    'عبدالعزيز الاحمد
    'http://audio2.islamweb.net/Quran/aalahmad/1001.mp3

    '\\\\\\\\\\\\\\
    'الطبلاوي
    'http://audio2.islamweb.net/Quran/tablawee/s1.mp3
    '------------------------------------------------------
    'علي جابر
    'http://audio2.islamweb.net/Quran/alijaber/s1.mp3
    '------------------------------------------------------
    'عبدالودود حنيف
    'http://audio2.islamweb.net/Quran/abd_wad/s1.mp3
    '-------------------------------------------------------

    '-------------------------------------------------------

    
    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles sora.SelectedIndexChanged
        If qare.Text.Trim = "" Then
            MsgBox("يرجى اختيار اسم القاريء", MsgBoxStyle.Critical, "")
            Exit Sub
        End If

        If qare.Text = "sghamdi" Or qare.Text = "hozefee" Or qare.Text = "aalahmad" Then
            Try
                If sora.SelectedIndex < 9 Then
                    Dim p As Integer = sora.SelectedIndex
                    p += 1
                    Dim sn As String = qare.Text
                    AxWindowsMediaPlayer1.URL = "http://audio2.islamweb.net/Quran/" & sn & "/100" & p & ".mp3"

                ElseIf sora.SelectedIndex >= 9 And sora.SelectedIndex <= 98 Then

                    Dim p As Integer = sora.SelectedIndex
                    p += 1
                    Dim sn As String = qare.Text
                    AxWindowsMediaPlayer1.URL = "http://audio2.islamweb.net/Quran/" & sn & "/10" & p & ".mp3"


                ElseIf sora.SelectedIndex >= 99 Then 'And sora.SelectedIndex <= 98 Then

                    Dim p As Double = sora.SelectedIndex
                    p += 1


                    Dim sn As String = qare.Text
                    AxWindowsMediaPlayer1.URL = "http://audio2.islamweb.net/Quran/" & sn & "/1" & p & ".mp3"






                Else
                    MsgBox("غير جاهز", MsgBoxStyle.Information, "")
                End If

            Catch ex As Exception
                MsgBox("عفوا واجه البرنامج خطا ورسالة الخطا هي: " & vbNewLine & Err.Description, MsgBoxStyle.Critical, "")
            End Try
        Else
            Try
                Dim p As Integer = sora.SelectedIndex
                p += 1
                Dim sn As String = qare.Text
                AxWindowsMediaPlayer1.URL = "http://audio2.islamweb.net/Quran/" & sn & "/s" & p & ".mp3"

            Catch ex As Exception
                MsgBox("عفوا واجه البرنامج خطا ورسالة الخطا هي: " & vbNewLine & Err.Description, MsgBoxStyle.Critical, "")
            End Try

        End If

        ' MsgBox(sora.SelectedIndex)


    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        MsgBox("برمجة سعود عضو منتدى فيجوال بيسك للعرب" & vbNewLine & "www.vb4arab.com" & vbTab & "1433هـ", MsgBoxStyle.Information, "")
    End Sub

    Private Sub qare_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles qare.MouseEnter
        If qare.SelectedIndex = 0 Then
            ToolTip1.SetToolTip(qare, "الطبلاوي")

        ElseIf qare.SelectedIndex = 1 Then
            ToolTip1.SetToolTip(qare, "علي جابر")

        ElseIf qare.SelectedIndex = 2 Then
            ToolTip1.SetToolTip(qare, " عبدالودود حنيف")

        ElseIf qare.SelectedIndex = 3 Then
            ToolTip1.SetToolTip(qare, " عبدالعزيز الاحمد")

        ElseIf qare.SelectedIndex = 4 Then
            ToolTip1.SetToolTip(qare, "علي الحذيفي")

        ElseIf qare.SelectedIndex = 5 Then
            ToolTip1.SetToolTip(qare, " سعد الغامدي")

        End If

    End Sub

    Private Sub qare_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles qare.SelectedIndexChanged
        sora.Text = Nothing
        AxWindowsMediaPlayer1.URL = Nothing
    End Sub

    Private Sub qare_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles qare.Validating

    End Sub
End Class

اسماء السور
إقتباس :الفاتحة
البقرة
آل عمران
النساء
المائدة
الأنعام
الأعراف
الأنفال
التوبة
يونس
هود
يوسف
الرعد
إبراهيم
الحجر
النحل
الإسراء
الكهف
مريم
طه
الأنبياء
الحج
المؤمنون
النّور
الفرقان
الشعراء
النّمل
القصص
العنكبوت
الرّوم
لقمان
السجدة
الأحزاب
سبأ
فاطر
يس
الصافات
ص
الزمر
غافر
فصّلت
الشورى
الزخرف
الدّخان
الجاثية
الأحقاف
محمد
الفتح
الحجرات
ق
الذاريات
الطور
النجم
القمر
الرحمن
الواقعة
الحديد
المجادلة
الحشر
الممتحنة
الصف
الجمعة
المنافقون
التغابن
الطلاق
التحريم
الملك
القلم
الحاقة
المعارج
نوح
الجن
المزّمّل
المدّثر
القيامة
الإنسان
المرسلات
النبأ
النازعات
عبس
التكوير
الإنفطار
المطفّفين
الإنشقاق
البروج
الطارق
الأعلى
الغاشية
الفجر
البلد
الشمس
الليل
الضحى
الشرح
التين
العلق
القدر
البينة
الزلزلة
العاديات
القارعة
التكاثر
العصر
الهمزة
الفيل
قريش
الماعون
الكوثر
الكافرون
النصر
المسد
الإخلاص
الفلق
النّاس

الامثلة كلها موجودة لدي لكن لاحقا باذن الله سارفعها واكوان احتاج مساعدة احد المشرفين للتعديل
الرد }}}
تم الشكر بواسطة: ola
#2
وهذا الرابط للمثال
Quraan.zip

او هذا
http://vb4arb.com/vb/uploaded/34_01348484158.zip
الرد }}}
تم الشكر بواسطة: ola
#3
بارك الله فيك و جزاك الله كل خير اخي سعود
ربنا يجعله في ميزان حسناتك ان شاء الله
الرد }}}
تم الشكر بواسطة:
#4
تمام يا باشا
الرد }}}
تم الشكر بواسطة:
#5
بارك الله فيك اخى
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  دمج ملفات المشروع ابو روضة 4 1,632 11-11-22, 09:50 PM
آخر رد: ابو روضة
  نظرة على DropBox SDK و التعامل معها +برنامج رفع و تحميل ملفات ابو ليلى 4 4,871 08-09-22, 11:54 AM
آخر رد: saif2023
Lightbulb [مقال] التعامل مع ملفات اوفيس من خلال مكتبة NPOI ابو ليلى 2 4,190 01-07-21, 11:42 AM
آخر رد: kebboud
  ابسط كود لرفع الملفات عن طريق سيرفر FTP Basil Abdallah 2 3,956 20-11-20, 07:21 PM
آخر رد: walihn
  مثال للتعامل مع الجداول المرتبطة - عن طريق الكلاسات ابو ليلى 25 15,192 04-10-20, 06:16 PM
آخر رد: محمد بن عطية
  [مقال] شرح موقع تالنتس روت لربح متوسط شهري 500 دولار شهريا mgr21002100 0 1,556 05-04-20, 03:08 AM
آخر رد: mgr21002100
  [VB.NET] سؤال عن طريقة نسخ كل الروابط و اسم الرابط من موقع انترنت toedi 3 3,052 16-01-20, 07:34 AM
آخر رد: toedi
  عمل ملفات dll بالفيجول.net hosney 6 8,129 31-01-19, 04:45 PM
آخر رد: alsouf
  مثال القراءة والكتابه على ملف تيكست Txt على الانترنت + مثال + شرح m.sami.ak 11 8,396 02-06-18, 09:46 PM
آخر رد: YousefOkasha
  [درس فيديو] مثال بسيط لبرنامج إجازات فقط لأغراض الشرح (الدرس الأول) عبدالله الدوسري 7 11,537 28-04-18, 06:55 PM
آخر رد: moniam

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


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