Tags:
programmering
Hej derude
Jeg er i gang med at lave et simpelt program i VB.NET, som kan indspille en wav fil vha. en TrackBar. Men jeg kunne godt tænke mig at justere lydstyrken af denne wav fil på pc højttaleren istedet.
Er der nogen gode ideer?
Tak på forhånden
Mvh
W.A.
Bilag:
Jeg har forsøgt lidt af hvert. Her viser jeg noget af den kode jeg skrevet:
'************************************
Public Class SoundClass
Declare Auto Function PlaySound Lib "winmm.dll" (ByVal name _
As String, ByVal hmod As Integer, ByVal flags As Integer) As Integer
Declare Auto Function waveOutSetVolume Lib "winmm.dll" (ByVal uDeviceID _
As Long, ByVal dwVolume As Long) As Long
Declare Auto Function waveOutGetVolume Lib "winmm.dll" (ByVal uDeviceID _
As Long, ByVal lpdwVolume As Long) As Long
Declare Auto Function waveOutGetNumDevs Lib "winmm.dll" () As Long
Public Sub PlaySoundFile(ByVal filename As String)
PlaySound(filename, Nothing, &H20000 Or &H1)
End Sub
End Class
'******************************
Private Sub trackBar1_Scroll(ByVal sender As Object, ByVal e As System.EventArgs) Handles TrackBar1.Scroll
Dim SoundInst As New SoundClass
Dim retval As Long
TrackBar1.Maximum = 65
TrackBar1.TickFrequency = 1
TrackBar1.LargeChange = 5
TrackBar1.SmallChange = 1
TextBox1.Text = TrackBar1.Value
SoundInst.PlaySoundFile("C:\\1.wav")
retval = SoundClass.waveOutGetNumDevs()
If TrackBar1.Value > 2 Then
retval = SoundClass.waveOutSetVolume(&H7FFF, 0)
SoundInst.PlaySoundFile("C:\\1.wav")
Else
retval = SoundClass.waveOutSetVolume(&HFFFF, 0)
SoundInst.PlaySoundFile("C:\\1.wav")
End If
End Sub
'*******************************************