Adjusting the volume of beep() ?

[Cormin]

I use the beeps for something I use on a daily basis but the volume seems a bit high.  I can't seem to find a way to adjust the volume of only this script.  It does not show in my windows 10 volume mixer. SoundSetWaveVolume() doesn't seem to work.

Edited August 24, 2016 by Cormin

[Danyfirex]

You can't adjust volume of Beep. Probably you need to write your own beep function. 

 

Saludos

[Danyfirex]

I did this just for fun.

 

expandcollapse popup

#include <WinAPI.au3>
#include <WinAPIEx.au3>
#include <WinAPIMisc.au3>

Beep()

_Beep(500,1000,50)
_Beep(500,1000,30)
_Beep(500,1000,10)
_Beep(500,1000,5)
_Beep(500,1000,3)
_Beep(500,1000,1)


;~ Traslated from http://stackoverflow.com/a/19772815
Func _Beep($iFrequency = 500, $imsDuration = 1000, $iVolume = 100);Volume 1 to 100


    Local Const $PI = 3.141592653589
    Local Const $TAU = 2 * $PI
    Local Const $iFormatChunkSize = 16
    Local Const $iHeaderSize = 8
    Local Const $iFormatType = 1
    Local Const $iTracks = 1
    Local Const $iSamplesPerSecond = 44100
    Local Const $iBitsPerSample = 16
    Local Const $iFrameSize = Floor($iTracks * (($iBitsPerSample + 7) / 8))
    Local Const $iBytesPerSecond = $iSamplesPerSecond * $iFrameSize
    Local Const $iWaveSize = 4
    Local Const $iSamples = Floor($iSamplesPerSecond * $imsDuration / 1000)
    Local Const $iDataChunkSize = Int($iSamples * $iFrameSize)
    Local Const $iFileSize = ($iWaveSize + $iHeaderSize + $iFormatChunkSize + $iHeaderSize + $iDataChunkSize)
    Local Const $sTagWAVHeader = "char ChunkID[4];int ChunkSize;char Format[4];char Subchunk1ID[4];" & _
            "int Subchunk1Size;short AudioFormat;short NumChannels;int SampleRate;" & _
            "int ByteRate;short BlockAlign;short BitsPerSample;char Subchunk2ID[4];" & _
            "int Subchunk2Size;"

    Local $sTagWAVHeaderAndData = $sTagWAVHeader & "short AudioWave[" & $iDataChunkSize / 2 & "]"
    Local $tWAVHeader_Data = DllStructCreate($sTagWAVHeaderAndData)

    $tWAVHeader_Data.ChunkID = "RIFF"
    $tWAVHeader_Data.ChunkSize = $iFileSize
    $tWAVHeader_Data.Format = "WAVE"
    $tWAVHeader_Data.Subchunk1ID = "fmt "
    $tWAVHeader_Data.Subchunk1Size = $iFormatChunkSize
    $tWAVHeader_Data.AudioFormat = $iFormatType
    $tWAVHeader_Data.NumChannels = $iTracks
    $tWAVHeader_Data.SampleRate = $iSamplesPerSecond
    $tWAVHeader_Data.ByteRate = $iBytesPerSecond;
    $tWAVHeader_Data.BlockAlign = $iFrameSize
    $tWAVHeader_Data.BitsPerSample = $iBitsPerSample
    $tWAVHeader_Data.Subchunk2ID = "data"
    $tWAVHeader_Data.Subchunk2Size = $iDataChunkSize

    Local $iAmplitude = 16383 / (100 / $iVolume)
    Local $iShort = 0
    $iTheta = $iFrequency * $TAU / $iSamplesPerSecond
    For $iStep = 0 To $iSamples - 1
        $iShort = Int($iAmplitude * Sin($iTheta * ($iStep)))
        DllStructSetData($tWAVHeader_Data, "AudioWave", $iShort, $iStep + 1)
    Next


    _WinAPI_PlaySound(DllStructGetPtr($tWAVHeader_Data), $SND_MEMORY)


EndFunc   ;==>_Beep

