تشغيل الملفات الصوتية

جاري التحميل وشكراا ,,,

مشاركة طيبة يا أخي بوجلاوي

و نتمنى أن تكون بداية موفقة معنا في المنتدى

جاري التحميل و إنشاء نرجعلك الرد و آراءنا في البرنامج ، مشكوووووور جدا

الاخ الكريم بوجلاوي

فعلا شيء رائع

اكتب التالي

mp3

wav

AVI Sound Only

au

Midi

mpg

نعم حتى ملفات الفيديو جرب ذلك وحدد بدل ملف الصوت ملف فيديو

ويجد غلط بسيط اتمنى ان تصححه لكي يتعامل مع الملفات الداخلة بمجلدات فيها فواصل

في السطر 33

في الملف MultiMedia

بدله من

lRet = mciSendString("open " & FileName & " alias track", "", 0, 0)

الى

lRet = mciSendString("open """ & FileName & """ alias track", "", 0, 0)

ومشكور جدا ياطيب

اخي بوجلاوي

أوليس الكود منقول من هنا

http://www.codeproject.com/vb/net/vbnetSoundClass.asp

السلام عليكم و رحمة الله و بركاته

أخي blackeyes

نعم أنا مشترك في ذلك الموقع و هو CodeProject.com

و المثال موجود في الموقع و لكنني قمت بالتعديل فيه وكذلك حذفت منه بعض الأجزاء و قمت بإضافة أجزاء أخرى غير موجودة

و أنا لا أنكر ذلك.

و ذلك من أجل التبسيط و التسهيل في الفهم.

و لو أردت الدقة أكثر فهذا المثال موجود بلغة Vb 6.0 بكثرة و في عدة مواقع حيث يتم استخدام دالة API المسماة mciSendString

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

المعرفة تكتسب من خلال القراءة و الإطلاع و العمل و من بعدها تتكون الخبرة.

أخيكم..أحمد بوجلاوي

لااقصد بردي شئ

ولكن الكثير من الاعضاء يقولون التالي

"كنت ابحث عن شئ معين في المنتديات الاجنبية ووجدت هذا المثال وعدلته واحببت ان تتطلعوا عليه"

كي لانبخس الاخرين حقوقهم ايا كانوا

السلام عليكم و رحمة الله و بركاته:

أخي blackeyes

بارك الله فيك أولاً

كلٌ يعمل بما لديه فمن كان في قصده النفع و الخير جزاه الله بذلك و من كان قصده غير ذلك فليهده الله إلى طريق الصواب

أما بالنسبة للمثال فلو قارنته بالمثال الأخر لوجدت بعض الأختلاف بينهما

1. حيث يوجد في المثال الأجنبي مشيد واحد و يجبر المستخدم عند عمل اشتقاق من الكائن أن يحدد اسم الملف

بينما في المثال المعدل يمكن عمل الأثنين معاً أي يمكنك أيضاً أن تعمل اشتقاق من تحديد اسم الملف

2. في المثال الأجنبي الخاصية FileName ترجع لك اسم الملف و لا تستطيع من خلالها تحديد اسم الملف للتشغيل مثلاً

أما في المثال المعدل يمكنك تحدي الملف أو الرجوع باسم الملف.

3. في المثال الأجنبي لا توجد عملية إيقاف الملف مؤقتاً

أما في المثال المعدل فتوجد هذه العملية تحت اسم (PauseSound)

4. في المثال الأجنبي لا توجد عملية استمرار قراءة الملف من عند المكان الذي توقف فيه

أما في المثال المعدل فتوجد هذه العملية تحت اسم (ContinueSound)

5. في المثال الأجنبي يتم التعامل مع الكائن DirectX

أما في المثال المعدل تم إلغاء التعامل مع الكائن DirectX و ذلك لتسهيل عملية فهم و استيعاب المثال

و السلام عليكم و رحمة الله و بركاته.

اخوتي الاعزاء

بالنسبة الى بعض الاخوة الكرام فانهم يكتبون ان الاكواد منقولة من هنا او هناك

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

لنسعى الى رفد المنتدى بالبرامج دائما

جزاكم الله خير الجزاء

المهندس

عدي ياسين الموسوي

اخي العزيز عذرا

اقرأ مشاركتي في هذا المقال

مشاركة #5

واستثني الباقي

السلام عليكم و رحمة الله و بركاته

أخي blackeyes

حفظك الله و رفع الله بعلمك هذه الأمة

أنا لا أريد منك أبداً أن تعتذر بل أريد منك أن تستمر في خطاك تنبه و تحذر من الأخطاء و العيوب و المغالطات

فيجب علينا جميعاً أن نفعل ذلك من أجل أن تنشئ هذه الأمة نشأة صحيحة طيبة

و أنا كان يفترض بي أن أذكر أساس المثال من أين.

زادك الله علما

شباب لدي هذا الملفين لتشغيل ملفات MP3 ولكن ما عرفت أستخدمهن أرجو من لدية خبرة في ذالك أن يعمل بهن مثال ،،،،

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

............شكرا لكم (حلو لي المشكلة أرغب في عمل برنامج يشغل ملفات MP3 دون الحاجة إلى أي برامج أخرى كالريل والميديا بلير..... بل يكون لديه مشغل خاص يمكن للمستخدم أن يزيد وينقص الصوت ويقدم ويأخر في الملف مثل الميديا بلير والريل ولكم جزيل الشكر مرة أخرى) ,,,,,,,,,,,,,,,,,,,,

ocx.rar

أخي الكريم شكرا على المثال الجميل ...................

ولكن لو تفضلت علينا بتطويره أكثر بحيث تضيف فيه :

1- زر لزيادة الصوت وآخر تنقيصة

2- يوجد مربع نص يظهر طول الملف الصوتي وكم تم القرآه منه الآن

وغيرها...... الصورة تبين ذلك ولك الشكر الجزيل أخي .....

أنتظر تطويرك أحر من الجمر.......

بسم الله الرحمن الرحيم

ما شاء الله وتبارك الرحمن

مثال جميل مجيد واتمنى لك التوفيق

لكن حولته الى vb2005 وحدث الخطأ التالي عند محاولة تشغيله

شى جميل جدا يا شباب انا كنت محتاج الكود ده فعلا متشكر جدا