(17-04-21, 11:04 PM)Anas Mahmoud كتب : بارك الله فيك اخي وجزاك الله خيرا
فقط لي ملاحظة اذا سمحت لي
لاحظت انك تستخدم If و else if لتحديد رابط الملف المطلوب تشغيله ، وكنتيجة لذلك هناك كود مكرر 114 مرة بدون داعي ،
بينما يمكن الوصول لنفس النتيجة بطريقة ابسط باستخدام String.Format
كود :
Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox2.SelectedIndexChanged
Dim index As Integer = ComboBox2.SelectedIndex + 1
Dim URL As String = String.Format("https://download.tvquran.com/download/TvQuran.com__Fares.Abbad/{0:D3}.mp3", index)
AxWindowsMediaPlayer1.URL = URL
AxWindowsMediaPlayer1.Ctlcontrols.play()
End Sub
هكذا نحن لم نخالف مبدأ لا تكرر نفسك DRY
نعم اخي انس كلامك صحيح و هنا يظهر الهاوي و المتمكن من لغة البرمجة و اشكرك على الاطراء الذي حتما سيزيد من معرفتي في هذا المجال
(19-04-21, 09:57 PM)ابوامجد كتب : مشروع جميل
ياحبذا لو تم اضافة كومبوبوكس ثاني لعدد من القراء واضافة ملفات سور القران داخل المشروع (resources) بديل الاتصال بالنت .
بحيث اختار القارئ من ال كمبوبوكس الاول واختار السورة من ال كمبوبوكس الثاني فيتم تشغيل السورة المختارة بالقارئ المختار .
وبارك الله فيكم جميعا
اخي العزيز ابو امجد فعلا ذلك ماكنت ساقوم به سابقا في اول الامر عزمت ان اضع كومبوبوكس اول به قائمة لعدد من القراء (10 قراء) هذا ما نويت للوهلة الاولى و اردت تقديمة للمنتدى كمشروع كامل قبيل حلول الشهر الفضيل ...و نظرا لضيق الوقت من جهة و عدم المامي التام بخبايا البرمجة اظطررت كتقديمه بقارئ واحد
ارجو من الاخوة المتمكنين في البرمجة من اخذ رغبتك و رغبتي بعين الاعتبار في اقرب وقت ممكن
و مشكورين جميعا على الاطراء و الملاحظات
و تقبل الله منا ومنكم صالح الاعمال
