كود تشغيل جميع ملفات الصوت
منتدى مصر التقني :: قسم لغات البرمجة Programming languages :: فجوال بيسك 6 vb :: قسم نقاش و أستفسارات الاعضاء
صفحة 1 من اصل 1 • شاطر
كود تشغيل جميع ملفات الصوت
السلام عليكم
مساء الخير يا اخوان
اعتذر على ازعاجكم
ياليت احد يساعدني ويعطيني كود يشغل جميع ملفات الصوت اللي في المجلد اذا انتهى الاول يجي اللي بعده حتى النهاية.
مثلا عندي 5 ملفات سور قران في مجلد واحد ابغاها تشتغل ورا بعض
هذا الكود اللي شغلت فيه الصوت بس ملف واحد فقط
ملاحظة :
الصوت اللي عندي امتداد mp3
WindowsMediaPlayer1.URL = App.Path + "\21Çáì30\030.mp3"
تحياتي لكم
مساء الخير يا اخوان
اعتذر على ازعاجكم
ياليت احد يساعدني ويعطيني كود يشغل جميع ملفات الصوت اللي في المجلد اذا انتهى الاول يجي اللي بعده حتى النهاية.
مثلا عندي 5 ملفات سور قران في مجلد واحد ابغاها تشتغل ورا بعض
هذا الكود اللي شغلت فيه الصوت بس ملف واحد فقط
ملاحظة :
الصوت اللي عندي امتداد mp3
WindowsMediaPlayer1.URL = App.Path + "\21Çáì30\030.mp3"
تحياتي لكم
ـــــــــــــــــــ التوقيع ــــــــــــــــــــ
اللهم صلي وسلم على الحبيب المصطفى
محمد بن عبد الله عليه افضل الصلاة والسلام
alfakeehy- .....
- تاريخ التسجيل : 21/11/2014
المساهمات : 87
النقاط : 129
التقيم : 0
الدولة :
الجنس :
رد: كود تشغيل جميع ملفات الصوت
alfakeehy كتب:السلام عليكم
مساء الخير يا اخوان
اعتذر على ازعاجكم
ياليت احد يساعدني ويعطيني كود يشغل جميع ملفات الصوت اللي في المجلد اذا انتهى الاول يجي اللي بعده حتى النهاية.
مثلا عندي 5 ملفات سور قران في مجلد واحد ابغاها تشتغل ورا بعض
هذا الكود اللي شغلت فيه الصوت بس ملف واحد فقط
ملاحظة :
الصوت اللي عندي امتداد mp3
WindowsMediaPlayer1.URL = App.Path + "\21Çáì30\030.mp3"
تحياتي لكم
اذا كانت ملفات mp3 مرتبة بهذه الطريقة يمكنك استخدام حلقة تكرار بالشفرة التالية فى قائمة و ليكن list1 بحيث تكون القائمة تشمل اسماء سور القرءان الكريم 144 سورة ....
- الكود:
For j = 0 To List1.ListCount
If List1.ListIndex = j Then
WindowsMediaPlayer1.URL = App.Path +"\21Çáì30" & Format(j + 1, "000") & ".mp3"
End If
Next j
الكود اعلاه هو لتشغيل سورة القرءان الكريم عند النقر عليها من القائمة فلو تم النقر على اسم اول سورة فى القائمة " الفاتحة " سيتم تشغيل سورة الفاتحة او بمعنى اصح تشغيل الملف (mp3ء001) و سيتم الايقاف عند الانتهاء من تشغيل هذا الملف
لذلك اذا كنت تريد تشغيل الملف التالى لهذا الملف يجب ضافة هذا الكود التالى :
- الكود:
If WindowsMediaPlayer1.playState = wmppsStopped Then
List1.ListIndex = List1.ListIndex + 1
WindowsMediaPlayer1.Controls.play
End If
و اذا اردت تشغيل الملفات الصوتية بصورة عشوائية عند الانتهاء من الملف الحالى استخدم الشفرة التالية :
- الكود:
If WindowsMediaPlayer1.playState = wmppsStopped Then
Randomize
List1.ListIndex = Int(List1.ListCount * Rnd - 1)
WindowsMediaPlayer1.Controls.play
End If
و اذا اردت تكرار تشغيل الملف الصوتى بعد الانتهاء من كل مرة يتم تشغيلة استخدم الشفرة التالية :
- الكود:
WindowsMediaPlayer1.settings.setMode "loop", True
أرجوا أن تكون الفكرة واضحة
تحياتى لك
NEXT- الادارة
- تاريخ التسجيل : 18/02/2011
المساهمات : 446
النقاط : 200660
التقيم : 28
الدولة :
الجنس :
رد: كود تشغيل جميع ملفات الصوت
اهلا وسهلا اخي الكريم
مشكور ياغالي وماقصرت والله
بس للاسف والله ما اشتغلت يطلع لي جاهز بس ما اشتغلت ابدا
وللمعلومية
انا ماكنت حاط List
فقط كومند لجميع السور
الان اضفت القائمه ووضعت الاكواد ولكن للاسف ماشتغلت والله
وهذي الصورة قبل اعمل القائمه اذا فيه كود اقدر اشغل اللي في النافذة هذي حلو
مشكور حبيبي واعذرني اتعبتك معي
مشكور ياغالي وماقصرت والله
بس للاسف والله ما اشتغلت يطلع لي جاهز بس ما اشتغلت ابدا
وللمعلومية
انا ماكنت حاط List
فقط كومند لجميع السور
الان اضفت القائمه ووضعت الاكواد ولكن للاسف ماشتغلت والله
وهذي الصورة قبل اعمل القائمه اذا فيه كود اقدر اشغل اللي في النافذة هذي حلو
مشكور حبيبي واعذرني اتعبتك معي
ـــــــــــــــــــ التوقيع ــــــــــــــــــــ
اللهم صلي وسلم على الحبيب المصطفى
محمد بن عبد الله عليه افضل الصلاة والسلام
alfakeehy- .....
- تاريخ التسجيل : 21/11/2014
المساهمات : 87
النقاط : 129
التقيم : 0
الدولة :
الجنس :
رد: كود تشغيل جميع ملفات الصوت
هذا يا اخى مثال كامل للتوضيع يرجى ملاحظة اننا نستخدم القراءن الكريم على شبكة النت و ليس تشغيل ملفات صوتية على الجهاز و يمكنك تغير الكود مثلما اخبرتك فى مشاركة حساب next
صورة وهو شغال
[URL="http://www.up-00.com/"][/URL]
رابط التحميل
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
صورة وهو شغال
[URL="http://www.up-00.com/"][/URL]
رابط التحميل
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
ـــــــــــــــــــ التوقيع ــــــــــــــــــــ
سبحان الله وبحمدة .....سبحان الله العظيم
رد: كود تشغيل جميع ملفات الصوت
الله يجزاك خير اخي الكريم وينفع بعلمك
تم الحل ولله الحمد
تقبل جل حبي واحترامي
تم الحل ولله الحمد
تقبل جل حبي واحترامي
ـــــــــــــــــــ التوقيع ــــــــــــــــــــ
اللهم صلي وسلم على الحبيب المصطفى
محمد بن عبد الله عليه افضل الصلاة والسلام
alfakeehy- .....
- تاريخ التسجيل : 21/11/2014
المساهمات : 87
النقاط : 129
التقيم : 0
الدولة :
الجنس :
| |
منتدى مصر التقني :: قسم لغات البرمجة Programming languages :: فجوال بيسك 6 vb :: قسم نقاش و أستفسارات الاعضاء
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى
اليوم في 7:09 pm من طرف moslema_r
» شركة تنظيف فرشات بالرياض
الثلاثاء مارس 26, 2024 6:26 pm من طرف moslema_r
» شركة تنظيف استراحات بالرياض
الأحد مارس 24, 2024 10:49 pm من طرف moslema_r
» كشف تسربات المياه في جدة
السبت مارس 23, 2024 7:23 pm من طرف gmalnagy
» خدمات كشف تسربات المياه بخصم 25% - اتصل الان
السبت مارس 23, 2024 7:22 pm من طرف gmalnagy
» شركة تنظيف ثريات بالرياض
الخميس مارس 21, 2024 7:23 pm من طرف moslema_r
» كهربائي منازل بالرياض
الأحد مارس 17, 2024 1:52 pm من طرف رانيا حماد
» افضل شركة نقل عفش بالرياض نقل باكستاني 40% خصم | موقع الانوار
الأحد مارس 17, 2024 1:25 pm من طرف رانيا حماد
» افضل معلم جبس بالرياض تركيب جبس بورد بالرياض 20% خصم اتصل الآن
الأحد مارس 17, 2024 1:09 pm من طرف رانيا حماد
» شراء اثاث مستعمل بالكويت بخصم 30%
الأحد مارس 17, 2024 12:54 pm من طرف رانيا حماد