Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=407872&view=findpost&p=3895276 Wed, 27 Sep 2023 06:33:52 +0000 Компьютер сочиняет музыку https://forum.sources.ru/index.php?showtopic=407872&view=findpost&p=3895276 Betelgeuse Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=407872&view=findpost&p=3840750 Wed, 21 Oct 2020 12:12:15 +0000 Компьютер сочиняет музыку https://forum.sources.ru/index.php?showtopic=407872&view=findpost&p=3840750 ... Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=407872&view=findpost&p=3756801 Fri, 19 Jan 2018 09:42:25 +0000 Компьютер сочиняет музыку https://forum.sources.ru/index.php?showtopic=407872&view=findpost&p=3756801 kuzduk Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=407872&view=findpost&p=3719773 Wed, 03 May 2017 14:17:45 +0000 Компьютер сочиняет музыку https://forum.sources.ru/index.php?showtopic=407872&view=findpost&p=3719773 https://www.youtube.com/watch?v=AB0FaDtHeRE

Новая версия 1.4
  • Добавлен новый FM-синтезатор;
  • Добавлены новые пресеты;
  • Добавлена новая цветовая тема и переработана старая;
  • Доработан пользовательский интерфейс;
  • Добавлена возможность регулировки параметров каждого синтезатора;
  • Добавлена возможность выбора готовых пресетов;
  • Исправлен баг с сохранением трека;
  • Добавлена поддержка мультимедийных клавиш клавиатуры.

Скачать.

scrn1.png (, : 3877) ]]> TheTrik Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=407872&view=findpost&p=3706511 Fri, 10 Feb 2017 12:06:10 +0000 Компьютер сочиняет музыку https://forum.sources.ru/index.php?showtopic=407872&view=findpost&p=3706511 https://www.youtube.com/watch?v=s_aPUuhPKxc

Новая версия 1.3
  • Переработан интерфейс;
  • Добавлен экспорт в MIDI;
  • Добавлен экспорт в MP3;
  • Добавлена возможность работы с плейлистом (генерация, сохранение, открытие и т.д.)

Скачать.

preview.png (, : 3787) ]]> TheTrik Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=407872&view=findpost&p=3669943 Fri, 13 May 2016 22:17:42 +0000 Компьютер сочиняет музыку https://forum.sources.ru/index.php?showtopic=407872&view=findpost&p=3669943 Цитата VisualProg @
Я имел ввиду барабаны,

Они идут от первой октавы.
C - KICK - Z
C# - SNARE - S
D - Open hi hat - X
D# - Closed hi hat - D
E - TOM1 - C
F - TOM2 - V
F# - TOM3 - G]]> TheTrik Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=407872&view=findpost&p=3669942 Fri, 13 May 2016 22:06:10 +0000 Компьютер сочиняет музыку https://forum.sources.ru/index.php?showtopic=407872&view=findpost&p=3669942 Цитата
Z - первая октава, Q - вторая, I - третья. Ноты расположены как обычно.

Я имел ввиду барабаны, миди-панель понятна (но не полностью, те же диезы и бемоли не нашёл - разве что транспонирование тона использовать...). Барабаны мышкой забивать научился, а вот прослушать - никак не могу :D]]> VisualProg Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=407872&view=findpost&p=3669932 Fri, 13 May 2016 20:11:29 +0000 Компьютер сочиняет музыку https://forum.sources.ru/index.php?showtopic=407872&view=findpost&p=3669932 Цитата VisualProg @
Пробовал поковырять, но не смог найти прослушивание при редактировании, без него сложно представить как программа меня поняла

Так клавиши на клавиатуре.
Z - первая октава, Q - вторая, I - третья. Ноты расположены как обычно.]]> TheTrik Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=407872&view=findpost&p=3669929 Fri, 13 May 2016 19:56:22 +0000 Компьютер сочиняет музыку https://forum.sources.ru/index.php?showtopic=407872&view=findpost&p=3669929 Цитата
Исходники находятся в довольно-таки плачевном состоянии поэтому я решил не выкладывать их

Хорошо, подожду :D

Цитата
Там 2 синта: ударные и аддитивный. Можешь создать по одному банку для каждого типа, он будет выбираться. Вообще алгоритм такой: загружаются все пресеты и выбирается случайный.

Пробовал поковырять, но не смог найти прослушивание при редактировании, без него сложно представить как программа меня поняла]]> VisualProg Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=407872&view=findpost&p=3669857 Fri, 13 May 2016 12:40:46 +0000 Компьютер сочиняет музыку https://forum.sources.ru/index.php?showtopic=407872&view=findpost&p=3669857 Цитата VisualProg @
Не смог найти ничего о спецификации "TCSTDBANK", что это за формат? Хотелось поковырять пресеты, может инструментов добавить получилось бы))

