SoundSetVolume in sound.au3

[nobbe]

hi

i added a function to the sound.au3

_SoundSetVolume($media, GUICtrlRead($sl), "BASS") ;

_SoundSetVolume($media, GUICtrlRead($sl), "TREBLE") ;

_SoundSetVolume($media, GUICtrlRead($sl), "LEFT") ;

_SoundSetVolume($media, GUICtrlRead($sl), "RIGHT") ;

_SoundSetVolume($media, GUICtrlRead($sl)) ;

where bass and treble dont always seem to work ..

expandcollapse popup

;===============================================================================
;
; Function Name:   _SoundSetVolume
; Description::    Set the Volume and Bass / Treble for a soundfile
; Parameter(s):    $sSnd_id     - Sound ID returned by _SoundOpen
;                  $iVol        - the volume for the file 0-100
;                   $sName = "" : (default) set both channel
;                           LEFT    :  set left channel
;                           RIGHT   :  set right channel
;                           BASS    :  set BASS 0 - 100
;                           TREBLE  :  set TREBLE 0 - 100
;
; Requirement(s):  AutoIt 3.2 ++
; Author(s):       Nobbe
;
;===============================================================================
Func _SoundSetVolume($sSnd_id, $iVol, $sName = "")
    
    ;Declare variables
    Local $iRet

    If $iVol >= 0 And $iVol <= 100 Then
        $iVol *= 10 ; vol goes here from 0 - 1000
    EndIf

    Switch $sName
        Case "LEFT"
            $iRet = mciSendString("setaudio " & $sSnd_id & " left volume to " & $iVol & " wait")

        Case "RIGHT"
            $iRet = mciSendString("setaudio " & $sSnd_id & " right volume to " & $iVol & " wait")

        Case "BASS"
            $iRet = mciSendString("setaudio " & $sSnd_id & " bass to " & $iVol & " wait")

        Case "TREBLE"
            $iRet = mciSendString("setaudio " & $sSnd_id & " treble to " & $iVol & " wait")

        Case Else ; default 0 "" 
            $iRet = mciSendString("setaudio " & $sSnd_id & " volume to " & $iVol & " wait")
    EndSwitch

    ;return
    If $iRet = 0 Then
        Return 1
    Else
        Return SetError(1, 0, 0)
    EndIf
EndFunc   ;==>_SoundSetVolume

Edited January 19, 2007 by nobbe

[RazerM]

This looks very good. I am using my PSP at the moment so I will test later.

[RazerM]

Unfortunately this command is only meant for Digital Video and VCR devices. It does not work for me anyway.