كود تشغيل صوت من نوع WAV

أخي الحبيب :

سوف تستخدم الدالة sndPlaySound , و هي كالأتي :

في منطقة الإعلان العام نكتب الكود التالي :

Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Private Const SND_LOOP = &H8
Private Const SND_ASYNC = &H1
Private Const SND_NODEFAULT = &H2

و في الحدث Click لزر الأمر نكتب الكود التالي :

sndPlaySound App.Path & "\temp.wav", SND_LOOP + SND_ASYNC

شكراً على التجاوب السريع :lol:

لكن اريد استدعاء الصوت من :rolleyes: C:/windows/Medi

,وهناك ملاحظة .. عندما قمت بتنفيذ الكود الذي قمت بطرحة والضغط على الــCOmmand تم تكرار الصوت اكثر من مره بدون ان اقوم بالضغط على الــCommand

ارجو الامساعدة اريد اظهار الصوت عند النقر فقط .. :(

أضف زر command1

وأداة ملتيمديا كونترول mmcontrol وسميها MM ثم اكتب هذا الكود

Private Sub Command1_Click()
Dim filen
MM.Visible = False
MM.DeviceType = "waveaudio"
filen = App.Path
If right(filen, 1) <> "\" Then
filen = filen + "\"
End If
filen = filen + "yasser.wav"
MM.FileName = filen
MM.Command = "open"
MM.Command = "prev"
MM.Command = "open"
MM.Command = "play"
End Sub

ولو عايز تشغل كل الانواع أحذف

mm.divecid

قريبه من كده

------------------------------------------------

2-لو عايز تشغل صوره

|_1_اضف بيكتشر+تيمي

اضبط التيمير علي 100

واكتب

mm.hwnddisplay=picture1.hwnd

------------------------------------------------

بعض الحجات هضعا بعد 2 يومين (h)

:wacko: :wacko: :wacko: :wacko:

لم افهم شيء

ارجو ارفاق مثال لأستطيع فهم الكود

مع العلم اني اريد ان اقوم بتشغيل الصوت الموجود في المسار C:/windows/Medi

:( :( :( :( :(

اذا كنت تريد فقط تشغيل ملفات من النوع wav فاستعمل طريقة الأخ Alaa Awaad

اقتباس

وهناك ملاحظة .. عندما قمت بتنفيذ الكود الذي قمت بطرحة والضغط على الــCOmmand تم تكرار الصوت اكثر من مره بدون ان اقوم بالضغط على الــCommand

إستعمال SND_LOOP يودي الى تكرار الصوت ...الغها من الكود السابق وجرب

اقتباس

مع العلم اني اريد ان اقوم بتشغيل الصوت الموجود في المسار C:/windows/Medi

في كود الأخ Alaa Awaad

اقتباس

App.Path & "\temp.wav"

عدل بنفسك كود الأخ بحيث يتناسب مع طلبك

شكرا لك اخي cipher على الاهتمام :rolleyes:

كثرة الحلول وكثرة طرح الأكواد :( .. ادت بي الى عدم فهم الفكرة بشكل مناسب والتباس الموضوع لدي :wacko:

ارجو منك التكرم وطرح مثال مرفق استطيع به فهم طريقة عمل الكود بشكله الصحيح مع افتراض ان الصوت الذي اريد تشغيله يكون مستدعى من المسار C:/windows/Medi

:unsure:

المثال الاتي فيه ما تريدة فقط قم بادراج الملف الذي تريد تشغيله في المكان الذي قلت عليه وهو

C:/windows/Medi

ثم قم بتغير اسم الملف الموجود بالكود لكي يكون نفس اسم الملف الذي لديك

mm.rar

قمت بتسمسة المكل الموجود في المسار C:/windows/Medi

بأسم yasser

لكي يتناسب مع الكود المعرف ... ولكن لأسف لم يعمل :( :(

اقوم بالضغط على Cmmand ولكن لم يعمل :( :(

اخيـــراً وجدت الكود

:lol: :lol: :lol: :lol:

اضف module وضع هذا الكود فيه

Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" _
(ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

في زمن التنفيذ ضع هذا الكود

Private Sub Command1_Click()

sndPlaySound "c:\good.wav", 1

End Sub