freepascal.ru

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

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

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

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

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

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

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

hinst писал(а):отступы где-то два пробела, а где-то четыре

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

hinst писал(а):Form1, ButtonPanel1 и CheckBox1 - это вообще никуда не годится.

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

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

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

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

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

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

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

hinst писал(а):даже комментарии местами есть

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

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

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

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

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

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

Maxizar писал(а):Перезалил в DropBox смотри топ поста.

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

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

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

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

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

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