التعرف علي مسار ملفات الصوت تلقائياً

[محمد صلاح1]

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

أريد إجراء تعديل عليه وهو إذا كان ملف الصوت المراد تشغيله بمجلد القاعدة أن يتم التعرف عليه تلقائياً بمجرد فتح النموذج وإذا لم يكن موجود يتم عمل زر للبحث عن ملفات الصوت علي الحاسب وشكرا

MP3_WAV_Player_SEMO_Pa3x.accdb

[ابو ياسين المشولي]

 

MP3_WAV_Player_SEMO_Pa3x.accdb

[محمد صلاح1]

شكراً أ @ابو ياسين المشولي علي التجاوب الإيجابي بالمساهمة في تنفيذ المطلوب

بالنسبة للشق الأول الذي تفضلت بالقيام بإضافته علي المرفق قد حقق المطلوب الأول رغم أن زر الايقاف لا يعمل ولا أعلم لماذا؟

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

وأكرر شكري وتقديري

[محمد صلاح1]

للرفع

[د.كاف يار]

تفضل التعديل اخي الكريم

MP3_WAV_Player_SEMO_Pa3x.accdb

[محمد صلاح1]

شكرا للتجاوب أ حسين كمال هناك ملاحظتين أخي الكريم بارك الله فيك

1- عند فتح النموذج تظهر رسالة (الكائن غير موجود في عنصر التحكم هذا).

2- جميل أن يتضمن زر التشغيل عمل زر التصفح بعد الافادة بعدم وجود الملف ولكن بعد تحديد الملف وظهور في المسار لا يعمل الملف الصوتي ؟!

فضلاً عن أني سوف اضطر عند كل دخول لاختيار الملف وهذا ما لا أريده فالملف الصوتي الأساسي سيكون بمجلد القاعدة مع أمكانية تغير الملف كل فترة

وأكرر شكري وتقديري

 

تم تعديل أغسطس 19, 2019 بواسطه محمد صلاح1

[ابو ياسين المشولي]

MP3_WAV_Player_SEMO_Pa3x.accdb

[محمد صلاح1]

أ @ابو ياسين المشولي شاكر لحضرتك متابعتك الكريمة واسمح لي فضلاً بعرض ملاحظتين:

1- مازلت أحتاج لزر التصفح بحثاً عن ملف صوتي عند الحاجة لذلك بنفس كيفية قراءة وإدراج المسار تلقائياً في مكانه

2- هل بالإمكان جعل زر التوقف أشبة بعمل زر البيوس بحيث يبدأ من حيث النقطة التي توقف عندها وليس كما في الوضع الحالي بأن يعيد تشغيل الملف الصوتي من بدايته كلما ضغط زر التوقف

مع الشكر والتقدير

تم تعديل أغسطس 19, 2019 بواسطه محمد صلاح1

[د.كاف يار]

اخي الكريم اضف مشغل Media Player

من الواضح اختلاف الاصداري بيننا تسبب في مشكلة

بعد اضافة العنصر فقط قم بتعديل الكود

 

كود تصفح الملفات

Dim Addfile As Object
Set Addfile = Application.FileDialog(3)
With Addfile
  .AllowMultiSelect = False
  .InitialFileName = ""
  .Filters.Clear
  .Filters.Add "All Files", "*.*"
  If .Show = True Then
      
      xFile = Trim(.SelectedItems(1))
      
[مربع النصف الذي سيتم تخزين المسار به] = xFile

      Else
      Exit Sub
  End If
End With

اضف الكود التالي لتشغيل العنصر

 

هذا الكود السابق و الذي يختلف فيه اصدار
MediaPlayer
WindowsMediaPlayer4.URL = [SoundPath]

الكود الجديد
[اسم عنصر التحكم الذي تم اضافته بدلا عن السابق].URL = [SoundPath]

 

[د.كاف يار]

اتبع التالي لاضافة العنصر حسب الاصدار لديك

[ابو ياسين المشولي]

جرب هذا هذا ماتوصل اليه بعد كل المحاولات

 

 

 

 

MP3_WAV_Player_SEMO_Pa3x (2).accdb

[ابو ياسين المشولي]

هذا الاخير اظنه قريب لطلبك

MP3_WAV_Player_SEMO_Pa3x(3).accdb

[محمد صلاح1]

