منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
تشغيل ملفا الصوت بواسطة الاداة AxWindowsMediaPlayer1 - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : تشغيل ملفا الصوت بواسطة الاداة AxWindowsMediaPlayer1 (/showthread.php?tid=7092)



تشغيل ملفا الصوت بواسطة الاداة AxWindowsMediaPlayer1 - aftfm - 22-11-12

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

اريد كود يقوم بتشغيل ملفات الصوت الموجودة في مجلد Resources

عن طريق اداة AxWindowsMediaPlayer1


تشغيل ملفا الصوت بواسطة الاداة AxWindowsMediaPlayer1 - aftfm - 26-11-12

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

تعريف متغير

PHP كود :
Dim ResourceFilePath As String 

ثم في Load الفورم

PHP كود :
ResourceFilePath System.IO.Path.GetFullPath(Application.StartupPath "\..\..\resources\")
        AxWindowsMediaPlayer1.settings.volume = 100 
ثم في الـ Button
PHP كود :
AxWindowsMediaPlayer1.URL ResourceFilePath "\Wrong_Answer.wav" 



تشغيل ملفا الصوت بواسطة الاداة AxWindowsMediaPlayer1 - sooriaty03 - 26-11-12

أخي للمعلومية عند تحزيم البرنامج وإرساله إلى أي جهاز آخر فإنه لن يكون هناك مجلد باسم Resources
لأن هذا المجلد موجود فقط على الجهاز الذي يحوي المشروع
وبالتالي سوف يعطي البرنامج رسالة خطأ
لكن تستطيع استخدام الأمر
My.Computer.Audio.Play


تشغيل ملفا الصوت بواسطة الاداة AxWindowsMediaPlayer1 - sooriaty03 - 26-11-12

وهذا هو الكود
كود :
My.Computer.Audio.Play(My.Resources.Wrong_Answer, AudioPlayMode.Background)



تشغيل ملفا الصوت بواسطة الاداة AxWindowsMediaPlayer1 - aftfm - 26-11-12

عفواً اخي العزييز sooriaty03

انا جربت وعملت تحزيم للبنامج ومشي الحال اقصد تم تشغيل الملفات التي بداخل مجلد Resources

هل انت متأكد انه لا يعمل


تشغيل ملفا الصوت بواسطة الاداة AxWindowsMediaPlayer1 - sooriaty03 - 26-11-12

جرب وانقله إلى جهاز آخر ولاحظ النتيجة


تشغيل ملفا الصوت بواسطة الاداة AxWindowsMediaPlayer1 - aftfm - 26-11-12

نعم جربت واشتغل لكن الجهاز الآخر منصب به فيجوال بيسك 2008
هل لهذا السبب اشتغل
وهل تقصد انصبه في جهاز ليس به فيجوال بيسك مثلا


تشغيل ملفا الصوت بواسطة الاداة AxWindowsMediaPlayer1 - sooriaty03 - 26-11-12

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


تشغيل ملفا الصوت بواسطة الاداة AxWindowsMediaPlayer1 - سعود - 26-11-12

اخواني اضافة لما تفضلتم به فان مجلد
Resources
يوجد فقط اثناء التطوير اي فقط بفيجوال استوديو لانه بعد بنائك للملف التنفيذي (اي بعد نقر زر التشغيل) يتم ازدياد حجم الملف التنفيذي.
اي ان المجلد لن ينتقل بشكله اثناء البرمجة لاي جهاز آخر بل سيتم الوصول له من خلال نفس الملف التنفيذي ولتشغيل الملف الصوتي كما ورد هنا
#4
وشكرا للجميع.