منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] The Holy Quran - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] The Holy Quran (/showthread.php?tid=38383)

The Holy Quran - ابوامجد - 01-05-21

اخواني ربي يسعدكم
مشروع كلام الله
المطلوب وليس امرا
وضع الاكواد للتالي :
عند اختيار القارىء من ال (ComboBox1) واختيار السورة من ال (ListBox1) يتم تشغيل الملف في ال (AxWindowsMediaPlayer1)
الملفات مرفقة داخل المشروع
الملف الاول باسم : Maher Al-Muaiqly
الملف الثاني باسم : Fares_Abbad
الرجاء عدم جلب ملفات سور من النت او من قاعدة بيانات فقط تشغيل الملفات المرفق من داخل المشروع
ولكم من محبه

RE: مشروع كلام الله - messry - 01-05-21

السلام عليكم

أخي الكريم
لك موضوع سابق http://vb4arb.com/vb/showthread.php?tid=38320 عن نفس الموضع هل انتهيت منه ، أم قمت بتغيير الوجهة

RE: مشروع كلام الله - ابوامجد - 01-05-21

(01-05-21, 07:34 PM)messry كتب : السلام عليكم

أخي الكريم
لك موضوع سابق http://vb4arb.com/vb/showthread.php?tid=38320 عن نفس الموضع هل انتهيت منه ، أم قمت بتغيير الوجهة

حلول الموضوع السابق ليست المطلوبة
اريد تشغيل الملفات من داخل المشروع
بااخي انا ارفق الملفات وانتم تضعون ملفات خارجية من النت
انا لااريد ملفات من النت او من قاعدة بيانات

RE: مشروع كلام الله - messry - 01-05-21

(01-05-21, 08:00 PM)ابوامجد كتب :
(01-05-21, 07:34 PM)messry كتب : السلام عليكم

أخي الكريم
لك موضوع سابق http://vb4arb.com/vb/showthread.php?tid=38320 عن نفس الموضع هل انتهيت منه ، أم قمت بتغيير الوجهة

حلول الموضوع السابق ليست المطلوبة
اريد تشغيل الملفات من داخل المشروع
بااخي انا ارفق الملفات وانتم تضعون ملفات خارجية من النت
انا لااريد ملفات من النت او من قاعدة بيانات


بعد اذنك وريني وين الملفات اللي ارفقتها !!!!!!!!!!!!

RE: مشروع كلام الله - سعود - 01-05-21

التعديل مرفق
اضفت موديول باسم a.vb وذلك لمعرفة اسم السورة من خلال الرقم.


RE: مشروع كلام الله - ابوامجد - 02-05-21

(01-05-21, 08:48 PM)messry كتب :
(01-05-21, 08:00 PM)ابوامجد كتب :
(01-05-21, 07:34 PM)messry كتب : السلام عليكم

أخي الكريم
لك موضوع سابق http://vb4arb.com/vb/showthread.php?tid=38320 عن نفس الموضع هل انتهيت منه ، أم قمت بتغيير الوجهة

حلول الموضوع السابق ليست المطلوبة
اريد تشغيل الملفات من داخل المشروع
بااخي انا ارفق الملفات وانتم تضعون ملفات خارجية من النت
انا لااريد ملفات من النت او من قاعدة بيانات


بعد اذنك وريني وين الملفات اللي ارفقتها !!!!!!!!!!!!


RE: مشروع كلام الله - ابوامجد - 02-05-21

(01-05-21, 11:55 PM)سعود كتب :
التعديل مرفق
اضفت موديول باسم a.vb وذلك لمعرفة اسم السورة من خلال الرقم.
شكرا لك اخي
ولكن تاتي هذه الرساله كم ترى ولاتشتغل السور

RE: مشروع كلام الله - أسعد - 02-05-21

(02-05-21, 02:30 AM)ابوامجد كتب :
(01-05-21, 11:55 PM)سعود كتب :
التعديل مرفق
اضفت موديول باسم a.vb وذلك لمعرفة اسم السورة من خلال الرقم.
شكرا لك اخي
ولكن تاتي هذه الرساله كم ترى ولاتشتغل السور

لعل هذا التعديل يحل مشكلة الرسالة
PHP كود :
   Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged
        If ListBox1.Items.Count = 0 Then Exit Sub
        Dim fn = (From x As String In row Where x.Split(";")(1).Equals(ListBox1.Text) Select x.Split(";")(0)).FirstOrDefault & ".mp3"
        Dim url = apath.FullName & "\" & ComboBox1.Text.Replace(" ", "_") & "\" & fn
        AxWindowsMediaPlayer1.URL = url
    End Sub 


RE: مشروع كلام الله - ابوامجد - 02-05-21

(02-05-21, 05:56 AM)أسعد كتب :
(02-05-21, 02:30 AM)ابوامجد كتب :
(01-05-21, 11:55 PM)سعود كتب :
التعديل مرفق
اضفت موديول باسم a.vb وذلك لمعرفة اسم السورة من خلال الرقم.
شكرا لك اخي
ولكن تاتي هذه الرساله كم ترى ولاتشتغل السور

