Функция _MusicBeep

         Описание функции

_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)