Salar.Shayegan
جمعه 07 تیر 1392, 13:38 عصر
سلام دوستان
من یه سورس رو از طریق ویرایش یه سورس دیگه بدست آوردم و هدفش اینه که یک صدا را که در کنار برنامه قرار داره پخش میکنه...
میخواستم یکی از دوستان معنی و مفهوم کلی هر خط رو (بصورت خط به خط) توضیح بدهد اگر ممکن است.
(سورس آنرا هم پیوست کرده ام)
کد:
Dim retval As Single
Private Declare Function PlaySound Lib "winmm.dll" Alias _
"PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, _
ByVal dwFlags As Long) As Long
Private Declare Function waveOutGetNumDevs Lib "winmm.dll" () As Long
Public Function CanPlayWaves() As Boolean
Dim x As Integer
x = waveOutGetNumDevs()
CanPlayWaves = x
End Function
Public Function PlayWaveFile(strFileName As String, _
Optional blnAsync As Boolean) As Boolean
Dim lngFlags As Long
Const snd_sync = &H0
Const snd_Async = &H1
Const snd_Nodefault = &H2
Const snd_Filename = &H20000
lngFlags = snd_Nodefault Or snd_Filename Or snd_sync
If blnAsync Then lngFlags = lngFlags Or snd_Async
PlayWaveFile = PlaySound(strFileName, 0&, lngFlags)
End Function
Private Sub cmd1_Click()
retval = PlayWaveFile(App.Path & "\" & "bounce.wav", True)
End Sub
سورس:
من یه سورس رو از طریق ویرایش یه سورس دیگه بدست آوردم و هدفش اینه که یک صدا را که در کنار برنامه قرار داره پخش میکنه...
میخواستم یکی از دوستان معنی و مفهوم کلی هر خط رو (بصورت خط به خط) توضیح بدهد اگر ممکن است.
(سورس آنرا هم پیوست کرده ام)
کد:
Dim retval As Single
Private Declare Function PlaySound Lib "winmm.dll" Alias _
"PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, _
ByVal dwFlags As Long) As Long
Private Declare Function waveOutGetNumDevs Lib "winmm.dll" () As Long
Public Function CanPlayWaves() As Boolean
Dim x As Integer
x = waveOutGetNumDevs()
CanPlayWaves = x
End Function
Public Function PlayWaveFile(strFileName As String, _
Optional blnAsync As Boolean) As Boolean
Dim lngFlags As Long
Const snd_sync = &H0
Const snd_Async = &H1
Const snd_Nodefault = &H2
Const snd_Filename = &H20000
lngFlags = snd_Nodefault Or snd_Filename Or snd_sync
If blnAsync Then lngFlags = lngFlags Or snd_Async
PlayWaveFile = PlaySound(strFileName, 0&, lngFlags)
End Function
Private Sub cmd1_Click()
retval = PlayWaveFile(App.Path & "\" & "bounce.wav", True)
End Sub
سورس: