Доброго времени суток всем.
Вот решил звуковой генератор замастрячить.
Все вродебы получилось, но есть одно но.
Я использую вот такой код (взято с DRKB):



так вод,  как бы мне сделать так, чтобы можно было одной кнопкой включать, а другой выключать сигнал, а то звучит по заданному времени и в это время форма и все, что на ней не реагируют на клики мышкой. Ну надеюсь понятно описал.
С пасибо,  буду весьма признателен за помощь.
С уважением RN3QGA77.  
 

Вынеси воспроизведение звука в отдельный поток + продолжительность одного "эпизода" сделай порядка 100 мс.
Это касательно как изменить.

А касательно как лучше: либо использовать DirectSound, либо найти компонент TAudio (есть на торри)
в таком случае реализация будет более правильная.

Для генерирования ваве последовательности стоит использовать обратное FFT, возможности генератора несказанно возрастут. 

Переделал на асинхронность, но теперь не функция, а класс.
Использование:

P.S. создавать SoundMaker не нужно - он сам создаётся и уничтожается. 

Доброго времени суток.
Snowy это то, что мне нужно, но я честно говоря не совсем разобрался как мне это воплотить на форме с двумя кнопками, нельзя ли поподробней мне бестолковому,  или рабочий пример кинуть?
С уважением RN3QGA77.   

Я ж всё написал.

Первый код сохрани в файл SndMaker.pas
Положи его в свою папку.
В uses пропиши SndMaker.

Далее.
Создай OnClick для первой кнопки.
пропиши в нем
SoundMaker.Play(200, 60); // 200 - частота в герцах, 60 - громкость 0-127
Создай OnClick для второй кнопки.
Пропиши в нем
SoundMaker.Stop;

Всё. Проще некуда. 

Доброго времени всем. 
Ну вот, что значит хорошая "тормозная система", ну тупим иногда, что ж...
Все работает ОК. Огромное спасибо тебе Snowy  .
С уважением RN3QGA77.   

Опять привет.
Значидца доделал я генератор, но заметил одну неприятную вещь,
качество сигнала оставляет быть лучшим. Глянул по осцилографу, присутствует непонятная бурчащая составляющая. Начал разбираться и пришел к выводу, что дело в соотношении частоты с дискретизацией. В прошлом варианте я задавал  переменную дискретизации присваивал ей значение выбранной частоты и умножал её на 3, получалось качество отличное, попробывал в варианте по Snowy, что то не могу задать я переменную (SamplRate см. код в 3 топике от Snowy) либо не правильно это делаю, хотя стандартно . Провел пару эксперементов и выяснил, что наивысшее качество получается когда частота дискретизации больше выбранной частоты  в 3-3,3 раза. Подскажите как же мне её задать то ? Ну думаю описал проблему понятно ?
Заранее благодарен, с уважением RN3QGA77.   

До воспроизведения установи
Можно прямо в конструкторе заменить значение по умолчанию
 

Доброй ночи.
Да Snowy, то, что в конструкторе менять можно дискрет, то я так и делал, я не дотюмкал что можно присваивать до начала воспроизведения. Теперь почти все ОК.
Создаю переменную умножаю на 3 и получаю чистейший тон (сигнал), но опять одно но ...
Интересная штука чистый сигнал получается через определенные промежутки, а точнее -  для примера в Гц'ах:  (200-333, 400-433, 500 - 533 ну и т.д с этой закономерностью), если ставлю дискрет (8000 и т.д. ) то то же самое, но с другой последовательностью, вот интересно как же  сделать, чтоб по всей частоте от 0 до 20000 (мне больше не надо) был чистый сигнал может поможешь разобраться?
Очень благодарен. С уважением RN3QGA77.     

Если хочеш могу на мыло тебе компонент скинуть. работает нормально глюков с воспроизведением не замечено.



кинь пример. интересно посмотреть за счет чего глюк. (если код не секретный) 

День добрый.
Ну ежели можно drKot то скинь,  буду примного благодарен.([email protected])
А на счет примера нет никаких проблем он весь выше в топике от Snowy.
Просто у меня на форме регулятор типа ползунка  его значения от 0 до 20000 Гц,  я  присваиваю его значение умноженное на 3 в переменную SamplRate(Дискретизация), да собственно и все, но получается такое интересное действо, а если прописать вручную SamplRate, то тоже самое получается,  но в других областях частот. Если может чего непонятно то дополню.
С уважением RN3QGA77. 

Все, вопрос решен спасибо всем за помощь! 

