Серый форум — AHK: Определение звука

Re: AHK: Определение звука

2023-02-04T12:54:29Z

__Михаил__
Спасибо.

Re: AHK: Определение звука

2023-02-04T02:43:09Z

baraban Импорт библиотеки 'VA.ahk' в код добавить нужно. У меня она в папке 'Lib', поэтому проблем нет.

#Include VA.ahk

Re: AHK: Определение звука

2023-02-03T23:12:41Z

__Михаил__

Re: AHK: Определение звука

2023-02-03T16:18:09Z

baraban, Надеюсь этот код поможет понять что к чему:

Wait := 500	; Таймер обновления звука.
Rou := 3	; Округление после точки.
VolMax := 0.5	; Макс. громкость.
Return


F2::	; Запуск / Остановка.
KeyWait, % A_ThisHotkey, U
If !AudioMeter{
 AudioMeter := VA_GetAudioMeter(), VA_IAudioMeterInformation_GetMeteringChannelCount(AudioMeter, ChannelCount)
 VarSetCapacity(PeakValues, ChannelCount*4)
}
SetTimer, GetPeakValues, % ((SW := !SW) = 1 ? Wait : "Off")
ToolTip
ToolTip,,,,2
Return


GetPeakValues:
 SoundGet, Vol
 Vol := Round(Vol), VA_IAudioMeterInformation_GetChannelsPeakValues(AudioMeter, ChannelCount, &PeakValues)
 Loop % ChannelCount{
  If ((V := Round(NumGet(PeakValues, A_Index*4-4, "float"), Rou)) >= VolMax){
   ToolTip % "Канал: " A_Index ", Громкость: " V, 100, 0, 2
   Break
  }
  Else
   ToolTip,,,,2
 }
 ToolTip % "Left:`t" Round(NumGet(PeakValues, 1*4-4, "float"), Rou) "`nRight:`t" Round(NumGet(PeakValues, 2*4-4, "float"), Rou), 0, 0
Return

Re: AHK: Определение звука

2023-02-03T11:42:57Z

NumGet(peakValues, A_Index*4-4, "float")

Тут вы получаете значение от 0 до 1.

Re: AHK: Определение звука

2023-02-03T11:22:05Z

Malcev
Я настолько камень что не знаю как это использовать

Re: AHK: Определение звука

2023-02-03T10:35:33Z

[out] afPeakValues
Pointer to an array of peak sample values. The method writes the peak values for the channels into the array. The array contains one element for each channel in the stream. The peak values are numbers in the normalized range from 0.0 to 1.0.

https://learn.microsoft.com/en-us/windo … peakvalues

AHK: Определение звука

2023-02-03T07:57:05Z

Приветствую всех.
Помогите с написанием скрипта который будет срабатывать на звук. Посмотрев чутка форум нашёл очень похожий по смыслу работы, но он срабатывает на любой звук в диапазоне от 1 до 100. А нужен который будет срабатывать на более высокий диапазон (пример от 50 до 100).

#Include VA.ahk
#Persistent
audioMeter := VA_GetAudioMeter()
VA_IAudioMeterInformation_GetMeteringChannelCount(audioMeter, channelCount)
VarSetCapacity(peakValues, channelCount*4)
SetTimer, GetPeakValues, 100
return

GetPeakValues:
    VA_IAudioMeterInformation_GetChannelsPeakValues(audioMeter, channelCount, &peakValues)
    loop %channelCount%
        if NumGet(peakValues, A_Index*4-4, "float") {
            MsgBox раздался звук
            break
        }
    return

Задумка такая.
1. Происходит запуск скрипта
2. Начинается прокликивание ЛКМ с определённой частотой (20мс)
3. При скачке выходного звука в диапазоне от 50 до 100 происходит нажатие на Enter