17-09-12, 03:10 PM
كود :
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
اسماء السور
إقتباس :الفاتحة
البقرة
آل عمران
النساء
المائدة
الأنعام
الأعراف
الأنفال
التوبة
يونس
هود
يوسف
الرعد
إبراهيم
الحجر
النحل
الإسراء
الكهف
مريم
طه
الأنبياء
الحج
المؤمنون
النّور
الفرقان
الشعراء
النّمل
القصص
العنكبوت
الرّوم
لقمان
السجدة
الأحزاب
سبأ
فاطر
يس
الصافات
ص
الزمر
غافر
فصّلت
الشورى
الزخرف
الدّخان
الجاثية
الأحقاف
محمد
الفتح
الحجرات
ق
الذاريات
الطور
النجم
القمر
الرحمن
الواقعة
الحديد
المجادلة
الحشر
الممتحنة
الصف
الجمعة
المنافقون
التغابن
الطلاق
التحريم
الملك
القلم
الحاقة
المعارج
نوح
الجن
المزّمّل
المدّثر
القيامة
الإنسان
المرسلات
النبأ
النازعات
عبس
التكوير
الإنفطار
المطفّفين
الإنشقاق
البروج
الطارق
الأعلى
الغاشية
الفجر
البلد
الشمس
الليل
الضحى
الشرح
التين
العلق
القدر
البينة
الزلزلة
العاديات
القارعة
التكاثر
العصر
الهمزة
الفيل
قريش
الماعون
الكوثر
الكافرون
النصر
المسد
الإخلاص
الفلق
النّاس
الامثلة كلها موجودة لدي لكن لاحقا باذن الله سارفعها واكوان احتاج مساعدة احد المشرفين للتعديل