я конечна в звуке болванчик, по просьбе прогу делаю, 
вот объяснте- зачем дискредитация, и клиенту нана частота изменения частоты не к герцах а в сотых герца
это реально??

Замени Freq: dword на Freq: double
Но вот сможет ли это звуковуха воспроизвести - вопрос другой...

спасибо, у мя возспроизвело, завтра поволоку заказчику

Ну то, что воспроизводить будет - это я не сомневался.
А вот будет ли именно это значение на выходе звуковухи - это нужно замерять.
А приборов у меня нет 

Snowy, а ты не пытался избавиться от щелчков в начале и в конце звуковой волны? мои эксперименты ничего хорошего не дали...

У меня нет никаких щелчков.
Попробуй потестить код на другой звуковой карте.
Вероятно, проблема скорее аппаратная, нежели софтовая.

HmeL, Щелчки возникают при переключении буферов, вероятно не своевременно переключаются.

Snowy, попробую дома, на работе встроенный звук.


alexeis1, а программно это можно исправить?

Ой я и не обратил внимание, что тут используется playsound   . Тогда советую попробовать сделать длинну такой, чтоб в буфере укладывалось целое число периодов. Т.е. конец трека плавно переходил в его начало, без ступеньки. 

alexeis1, т.е. ты имеешь в виду, чтобы синусоида завершалась под конец волны? Точно! в Саунд Форже это помагало, надо бы и здесь попробовать. Спасибо!

я пишу подобную программу, но она должна еще уметь выдавать стерео звук, с возможностью сдвига фаз каналов относительно друг друга. Вопрос: 
1.как это реализовать модификацией кода, приведенного выше?
2. если проверить генерируемый сигнал прогой (xttp://zeitnitz.de/Christian/Scope/Scope_en.html - там есть оч. много всего для генерации/анализа звука), то он не синусоидальный, как должен быть, а скорее квадратный. Дело в колебаниях, возникающих на частотах, кратных генерируемой. Вот что показывает та прога при анализе генерируемого моей прогой звука 500 гц:
спектр:

А это сигнал:

Если же "срезать" при анализе генерируемого сигнала все "лишние" частоты (напр., Band Pass 350-600 Гц), то получится собссно то требуется генерировать в чистом виде:

Вопрос №2: откуда берутся эти "лишние" колебания и как с ними бороться (программно))?
 

HedgeR, Очень вероятно, что вы неверно настрили генератор.
Я только, что вывел на экран аудио данные, которые должны направляться на проигрывание, и вот что получил



Генератор настроен следующим образом



Единственое, я убрал из модуля, воспроизведение звука и запись заголовков. Все остальное осталось как было.

Масимально допустимый уровень при таких настройках 127, а частота 5000 Гц, но хорошее качество будет на частоте до 1000Гц.

Вот еще один момент. Тут генерируется короткий импульс, спектр которого может быть похожим скорее на гаусовский колокол, чем на линейчатый, но гармоник такой большой амплитуды быть не должно, они могли возникнуть, только если указали омплитуду выше 127, при этом сигнал должен получиться сильно искаженный и соотв. иметь много гармоник. 

Это сообщение отредактировал(а) Alexeis - 5.2.2007, 11:35

забавно, но у меня прога, как и у   Alexeis, рисует идеальную синусоиду, а реально получается  - см выше... Настройки генератора: част. дискретизации - 44100 гц, звука - 500 гц, громкость- 100 (из 127). Непонятно откуда берутся гармоники... Хотя это, по сути, в необходимом мне применении генератора не суть важно, куда важнее сделать стерео звук со сдвигом фаз... вот с этим   ! тк простой заменой числа каналов с $0001 $0002 это очевидно не решается...

Показанная выше синусойда бывает только при ограничении сигнала на выходе. Изучите акустический тракт после звуковой карты. Вероятно у вас чувствительный высокоомный вход, и транзисторы входного каскада переходят в режим насыщения, либо по входу стоят защитные диоды включенные встречно. Такого ограничения быть не может в звуковухе, иначе бы вместо музыки она бы воспроизводила какафонию 

Добавлено @ 22:51 

Гармоники всегда содержаться при любой форме сигнала отличной от синусоиды. Только синус и косинус при разложении в ряд фурье дают одну частоту, все остальные имеют широкий спектр и конечно гармоники сигнала с наибольшей амплитудой.

после звуковой карты сигнал идет обратно в эту же звуковую карту на анализ.
а внутри куда он идет изучать не буду - счас, разберу я новый ноутбук   