Это внутренний формат контейнера банков, там все просто. TCSTDBANK\0 - это сигнатура (Trick Composer Standard Bank), после идет Long - версия контейнера, после идет размер самого банка (Long), после идут непосредственно данные банка специфичные для синтезатора. После данных планировалось хранить информацию о банке, но пока это зарезервировано.
Цитата VisualProg @
Нашёл другие темы, вышел на Ваш редактор (TestSynths.exe), и понял что всё в разы проще... я ожидал свой пресет на конкретную ноту (яля VST), а тут общий алгоритм...

Там 2 синта: ударные и аддитивный. Можешь создать по одному банку для каждого типа, он будет выбираться. Вообще алгоритм такой: загружаются все пресеты и выбирается случайный.
Цитата VisualProg @
Ещё было бы совсем круто посмотреть исходники, но, тут на Ваше усмотрение, я так понимаю, софт закрытый?

Исходники будут, только начиная с версии 2, поскольку этот проект довольно-таки старый и я его начинал писать когда еще не совсем хорошо умел кодить, потом забросил. В 2016 году я опять решил закончить его. Исходники находятся в довольно-таки плачевном состоянии поэтому я решил не выкладывать их, а переписываю их заново по мере возможностей. Мне просто стыдно выкладывать плохой код.]]> TheTrik Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=407872&view=findpost&p=3669836 Fri, 13 May 2016 11:57:05 +0000 Компьютер сочиняет музыку https://forum.sources.ru/index.php?showtopic=407872&view=findpost&p=3669836
Нашёл другие темы, вышел на Ваш редактор (TestSynths.exe), и понял что всё в разы проще... я ожидал свой пресет на конкретную ноту (яля VST), а тут общий алгоритм...

Ещё было бы совсем круто посмотреть исходники, но, тут на Ваше усмотрение, я так понимаю, софт закрытый?]]> VisualProg Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=407872&view=findpost&p=3667133 Fri, 22 Apr 2016 17:32:12 +0000 Компьютер сочиняет музыку https://forum.sources.ru/index.php?showtopic=407872&view=findpost&p=3667133 Добавлены новые пресеты.Скачать.
Создана группа в ВК.]]> TheTrik Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=407872&view=findpost&p=3662641 Thu, 31 Mar 2016 13:21:14 +0000 Компьютер сочиняет музыку https://forum.sources.ru/index.php?showtopic=407872&view=findpost&p=3662641 Цитата TheTrik @
Может быть я не разобрался как он сочиняет музыку?

Он не сочиняет музыку, музыку сочиняет пользователь. А общего между моим и твоим проектом только то, что на выходе получается музыка.]]> B.V. Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=407872&view=findpost&p=3662639 Thu, 31 Mar 2016 13:20:04 +0000 Компьютер сочиняет музыку https://forum.sources.ru/index.php?showtopic=407872&view=findpost&p=3662639 Цитата
Это кому, мне или Трику?

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


Цитата
Может быть даже и VST добавлю

Вот тут не соглашусь, если извращаться, то делать это в удобном инструменте, поэтому пропустить миди в том же CuBase с куда лучшим результатом, да ещё сделать это быстрее - лучше. ИМХО.

Кстати, прикольная музыка, из того что мне понравилось:
"vpcoder" (сумма равна сумме найденной композиции Трюка "43964") темп 111bpm,
"angry bass" темп 152bpm - да этож балалайка на фоне!) Этот композитор меня радует))),
"lib 32" темп 130bpm - тоже солирует балалайка с банжо в восточном стиле, эх, заставить бы его партию по пентатонике переиграть, получилось бы не плохо))
"deathcore" темп 125bpm - как ни странно, но звучит как black :D ,
"lib16" темп 150bpm - на сильную долю достаточно круто звучит, правда остальное сумбурно как то...
"return song 16" темп 135bpm - что то весёлое и на сильную долю с педалькой от хайхета, звучит серьёзно

"56403" темп: 135bpm - очень позитивная тема)
"89136" темп: 110bpm - умеренная тема, + композитор грамотно построил структуру музыки

:D вообще не ожидал что он так грамотно всё разложит]]> VisualProg Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=407872&view=findpost&p=3662634 Thu, 31 Mar 2016 13:13:55 +0000 Компьютер сочиняет музыку https://forum.sources.ru/index.php?showtopic=407872&view=findpost&p=3662634 B.V. вся фишка моей программы в том, что она сама сочиняет музыку и выбирает синтезаторы. У тебя это просто секвенсор коих миллион. Может быть я не разобрался как он сочиняет музыку?]]> TheTrik Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=407872&view=findpost&p=3662631 Thu, 31 Mar 2016 13:06:05 +0000 Компьютер сочиняет музыку https://forum.sources.ru/index.php?showtopic=407872&view=findpost&p=3662631 Цитата Linnalor @
Fl Studio попробуйте

