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

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

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

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

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


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


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


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


تحياتي لكم


ـــــــــــــــــــ التوقيع ــــــــــــــــــــ
avatar
alfakeehy
.....
.....

تاريخ التسجيل : 21/11/2014
المساهمات : 85
النقاط : 123
التقيم : 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
avatar
NEXT
الادارة
الادارة

تاريخ التسجيل : 18/02/2011
المساهمات : 265
النقاط : 380
التقيم : 9
الجنس : ذكر

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

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

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

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

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

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


ـــــــــــــــــــ التوقيع ــــــــــــــــــــ
avatar
alfakeehy
.....
.....

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

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

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

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

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

صورة وهو شغال

[URL="http://www.up-00.com/"][/URL]

رابط التحميل

http://www.up-00.com/?qQJP

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

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

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

http://egy-tech.forumegypt.net

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

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

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

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

ـــــــــــــــــــ التوقيع ــــــــــــــــــــ
avatar
alfakeehy
.....
.....

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

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

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


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