Вверх ↑
Этот топик читают: Гость
Ответов: 8888
Рейтинг: 823
#1: 2006-06-24 22:18:38 ЛС | профиль | цитата
Чуть отредактированный компонент Beep от Amper-а, добавлено: окончание звука, выбор тембра (5 позиций) и огибающей амплитуды (4 позиции) - получился одноголосый музыкальный инструментик
карма: 19

1
файлы: 1Sound.rar [2.6KB] [992]
Голосовали:MAV
vip
#1.1контекстная реклама от партнеров
Гость
Ответов: 17029
Рейтинг: 0
#2: 2013-01-22 20:01:41 правка | ЛС | профиль | цитата


Редактировалось 5 раз(а), последний 2021-06-22 14:45:51
карма: 0

0
Ответов: 8888
Рейтинг: 823
#3: 2013-01-22 20:43:17 ЛС | профиль | цитата
46-211-101-52-zap.broadba, а поиск не нужен? http://forum.hiasm.com//getfile/26960
карма: 19

0
Ответов: 1304
Рейтинг: 405
#4: 2013-01-23 00:05:25 ЛС | профиль | цитата
Леонид, а избавиться от пощёлкиваний в переходах между семлами ни как нельзя?
Add(MainForm,2953706,224,266)
{
Width=170
Height=101
Position=1
}
Add(Sound,15247661,455,245)
{
Duration=200
Volume=70
Spectr=4
SpectrVol=2
link(Freq,8640913:Item,[(461,235)(446,235)(446,293)(412,293)])
link(onEnd,10759593:doWork3,[(505,251)(505,299)(341,299)])
}
Add(Button,1309973,273,266)
{
Left=50
Top=20
link(onClick,10759593:doWork2,[])
}
Add(StrList,1983989,392,189)
{
Strings=#3:450|3:900|4:1000|3:800|3:900|4:1000|3:900|4:1000|3:800|3:700|3:600|3:900|4:1000|3:800|3:600|0:|
}
Add(ArrayRW,8640913,406,252)
{
link(onRead,15247661:doMakeSound,[])
link(Array,1983989:Array,[])
}
Add(CounterEx,7126587,357,252)
{
link(onNext,8640913:doRead,[])
}
Add(HubEx,10759593,337,266)
{
Angle=3
link(onEvent,7126587:doNext,[(341,258)])
}

карма: 3

0
Ответов: 8888
Рейтинг: 823
#5: 2013-01-23 12:34:11 ЛС | профиль | цитата
MAV, аж шесть с половиной лет (У меня все спят, и наушники, как специально расконтачились, завтра послушаю )
------------ Дoбавленo в 12.34:
MAV, послушал, посмотрел -- оказывается коллега Amper (см. фолклёр HiAsm) установил 8-ми битный звук (наверное, как и Билл в DOS год из двух цифр, в благородных целях экономии) и начало и окончание звука может сопровождаться резкими изменениями, каторые и прослушиваются Попробуйте установить огибающую амплитуды в значение 4 (4-экспоУвеличение и экспоУменьшение), резкие перепады должны уменьшится.
карма: 19

0
Ответов: 1304
Рейтинг: 405
#6: 2013-01-25 21:09:28 ЛС | профиль | цитата
Леонид, что то мне подсказывает что на выходе АЦП с приходом нового семпла происходит скачок от предыдущего уровня амплитуды огибающей к новому, переход происходит очень бысто поэтому возникает сигнал с крутым фронтом, что собственно является щелчком.Хотя может и 8 бит виноваты. Но так как компонент расмотрел только ради научного интереса, можно считать вопрос исчерпаным.
аж шесть с половиной лет
незаметил дату
карма: 3

0
Гость
Ответов: 17029
Рейтинг: 0
#7: 2013-04-18 22:15:59 правка | ЛС | профиль | цитата


Редактировалось 5 раз(а), последний 2021-06-22 14:45:51
карма: 0

0
7
Сообщение
...
Прикрепленные файлы
(файлы не залиты)