Wave File Generator

[Maxizar]

Wave File Generator - программа для генерации, wav файла, с чистым sin/cos сигналом.
Программа позволяет генерировать файлы зависимости от:
- числа каналов: от 1 до 6 (Audio 5.1)
- частоты дискретизации: 8000, 11025, 16000, 22050, 32000, 44100, 48000, 96000, 192000 Hz.
- битрейта (число бит на сэмпл): 8,16,24,32.
- Амплитуды каждого канала (задается свободно) от 0, до максимального значения при данном битрейте.
- времени звучания файла: min 1 sec. Max 60 sec. Шаг 1 секунда.
- частоты самого сигнала( свободно для каждого канала) мин 0 макс 22KHz.
- фазы сигнала по каждому каналу (в градусах) от 0 до 360.
Два вида wav заголовка файла (простой и расширенный см спецификацию).

Замечания: сигнал генерируется по Cos. Чтобы использовать sin измените фазу на 270град.

Скрин:


Исходник:
Для компилирования, вам будет необходимо установить компонент imagebutton его исходники находятся в папке Components.

Ссылка на архив с исходниками: залито в DropBox
Wave File Generator ver 1.1

[minoshi]

не посчитайте за стёб, мне правда интересно, а для чего нужно генерировать wav - файл ? Ведь это же не запись с микрофона, я правильно понял?

[Maxizar]

Да я понимаю ваш сарказм…
Ответ: программа версии 1.0 имела возможность генерировать только cos сигнал и только для 8, 16 бит. Писалась по просьбе человека, которому нужна была такая программа для генерации таких файлов. Которые в свою очередь использовались для настройки микроконтроллеров (для работы со звуком), для тестирования как раз и надо было wav файл идеальной формы, чтобы понять правильно ли функционирует прибор. Ну типа так.. я с микроконтроллерами ни разу не работал, так что как то так.

Версия 1.1 ну тут я просто ее сделал более универсальной, и выложил больше в познавательных целях. Вы думаете я надеялся, что вы кинетесь ее использовать и все такое??
Я хоть и не умен, но я не идиот.

[ev]

мне правда интересно, а для чего нужно генерировать wav - файл ?

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

[hinst]

У меня обычно аллергия на пересборку лазаруса, даже под виндой. Однако, как не странно, сегодня она никак себя не проявила, и на второй перезапуск после сборки всё запахало нормально. Собралось и даже запустилось.
Автор: первое, что бросилось в глаза: PCMWaveFile: отступы где-то два пробела, а где-то четыре. Непорядок. Имхо отступы везде должны быть одинаковые.
Потом, почему названия юнитам оставил стандартные Unit1 и Unit2? тоже неайс. Но для небольших прог некритично.
Но то, что Form1, ButtonPanel1 и CheckBox1 - это вообще никуда не годится. У компонент должны быть нормальные имена.
Далее: компонент imagebutton: оч. хорошо, что он отдельным пакетом, но почему я вижу там штуки типа message CM_MOUSEENTER? Очень хотелось бы знать, влияют ли они на кроссплатформенность компонента
FormChanels1, FormChanels2, FormChanels3, FormChanels4, FormChanels5, FormChanels6 - почему не массивом?
Код, который собственно заносит сами данные о звуке в файл так и не нашёл
А вообще всё так очень мило, даже комментарии местами есть

[Maxizar]

отступы где-то два пробела, а где-то четыре

Да для записей 4, должно быть 2, ну бывает , что касается классов, то там я всегда отделяю (public,...) от класса на 2 пробела и внутринности еще на 2... Извините, это мой стиль, И он вам просто не нравится делов то.

Form1, ButtonPanel1 и CheckBox1 - это вообще никуда не годится.

Не ну вы серьезно?.. их там 4 штуки.. Да для больших программ, это была бы беда.. но тут.

Далее: компонент imagebutton: оч. хорошо, что он отдельным пакетом, но почему я вижу там штуки типа message CM_MOUSEENTER? Очень хотелось бы знать, влияют ли они на кроссплатформенность компонента

А где вы были, когда я его предлогал в разделе компоненты.. никто даже не отписался, С линуксом, никак не могу подружися... так что простите, не могу проверить.
Я пишу под Win, и там все работает, а в линуксе... ну хз.

FormChanels1, FormChanels2, FormChanels3, FormChanels4, FormChanels5, FormChanels6 - почему не массивом?

Изночально было 2 канала, это уже потом я решил расширить возможность, и переписывать для красоты кода... да ладно Вам...

Код, который собственно заносит сами данные о звуке в файл так и не нашёл

Эээ... Вы серьезно? Класс TPCMWaveFile - имеет 5 методов (2 из которых конструктор и деструктор) итого:
GetChannelMask- вернет маску каналов (см специйикацию wav файла);
GenerateData - генерирует сэмплы в зависимости от канала данных.
SaveToFile - Ну тут, я даже не знаю как и сказать, даже если перевести - это метод для (Сохранить в файл) наверное он и записывает данные в wav файл.

даже комментарии местами есть

Их даже черезчур много, поверте, это потому что писал для себя. Некоторые функции даже комментировать не надо их название говорит само за себя, скажем GetChannelMask - вернуть маску каналов. (см спецификацию).
SaveToFile - Без комментариев.
GenerateData - генерировать data для wav....

[hinst]

Maxizar, да вы не так поняли. У меня это типа положительный отзыв . Просто хотел указать на то, что показалось стрёмным с первого взгляда, чтобы вам оно оказалось хоть как-то полезно. Ессно за небольшое время оценить больше, чем то, как выглядит код, невозможно.

[cpv]

Wave File Generator
Ссылка на архив с исходниками: залито на Deposit, (залил.ру не работал, для вложения слишком большой)
[b]Wave File Generator ver 1.1

Если можно, то выложите исходники Wave File Generator ver 1.1 ещё раз.
На Deposit уже нету этого исходника.

[Maxizar]

Перезалил в DropBox смотри топ поста.

PS. тут публичная папка с моими проектами на Free Pascal

[cpv]

Перезалил в DropBox смотри топ поста.

PS. тут публичная папка с моими проектами на Free Pascal

Большое спасибо.

А, Вы, файл "4096Sampls_10KHz_32000.txt" в проекте FFT
формировали тоже программой wavGenerator_ver1.1, или
модификацией этой программы?

[Maxizar]

А, Вы, файл "4096Sampls_10KHz_32000.txt" в проекте FFT
формировали тоже программой wavGenerator_ver1.1, или
модификацией этой программы?

Ну возможно версией 1.0, в 1.1 вроде появилась многокональность.

[cimbolina]

Как сделать, что записывало 15 минут, а не 1?