تقييم الموضوع :
  • 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

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

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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [مقال] دمج كل ملفات برنامجك الى ملف تنفيذى واحد ali.alfoly 25 7,879 02-12-16, 04:04 PM
آخر رد: ali.alfoly
  عمل ملفات dll بالفيجول.net hosney 5 1,679 15-06-16, 11:36 PM
آخر رد: خالد الرماح
  [مشروع] مشروع برنامج لتشغيل ملفات mp3 alking-0999 1 389 01-06-16, 10:20 PM
آخر رد: CLARO
  موضوع الاستاذ رامي مثال \ لطريقة تفعيل برنامجك عند العميل وتغيير كلمة مرور اRamilove سعود 7 2,046 26-01-16, 08:07 PM
آخر رد: سعود
  [درس فيديو] تشغيل اوامر Run من البرنامج & مثال غلق الويندوز بعد وقت محدد باستخدام VB.net أحمد النجار 1 538 23-12-15, 04:26 AM
آخر رد: الماجيك مسعد
Brick [مثال] انشاء ترميز باركود من نوع QR عن طريق موقع جوجل الطالب 1 419 02-09-15, 10:42 PM
آخر رد: مبرمج بلا حدود
  [VB.NET] موقع جميل وجيد لاكواد جميع لغات البرمجة alking-0999 1 782 08-08-15, 07:02 PM
آخر رد: AkraM Fouad
  مثال القراءة والكتابه على ملف تيكست Txt على الانترنت + مثال + شرح m.sami.ak 9 2,264 20-08-13, 01:12 PM
آخر رد: m.sami.ak
  شرح مصور: كيفية رفع برامجك على موقع Appharbor sooriaty03 7 1,656 03-07-13, 01:36 PM
آخر رد: مبرمج بلا حدود
  مثال تشغيل ملف صوتى او فيديو RainBow 0 499 14-03-13, 08:37 PM
آخر رد: RainBow

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


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