لعل هذا التعديل يحل مشكلة الرسالة
PHP كود :
   Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged
        If ListBox1.Items.Count = 0 Then Exit Sub
        Dim fn = (From x As String In row Where x.Split(";")(1).Equals(ListBox1.Text) Select x.Split(";")(0)).FirstOrDefault & ".mp3"
        Dim url = apath.FullName & "\" & ComboBox1.Text.Replace(" ", "_") & "\" & fn
        AxWindowsMediaPlayer1.URL = url
    End Sub 


شكرا جزيلا وبارك الله في من تريد

الان الامور تمام والمشروع اشتغل

RE: مشروع كلام الله - asmarsou - 02-05-21

(02-05-21, 12:38 PM)ابوامجد كتب :
(02-05-21, 05:56 AM)أسعد كتب :
(02-05-21, 02:30 AM)ابوامجد كتب :
(01-05-21, 11:55 PM)سعود كتب :
التعديل مرفق
اضفت موديول باسم a.vb وذلك لمعرفة اسم السورة من خلال الرقم.
شكرا لك اخي
ولكن تاتي هذه الرساله كم ترى ولاتشتغل السور

لعل هذا التعديل يحل مشكلة الرسالة
PHP كود :
   Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged
        If ListBox1.Items.Count = 0 Then Exit Sub
        Dim fn = (From x As String In row Where x.Split(";")(1).Equals(ListBox1.Text) Select x.Split(";")(0)).FirstOrDefault & ".mp3"
        Dim url = apath.FullName & "\" & ComboBox1.Text.Replace(" ", "_") & "\" & fn
        AxWindowsMediaPlayer1.URL = url
    End Sub 


شكرا جزيلا وبارك الله في من تريد

الان الامور تمام والمشروع اشتغل
السلام عليكم و رحمة الله و بركاته
اخي الكريم اسمح لي بهذا التعديل و بعد اذنكم جميعا اخواني الاعزاء
لاظهار اسم المقرء و اسم السورة في التكست بوكس الخاص بكليهما
ليصبح الكود كما يلي
كود :
Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
       If ComboBox1.Items.Count = 0 Then Exit Sub
       ListBox1.Items.Clear()
       Dim fold As New DirectoryInfo(apath.FullName & "\" & ComboBox1.Text.Replace(" ", "_"))
       For Each fl As FileInfo In fold.GetFiles
           If IO.Path.GetExtension(fl.Name).ToString.ToLower = ".mp3" Then
               Dim sn As String = GetNameBynumber(fl.Name)
               ListBox1.Items.Add(sn)
               ' ListBox1.Items.Add(fl.Name)
           End If
       Next
       TextBox2.Text = ComboBox1.SelectedItem
   End Sub

   Private Sub ListBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs) Handles ListBox1.SelectedIndexChanged
       If ListBox1.Items.Count = 0 Then Exit Sub
       Dim fn = (From x As String In row Where x.Split(";")(1).Equals(ListBox1.Text) Select x.Split(";")(0)).FirstOrDefault & ".mp3"
       Dim url = apath.FullName & "\" & ComboBox1.Text.Replace(" ", "_") & "\" & fn
       AxWindowsMediaPlayer1.URL = url
       TextBox1.Text = ListBox1.SelectedItem
   End Sub
(02-05-21, 11:26 PM)asmarsou كتب :
(02-05-21, 12:38 PM)ابوامجد كتب :
(02-05-21, 05:56 AM)أسعد كتب :
(02-05-21, 02:30 AM)ابوامجد كتب :
(01-05-21, 11:55 PM)سعود كتب :
التعديل مرفق
اضفت موديول باسم a.vb وذلك لمعرفة اسم السورة من خلال الرقم.
شكرا لك اخي
ولكن تاتي هذه الرساله كم ترى ولاتشتغل السور

لعل هذا التعديل يحل مشكلة الرسالة
PHP كود :
   Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged
        If ListBox1.Items.Count = 0 Then Exit Sub
        Dim fn = (From x As String In row Where x.Split(";")(1).Equals(ListBox1.Text) Select x.Split(";")(0)).FirstOrDefault & ".mp3"
        Dim url = apath.FullName & "\" & ComboBox1.Text.Replace(" ", "_") & "\" & fn
        AxWindowsMediaPlayer1.URL = url
    End Sub 


شكرا جزيلا وبارك الله في من تريد

الان الامور تمام والمشروع اشتغل
السلام عليكم و رحمة الله و بركاته
اخي الكريم اسمح لي بهذا التعديل و بعد اذنكم جميعا اخواني الاعزاء
لاظهار اسم المقرء و اسم السورة في التكست بوكس الخاص بكليهما
ليصبح الكود كما يلي