منتدى مصر التقني
هل تريد التفاعل مع هذه المساهمة؟ كل ما عليك هو إنشاء حساب جديد ببضع خطوات أو تسجيل الدخول للمتابعة.

كود تشغيل جميع ملفات الصوت

اذهب الى الأسفل

ok كود تشغيل جميع ملفات الصوت

مُساهمة من طرف alfakeehy الجمعة يناير 08, 2016 1:29 pm

السلام عليكم
مساء الخير يا اخوان
اعتذر على ازعاجكم 
ياليت احد يساعدني ويعطيني كود يشغل جميع ملفات الصوت اللي في المجلد اذا انتهى الاول يجي اللي بعده حتى النهاية.
مثلا عندي 5 ملفات سور قران في مجلد واحد ابغاها تشتغل ورا بعض


هذا الكود اللي شغلت فيه الصوت بس ملف واحد فقط


ملاحظة :
الصوت اللي عندي امتداد mp3


 WindowsMediaPlayer1.URL = App.Path + "\21Çáì30\030.mp3"


تحياتي لكم


ـــــــــــــــــــ التوقيع ــــــــــــــــــــ
اللهم صلي وسلم على الحبيب المصطفى
محمد بن عبد الله عليه افضل الصلاة والسلام
alfakeehy
alfakeehy
.....
.....

تاريخ التسجيل : 21/11/2014
المساهمات : 87
النقاط : 129
التقيم : 0
الدولة : السعودية
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

ok رد: كود تشغيل جميع ملفات الصوت

مُساهمة من طرف NEXT السبت يناير 09, 2016 9:03 am

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

أرجوا أن تكون الفكرة واضحة 

تحياتى لك  Very Happy
NEXT
NEXT
الادارة
الادارة

تاريخ التسجيل : 18/02/2011
المساهمات : 446
النقاط : 200660
التقيم : 28
الدولة : مصر
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

ok رد: كود تشغيل جميع ملفات الصوت

مُساهمة من طرف alfakeehy السبت يناير 09, 2016 7:51 pm

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

الان اضفت القائمه ووضعت الاكواد ولكن للاسف ماشتغلت والله

وهذي الصورة قبل اعمل القائمه اذا فيه كود اقدر اشغل اللي في النافذة هذي حلو 
مشكور حبيبي واعذرني اتعبتك معي

كود تشغيل جميع ملفات الصوت  145236702712771

ـــــــــــــــــــ التوقيع ــــــــــــــــــــ
اللهم صلي وسلم على الحبيب المصطفى
محمد بن عبد الله عليه افضل الصلاة والسلام
alfakeehy
alfakeehy
.....
.....

تاريخ التسجيل : 21/11/2014
المساهمات : 87
النقاط : 129
التقيم : 0
الدولة : السعودية
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

ok رد: كود تشغيل جميع ملفات الصوت

مُساهمة من طرف أحمد مناع الأحد يناير 10, 2016 9:54 pm

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

صورة وهو شغال

كود تشغيل جميع ملفات الصوت  145246138847271[URL="http://www.up-00.com/"][/URL]

رابط التحميل

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

ـــــــــــــــــــ التوقيع ــــــــــــــــــــ
سبحان الله وبحمدة .....سبحان الله العظيم
أحمد مناع
أحمد مناع
.
.

تاريخ التسجيل : 15/02/2011
المساهمات : 1108
النقاط : 202034
التقيم : 144
الدولة : مصر
الجنس : ذكر

https://egy-tech.forumegypt.net

الرجوع الى أعلى الصفحة اذهب الى الأسفل

ok رد: كود تشغيل جميع ملفات الصوت

مُساهمة من طرف alfakeehy الإثنين يناير 11, 2016 10:17 am

الله يجزاك خير اخي الكريم وينفع بعلمك
تم الحل ولله الحمد
تقبل جل حبي واحترامي 

ـــــــــــــــــــ التوقيع ــــــــــــــــــــ
اللهم صلي وسلم على الحبيب المصطفى
محمد بن عبد الله عليه افضل الصلاة والسلام
alfakeehy
alfakeehy
.....
.....

تاريخ التسجيل : 21/11/2014
المساهمات : 87
النقاط : 129
التقيم : 0
الدولة : السعودية
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

الرجوع الى أعلى الصفحة

ََ

مواضيع ذات صلة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى