پخش صدا در vb6

[aliyaghoobi88]

سلام
من این موضوع را تو فروم سرچ کردم ولی چیزی دست من رو نگرفت .


میخواستم ببینم که چه طور میشه یک فایل wav رو پخش کرد ،
من این کارهارو انجام دادم
اول یه ماژول ساختم و کد زیر رو توش گذاشتم


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

و بعد کد زیر رو واسه یک کلید گذاشتم




sndPlaySound App.path & "\ding.wav", SND_ASYNC



هر کار میکنم از برنامه جواب نمیگیریم :گیج:


ویندوز من media center هستش آیا به این ربطی داره؟



دوستان لطف کنید و من را راهنمایی کنید

[yavari]

سلام

سرچ کنید لطفا !
زیاد بحث شده !

موفق باشید

[yavari]

سلام

این API ش


Public Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long

Public Const SND_APPLICATION = &H80 ' look for application specific association
Public Const SND_ALIAS = &H10000 ' name is a WIN.INI [sounds] entry
Public Const SND_ALIAS_ID = &H110000 ' name is a WIN.INI [sounds] entry identifier
Public Const SND_ASYNC = &H1 ' play asynchronously
Public Const SND_FILENAME = &H20000 ' name is a file name
Public Const SND_LOOP = &H8 ' loop the sound until next sndPlaySound
Public Const SND_MEMORY = &H4 ' lpszSoundName points to a memory file
Public Const SND_NODEFAULT = &H2 ' silence not default, if sound not found
Public Const SND_NOSTOP = &H10 ' don't stop any currently playing sound
Public Const SND_NOWAIT = &H2000 ' don't wait if the driver is busy
Public Const SND_PURGE = &H40 ' purge non-static events for task
Public Const SND_RESOURCE = &H40004 ' name is a resource name or atom
Public Const SND_SYNC = &H0 ' play synchronously (default)

اینم طریقه فراخوانی :


PlaySound RingSelected(Index), 0, 0

موفق باشید

[javaweb341]

سلام دوستان
من این کدها را قرار می دهم و صدا پخش می شود ولی مشکل اینجاست که vb هنگ می کند
راهی برای جلوگیری از هنگ وجود داد؟
کسی راه دیگری ندارد؟(پخش صدا بدون کامپوننت)
من توی انجمن جستجو کردم و جز این تاپیک چیز دیگری ندیدم پس همینجا پرسیدم
با تشکـــــــــر

[mohammadali.seddigh]

برای پخش صدا با فرمت wav در ویژوال بیسیک 6 ابتدا یک ماژول را تولید کنید وکد زیر را در آن بنویسید


Public lSound As Long
Declare Function sndSound Lib "WINMM.DLL" Alias "sndPlaySoundA" (ByVal lpszSoundName As
String, ByVal uFlags As Long) As Long

خوب حال در یک دکمه کد زیر را بنویسید

lSound = sndSound(App.Path & "\name.wav", 1)

و به جای Name آدرس فایل رو بنویسید خوب حالا اگه رو یه دکمه کلیک کنید صدا پخش میشه

[isaac23]

VFmp3player1.Play
VFmp3player1.Stop
VFmp3player1.Pause


شاید بدرد بخوره دوست عزیز