اذهب الي المحتوي
أوفيسنا

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


إذهب إلى أفضل إجابة Solved by ابو ياسين المشولي,

الردود الموصى بها

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

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

MP3_WAV_Player_SEMO_Pa3x.accdb

رابط هذا التعليق
شارك

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

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

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

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

رابط هذا التعليق
شارك

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

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

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

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

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

 

تم تعديل بواسطه محمد صلاح1
رابط هذا التعليق
شارك

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

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

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

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

تم تعديل بواسطه محمد صلاح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]

 

رابط هذا التعليق
شارك

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

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

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

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

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

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

رابط هذا التعليق
شارك

  • 2 months later...

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

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

تم تعديل بواسطه محمد صلاح1
رابط هذا التعليق
شارك

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

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

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

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

تم تعديل بواسطه محمد صلاح1
رابط هذا التعليق
شارك

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

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

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

تم تعديل بواسطه ابو ياسين المشولي
  • Thanks 1
رابط هذا التعليق
شارك

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

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

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information