Saludos

[mLipok]

7 minutes ago, Danyfirex said:

I did this just for fun.
Saludos

 very nice fun.

 

[Cormin]

On 8/24/2016 at 2:16 PM, Danyfirex said:

I did this just for fun.

 

expandcollapse popup

#include <WinAPI.au3>
#include <WinAPIEx.au3>
#include <WinAPIMisc.au3>

Beep()

_Beep(500,1000,50)
_Beep(500,1000,30)
_Beep(500,1000,10)
_Beep(500,1000,5)
_Beep(500,1000,3)
_Beep(500,1000,1)


;~ Traslated from http://stackoverflow.com/a/19772815
Func _Beep($iFrequency = 500, $imsDuration = 1000, $iVolume = 100);Volume 1 to 100


    Local Const $PI = 3.141592653589
    Local Const $TAU = 2 * $PI
    Local Const $iFormatChunkSize = 16
    Local Const $iHeaderSize = 8
    Local Const $iFormatType = 1
    Local Const $iTracks = 1
    Local Const $iSamplesPerSecond = 44100
    Local Const $iBitsPerSample = 16
    Local Const $iFrameSize = Floor($iTracks * (($iBitsPerSample + 7) / 8))
    Local Const $iBytesPerSecond = $iSamplesPerSecond * $iFrameSize
    Local Const $iWaveSize = 4
    Local Const $iSamples = Floor($iSamplesPerSecond * $imsDuration / 1000)
    Local Const $iDataChunkSize = Int($iSamples * $iFrameSize)
    Local Const $iFileSize = ($iWaveSize + $iHeaderSize + $iFormatChunkSize + $iHeaderSize + $iDataChunkSize)
    Local Const $sTagWAVHeader = "char ChunkID[4];int ChunkSize;char Format[4];char Subchunk1ID[4];" & _
            "int Subchunk1Size;short AudioFormat;short NumChannels;int SampleRate;" & _
            "int ByteRate;short BlockAlign;short BitsPerSample;char Subchunk2ID[4];" & _
            "int Subchunk2Size;"

    Local $sTagWAVHeaderAndData = $sTagWAVHeader & "short AudioWave[" & $iDataChunkSize / 2 & "]"
    Local $tWAVHeader_Data = DllStructCreate($sTagWAVHeaderAndData)

    $tWAVHeader_Data.ChunkID = "RIFF"
    $tWAVHeader_Data.ChunkSize = $iFileSize
    $tWAVHeader_Data.Format = "WAVE"
    $tWAVHeader_Data.Subchunk1ID = "fmt "
    $tWAVHeader_Data.Subchunk1Size = $iFormatChunkSize
    $tWAVHeader_Data.AudioFormat = $iFormatType
    $tWAVHeader_Data.NumChannels = $iTracks
    $tWAVHeader_Data.SampleRate = $iSamplesPerSecond
    $tWAVHeader_Data.ByteRate = $iBytesPerSecond;
    $tWAVHeader_Data.BlockAlign = $iFrameSize
    $tWAVHeader_Data.BitsPerSample = $iBitsPerSample
    $tWAVHeader_Data.Subchunk2ID = "data"
    $tWAVHeader_Data.Subchunk2Size = $iDataChunkSize

    Local $iAmplitude = 16383 / (100 / $iVolume)
    Local $iShort = 0
    $iTheta = $iFrequency * $TAU / $iSamplesPerSecond
    For $iStep = 0 To $iSamples - 1
        $iShort = Int($iAmplitude * Sin($iTheta * ($iStep)))
        DllStructSetData($tWAVHeader_Data, "AudioWave", $iShort, $iStep + 1)
    Next


    _WinAPI_PlaySound(DllStructGetPtr($tWAVHeader_Data), $SND_MEMORY)


EndFunc   ;==>_Beep

Saludos

Wow thank you!  This should just be integrated into the real beep()

[Danyfirex]

A better way to make this is create a buffer before call it.

Because if you want to play a long beep it will be muted while sine wave buffer is been created.

 

Saludos