Вверх ↑
Этот топик читают: Гость
Ответов: 1926
Рейтинг: 172
#1: 2017-04-21 20:12:30 ЛС | профиль | цитата

Add(MainForm,2953706,112,119)
{
Position=1
Point(onKeyDown)
link(onKeyDown,1310435:doGetIndex,[])
}
Add(StrList,1310435,203,98)
{
Strings=#0:|2:96|2:97|2:98|2:99|3:100|3:101|3:102|3:103|3:104|3:105|
Point(doGetIndex)
Point(onGetIndex)
link(onGetIndex,735455:doOperation,[])
}
Add(hcVisualText,12937375,189,245)
{
Lines=#2:96|
}
Add(hcKeyHandler,14097048,140,245)
{
link(onKeyDown,12937375:doText,[])
}
Add(Beep,1318926,301,105)
{
Duration=200
link(Freq,735455:Result,[(307,93)(283,93)(283,149)(258,149)])
}
Add(Math,735455,252,105)
{
OpType=2
Op2=200
ResultType=0
link(onResult,1318926:doBeep,[])
}

Попробуйте понабирать 6-значные номера телефонов. Особенно интересно звучит 277760. Что-то знакомое, не подскажете, что за мелодия?

--- Добавлено в 2017-04-21 20:14:23

Конечно, её можно и улучшить, например обрабатывать нажатие shift и смещать коэффициент частоты или длительность. Но пока это пробный, глуповатый вариант.

И вот ещё вопрос: как-то можно mp3-мелодию или файл midi перевести в набор частот-длительностей для пищалки?

--- Добавлено в 2017-04-21 20:37:00

Забыл сказать, что работает только с цифровой клавиатурой - на ней понажимайте.

Редактировалось 2 раз(а), последний 2017-04-21 20:37:00
карма: 9
0
1
Сообщение
...
Прикрепленные файлы
(файлы не залиты)