Ей, к слову, в свое время и вдохновился на написание того, что по ссылочке выше.

Цитата VisualProg @
Если сделаете экспорт дорожек в миди (хоть каждую дорожку в отдельный файл, хоть все дорожки в 1 файл) - будет очень полезная штука))

Это кому, мне или Трику?]]> B.V. Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=407872&view=findpost&p=3662623 Thu, 31 Mar 2016 12:40:51 +0000 Компьютер сочиняет музыку https://forum.sources.ru/index.php?showtopic=407872&view=findpost&p=3662623 Цитата
В новой версии я делаю что все вычисляется на основе имени, также как и в текущей версии, но алгоритм хеширования будет другой дабы уменьшить коллизии. В данный момент работаю над генератором слов (не хочется чтобы использовался абсолютно случайный незапоминающийся набор символов) который использует алгоритм похожий на Цепь Маркова. Также планирую экспорты в MIDI и MP3, может быть добавлю редактирование паттернов уже в самом проигрывателе (сейчас их можно только просматривать) и сохранение треков уже во внутренний формат для "доведения до ума" генерированных треков.

Кстати будут расширния в виде DLL, как и сами "композиторы" так и синтезаторы. Может быть даже и VST добавлю если будет такая возможность. Пока все заморозил из-за основной работы.
user posted image]]> TheTrik Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=407872&view=findpost&p=3662621 Thu, 31 Mar 2016 12:37:57 +0000 Компьютер сочиняет музыку https://forum.sources.ru/index.php?showtopic=407872&view=findpost&p=3662621 VisualProg Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=407872&view=findpost&p=3662574 Thu, 31 Mar 2016 10:15:07 +0000 Компьютер сочиняет музыку https://forum.sources.ru/index.php?showtopic=407872&view=findpost&p=3662574 Цитата Linnalor @
Fl Studio попробуйте

Спасибо! А то я не мог догадаться что использовать, пришлось писать целую программу для этого. Вот я опростоволосился...]]> TheTrik Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=407872&view=findpost&p=3662549 Thu, 31 Mar 2016 08:48:41 +0000 Компьютер сочиняет музыку https://forum.sources.ru/index.php?showtopic=407872&view=findpost&p=3662549 Linnalor Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=407872&view=findpost&p=3650119 Fri, 29 Jan 2016 12:32:07 +0000 Компьютер сочиняет музыку https://forum.sources.ru/index.php?showtopic=407872&view=findpost&p=3650119 http://bbs.vbstreets.ru/viewtopic.php?f=15&t=29911
Если сильно постараться, тоже на выходе иногда получается музыка.

Скрытый текст
Цитата TheTrik @
Хакер
VBStreets.ru
Телепат

:lol:
]]> B.V. Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=407872&view=findpost&p=3649877 Thu, 28 Jan 2016 11:46:24 +0000 Компьютер сочиняет музыку https://forum.sources.ru/index.php?showtopic=407872&view=findpost&p=3649877 https://www.youtube.com/watch?v=AB0FaDtHeRE
Скрытый текст
[URL=https://www.youtube.com/watch?v=s_aPUuhPKxc]

Скрытый текст
https://www.youtube.com/watch?v=mecVAeFgwP8


Всем привет. Как-то давно я делал виртуального композитора для создания 8-бит музыки, но в итоге забросил это дело. Я даже писал об этом и выкладывал демки (вот и вот). На днях я немного доработал его + добавил свои синтезаторы (вот и вот) в него + банки пресетов к ним.
Кстати там же можете добавлять новые пресеты и сохранять их.
Конечно музыкой это назвать нельзя (из-за кривого алгоритма, который я разработал давно, когда еще и музыку толком сам не умел делать и программировать не умел), но поиграться можно.
Для создания нового трека нужно придумать имя трека и ввести его в поле Name, если поле ничего не содержит оно заполнится произвольным числом. На основе имени создается трек (вычисляется хэш и это значение используется в качестве зерна псевдослучайного генератора), т.е. имя будет однозначно идентифицировать трек. Поле Tempo задает темп. Правой кнопкой мыши по треку - открывает окно синтезатора трека, можно менять параметры тем самым изменяя звучание. Левой кнопкой по паттерну - просмотреть паттерн. Никаких поверок нет, так что не нужно туда вводить неправильные значения иначе программа "рухнет".
Также программа может зависнуть (опять-таки из-за кривого алгоритма) при создании трека.

Некоторые интересные треки которые я нашел:
  1. 681
  2. Хакер
  3. VBStreets.ru
  4. Телепат
  5. 45645
  6. 60000
  7. 43964

Скачать

Группа в ВК.

Удачи!]]> TheTrik Visual Basic: Общие вопросы