_MusicBeep
Проигрывает мелодию системным динамиком ПК.
#Include <_MusicBeep.au3>
_MusicBeep ( $aNote[, $iRepeat=1 [, $nTempo=1 [, $iTone=0]]] )
Параметры
$aNote | Массив содержащий ноты в следующем формате: $aNote[x][0] - Номер ноты от 1 до 12 $aNote[x][1] - Номер октавы от 1 до 8 $aNote[x][2] - Длительность ноты в миллисекундах $aNote[x][3] - Пауза в миллисекундах В каждой строке массива информация об одной ноте |
$iRepeat |
[необязательный] Количество повторений мелодии (по умолчанию 1) |
$nTempo |
[необязательный] Темп, дробное число больше 0 (по умолчанию 1) |
$iTone |
[необязательный] Смещение тональности - положительное или отрицательное целое число (по умолчанию 0) |
Возвращаемое значение
Успех: | Проигрывает мелодию. |
Примечания
На некоторых ноутбуках отсутствует системный динамик ПК, поэтому будет отсутствовать звук, а скрипт при этом выполнятся в соответствии со временем воспроизведения. Отсутствует проверка валидности данных. Если указать номер ноты 14 это тоже самое, что нота 2 следующей октавы. Если длительность и темп уменьшить в одинаковое число раз, например в 10, то скорость воспроизведения не изменится. Это даёт возможность указывать длительность в долях, а не по миллисекундам.Пример
; AZJIO
; http://www.autoitscript.com/forum/topic/115869-beep/
#include <_MusicBeep.au3>
Dim $aNote[24][4] = [ _
[8, 4, 100, 0], _
[7, 4, 100, 0], _
[8, 4, 100, 0], _
[9, 4, 100, 0], _
[8, 4, 100, 100], _
[1, 5, 100, 100], _
[8, 4, 100, 0], _
[7, 4, 100, 0], _
[8, 4, 100, 0], _
[9, 4, 100, 0], _
[8, 4, 100, 100], _
[12, 4, 100, 100], _
[8, 4, 100, 0], _
[7, 4, 100, 0], _
[8, 4, 100, 0], _
[9, 4, 100, 0], _
[8, 4, 100, 0], _
[6, 5, 100, 0], _
[3, 5, 100, 0], _
[12, 4, 100, 0], _
[8, 4, 100, 0], _
[6, 4, 100, 0], _
[5, 4, 100, 0], _
[4, 4, 200, 300]]
_MusicBeep($aNote, 1, 0.8)