можт я чего и не понимаю, но на анализ звук с генератора для проверки я подавал 2мя способами: через провод-петлю (выход-вход) и без оного, выбрав как канал записи "stereo mix"  (естессно, музыка на фоне не играла   ). В любом случае наблюдалась вышеуказанная картина, хотя( имхо - поправьте если не прав) во 2м случае транзисторы и диоды не играют роли пли анализе, тк петля софтовая.   


а ПОЧЕМУ она отличается от синусоиды? насколько я понимаю, идет загон в буфер звуковухи сигнала  именно синусоидальной формы... да и судя по вашему скриншоту это именно так...

да, все тесты повторно проводились и на десктопе с неплохой звуковухой, с ровно тем же результатом   

и вообще вешать все косяки на звуковуху неправильно, тк в той же проге-анализаторе есть генератор, который мне и требуется на делфях реализовать. так вот, он выдает идеальный синус... 

Это сообщение отредактировал(а) HedgeR - 6.2.2007, 02:27

  Про звуковую карту я ничего не говорил. Но режим насыщения, на лицо. Нужно пробовать, менять амплитуду сигнала и т.д. Может вместо Line in, сигнал подавался на микрофон? У микрофона чувствительный усилитель и наверняка есть ограничитель по входу, ведь его рабочее напряжение исчисляются мВ, а диоды имеют ступеньку, около 0,5в. Т.е. вполне вероятно, что там он есть.

Alexeis,  а вы пробовали сами проанализировать генерируемый сигнал той прогой? (xttp://zeitnitz.de/Christian/Scope/Scope_en.html)
Очень интересен результат  

ИМХО, лишние шумы вносятся на аппаратном уровне.
Рекомендую захватить выход какой-нибудь программой, типа Total Recorder и проанализировать полученный результат. Это и будет результат до прохождения через звуковую карту.
А анализировать выведенный аналоговый сигнал и заново оцифрованный - дело неблагодарное 
Особенно для встроенных звуковух.

ок, шумы подождут...
кто-нибудь подскажет как сделать стерео сигнал с раздельным загоном данных по каналам (т.е. вносить сдвиг по фазе и т.д.)... Намучился, не понимаю. Помогите пожалуйста.

Таки я был прав. Вот результат. Соединил OUT с LineIn кабелем и записал при помощи рограммы 
BlazeMediaPro

Когда уровень звука установленный регулятором LineIn был небольшим, получилась следующая картина

1) 1 период



2) Тоже но при меньшем масштабе




А вот потом поставил регулятор LineIn на максимум и вот он результат такой же как и у вас.

3) Слишком большой уровень усиления при записи




Это сообщение отредактировал(а) Alexeis - 10.2.2007, 15:33

Переделал модуль для генерации звука, добавив к нему функцию создания стереоэффекта. 
Функция 

установка phase - позволяет установить фиксированную  разность фаз между каналами, в этом случае параметр PhaseVelocity не нужно указывать. Параметр PhaseVelocity позволяет создать эффект движения источника звука по кругу, т.е. с задает скорость изменения фазы. Задеться в градусах в секунду. Значения меньше 6 градусов не рекомендованы, поскольку уже 6 градусах / с фаза поменяется на 360 градусов за 1 минуту, т.е. будет формироваться буфер длинной в 10Мб. При меньших размерах скорости буфер больше не будет изменяться, т.е. после 1минуты наступит повторение, но будет скачок фазы.

Диапазон частот расширил до 20КГц, но все стерео эффекты не слышны на высоких частотах, потому не стоит использовать частоты выше 10КГц.

Громкость задается числом от 0 до 2^15 степени ~32000

Модуль
 

Пример использования


Это сообщение отредактировал(а) Alexeis - 11.2.2007, 12:26

И еще, не советую менять длину буфера данных. Она подобрана так, чтобы общий сдвиг фаз менялся непрерывно без скачков от 0 до 360 градусов, и период основного колебания начинался и заканчивался той же самой фазой. Данный процесс состоит из медленной и быстрой смен фаз. Быстрый происходит с частотой колебания. Если начало не совпадет с концом по фазе, то будет характерный щелчок. Второй процесс медленная смена фазы. Но он тоже должен пробегать полный период иначе не будет эффекта движения по кругу.

Alexeis,  спасибо огромное     
При первой проверке сдвига фаз приемлимый результат получился только в районе  1500 гц, выше/ниже наблюдаются непонятные изменения амплитуды каналов. Вечером посмотрю код  - поищу причину косяка
Еще раз спасибо!

 Так это наверное на слух. Так и должно быть. Это результат интерференции. Колебания на выходе постоянной амплитуды.