Сайт AZJIO
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
Меню сайта
Категории раздела
Скрипты для LiveCD [0]
Скрипты для WindowsXP [8]
Примеры скриптов [15]
Функции [5]
Поиск
Главная » Статьи » Скрипты AutoIt3 » Функции

_Beep
Функция Beep воспроизводит звук на системном динамике ПК. Сделав некоторые вычисления для частоты нот можно воспроизводить мелодию. Имеем функцию, в которой передаётся номер ноты, октава, время звучания и пауза если потребуется. Здесь вы можете скачать ещё несколько скриптов-мелодий

; Z.Abreu_Tico-Tico

Global $nTempo = 0.8
Global $iTone = 0
HotKeySet("{ESC}", "_Quit")

_Beep(8, 4, 100)
_Beep(7, 4, 100)
_Beep(8, 4, 100)
_Beep(9, 4, 100)
_Beep(8, 4, 100, 100)
_Beep(1, 5, 100, 100)

_Beep(8, 4, 100)
_Beep(7, 4, 100)
_Beep(8, 4, 100)
_Beep(9, 4, 100)
_Beep(8, 4, 100, 100)
_Beep(12, 4, 100, 100)

_Beep(8, 4, 100)
_Beep(7, 4, 100)
_Beep(8, 4, 100)
_Beep(9, 4, 100)
_Beep(8, 4, 100)

_Beep(6, 5, 100)
_Beep(3, 5, 100)
_Beep(12, 4, 100)
_Beep(8, 4, 100)
_Beep(6, 4, 100)
_Beep(5, 4, 100)
_Beep(4, 4, 200, 300)

; @AZJIO
Func _Beep($iNote, $iOctave = 4, $iDuration = 200, $iPause = 0)
    $iFrequency = 440 * 2 ^ (($iNote + $iTone) / 12 + $iOctave + 1 / 6 - 4)
    Beep($iFrequency, $iDuration / $nTempo)
    If $iPause <> 0 Then Sleep($iPause / $nTempo)
EndFunc   ;==>_Beep

Func _Quit()
    Exit
EndFunc
  ;==>_Quit

Категория: Функции | Добавил: AZJIO (11.01.2011)
Просмотров: 805 | Рейтинг: 0.0/0
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Вход
Друзья сайта
  • WinPE - Ru.Board
  • Rutracker.Org
  • LiveCD - Ru.Board
  • AutoIT3 - Ru.Board
  • autoit-script.ru
  • autoitscript.com
  • Статистика

    Онлайн всего: 1
    Гостей: 1
    Пользователей: 0
    WebMoney

    Мой кошелёк

    wmr: R939163939152

    Яндекс: 410011460667731


    AZJIO © 2017