إدراج ملف صوتي امتداده WAV

بسم الله

توجد طريقتين اعرفهما لتشغيل اصوات Wav

الاولى استخدام اداة Mediaplayer

والثانية استخدام دالة API وهي Sndplaysound

وقد ارفقت مثال به الطريقتين ومعه الاداة مع ملاحظة ان هذه الدالة لا تشغل الا اصوات Wav اما الاداة فهي تشغل العديد من الامتدادات

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

SoundEx.rar

السلام.........

شكراً لك أخي الكريم،لكن عندي سؤالين فقط لأتأكد أني فاهمة الموضوع.

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

و السؤال الثاني، في أدوات شكلها مو مألوف،يعني هل ظهرت لأنك استخدمت طريقة الدالة؟ و التي لا أفضلها لأنها شوي مو سهل أفهمها .مثال على هذه الأشكال الغريبة علي أنا شكل اسمه amcopat.tlb

شكراً مجدداً.....

في أمان الله.......

MMcontrol

	Dim path
	Dim file
	path = App.path
	If Right(path, 1) <> "\" Then path = path + "\"
	file = path + "\mysound.wav"
	mm.DeviceType = "waveaudio"
	mm.FileName = file
	mm.Command = "open"
	mm.Command = "play"

في المرفقات مثال بسيط

NOUR_sounds.rar

بسم الله

الاخت العزيزة

بالنسبة لأداة Msdxm فهي بالفعل آداة الميديا التي تشغل الاصوات على اي جهاز وعليكي ان ترفقيها مع البرنامج

اما بالنسبة للسؤال الثاني فأنا لا افهمة ولكن دالة Sndplaysound لا تستخدم اي ادوات . تشغل الاصوات مباشرة ولكن WAV فقط

بالتوفيق