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

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

null@example.com (baraban) — Sat, 04 Feb 2023 12:54:29 +0000

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

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

null@example.com (__Михаил__) — Sat, 04 Feb 2023 02:43:09 +0000

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

#Include VA.ahk

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

null@example.com (baraban) — Fri, 03 Feb 2023 23:12:41 +0000

__Михаил__

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

null@example.com (__Михаил__) — Fri, 03 Feb 2023 16:18:09 +0000

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: Определение звука

null@example.com (Malcev) — Fri, 03 Feb 2023 11:42:57 +0000

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

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

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

null@example.com (baraban) — Fri, 03 Feb 2023 11:22:05 +0000

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

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

null@example.com (Malcev) — Fri, 03 Feb 2023 10:35:33 +0000

[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: Определение звука

null@example.com (baraban) — Fri, 03 Feb 2023 07:57:05 +0000

Приветствую всех.
Помогите с написанием скрипта который будет срабатывать на звук. Посмотрев чутка форум нашёл очень похожий по смыслу работы, но он срабатывает на любой звук в диапазоне от 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