أولاً أعتذر للتأخير في الرد نظراً لوجود حالة وفاة بالعائلة (رحم الله موتى المسلمين وتغمدهم بواسع رحمته)

ثانياً الشكر موصول للاستاذين @ابو ياسين المشولي & @د.كاف يار علي متابعتهما ومجهوهما الكريم معي

ثالثاً بالفعل عمل أ / أبو ياسين الأخير قريب جداً من المطلوب ولكن فاضل تكة صغيرة ويكتمل المطلوب بالصورة المرجوه

فرغم وجود الملف الصوتي في مجلد القاعدة ورغم تعديل مسمي هذا الملف الصوتي كما بكود عند التحميل إلا أنه في كل مرة يتم فيها فتح النموذج يطالبني بالبحث عن الملف الصوتي

والمطلوب هو أن يتم تشغيل الملف الصوتي بمجرد فتح النموذج مع إمكانية أو إتاحة زر للبحث عن ملف صوتي جديد عند الحاجة لذلك كل فترة ليعمل بنفس الطريقة تلقائياً بمجرد فتح النموذج لا أن يطالبني عند كل فتح للنموذج بتحديد نفس الملف

مع خالص الشكر التقدير

[ابو ياسين المشولي]

 

 

MP3_WAV_Player_SEMO_Pa3x(3).accdb

[محمد صلاح1]

شكراً جزيلاً للاستاذ @ابو ياسين المشولي وجزاك الله خيراً

[ابو ياسين المشولي]

العفو وبالتوفيق

[محمد صلاح1]

واجهني إشكال يحتاج للتعديل في ملف النهائي لهذا الموضوع وهو ان الملف الصوت الذي يعمل عند فتح النموذج لا يغلق بإغلاق النموذج بل يظل يعمل بعد غلق النموذج

وما اريده هو ان يغلق ملف الصوت بمجرد غلق النموذج والخروج منه فهل من كود أو تعديل يعمل علي ذلك وشكراً

تم تعديل نوفمبر 3, 2019 بواسطه محمد صلاح1

[ابوآمنة]

حياك الله أخي محمد

ضع هذا الكود في حدث عند الإغلاق 

StopSound Me.SoundPath

وبالتوفيق

[محمد صلاح1]

تمام شكراً جزيلاً أخي صالح وجزاك الله خيراً علي الاهتمام والاعتناء بالمساعدة

[محمد صلاح1]

أ @ابو ياسين المشولي أ @ابوآمنة الأخوة الإعضاء السلام عليكم

فضلاً يواجهني إشكال جديد يحتاج للمساعدة في نفس المرفق النهائي الأخير للموضوع والذي يتمثل في

عند عمل نسخ للنموذج frm_Sounds باسم frm_Sounds1 ليفتح ملف صوتي مختلف وجدته يفتح نفس الملف الصوتي للنموذج frm_Sounds رغم اني غيرت المسمي من داخل اكواد النموذج frm_Sounds1 بالاسم الجديد والعكس عند أختيار ملف صوتي جديد للنموذج الجديد frm_Sounds1 يعمل أيضاً عند فتح النموذج  frm_Sounds

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

تم تعديل نوفمبر 4, 2019 بواسطه محمد صلاح1

[ابو ياسين المشولي]

من قوانين المنتدى فتح موضوع جديد

وولمعومه انا جهزت الحل ومنتظر لفتح موضوع جديد

الا اذا سمحت الادارة فنحن في الخدمه

تم تعديل نوفمبر 4, 2019 بواسطه ابو ياسين المشولي

[jjafferr]

تفضل اخوي ابو ياسين ، فالموضوع تابع للسؤال 🙂

وشكرا لك على مراعاة قوانين المنتدى 🙂

 

جعفر

[ابو ياسين المشولي]

تسلم اخي جعفر

وهذا حسب طلب الاخ محمد صلاح

MP3_WAV_Player_SEMO_Pa3x(3).accdb

[محمد صلاح1]

شكراً للأستاذ @jjafferr علي تفهم الأمر وإتاحة الفرصة لاستمرار التواصل والعمل بروح القانون

شكراً للأستاذ @ابو ياسين المشولي علي الاهتمام والتفاعل الإيجابي وتسلم أيديك

[ابو ياسين المشولي]

بالتوفيق اخي محمد صلاح1

ونكرر الشكر للاخ جعفر