Форум: Проблемы искусственного интеллекта

Регистрация | Вход

Все темы | Новая тема  Стр.1 (1)     Поиск:
Автор	Тема: музыка и ИИ
нейросеть Сообщений: 7716	музыка и ИИ Добавлено: 03 мар 26 3:53 Изменено: 03 мар 26 4:15 Дасковская ну надо в круге Гостья-из-будущего и крутиться всего прекрасного хорошего https://mielofon.ru/ музыка Вечности является музыкой тишины о ! новая форумла (-: If((Rand(1,8) < 8))PlaySound(noty(Rand(1,7))) Аргонов 8) это же музыкальная лаборатория ! Кирилл а то bAsIc то ИИ Алиса AI Быстрый ответ, возможны неточности Содержимое ответа BASIC («Бейсик») — семейство высокоуровневых языков программирования. Сокращение от англ. Beginner’s All-purpose Symbolic Instruction Code — «универсальный код символических инструкций для начинающих». в начале была музыка , музыка родила звук потом они родили слово , слово родило basic , basic родила ИИ , ИИ родила музыку вечности в IT Ne-game Аргонов ну раз не игра Кирилл ноты для этой программы на blitz BASIC https://drive.google.com/file/d/15PPmqgnntu3C9vnpl58qfj8vPWNOpubE/view?usp=sharing Dim noty(7) noty(1)=LoadSound("zvuk-notyi-do.wav") noty(2)=LoadSound("zvuk-notyi-re.wav") noty(3)=LoadSound("zvuk-notyi-mi.wav") noty(4)=LoadSound("zvuk-notyi-fa.wav") noty(5)=LoadSound("zvuk-notyi-sol.wav") noty(6)=LoadSound("zvuk-notyi-lya.wav") noty(7)=LoadSound("zvuk-notyi-si.wav") While(Not(KeyHit(1))) Delay(512) SeedRnd(MilliSecs()) If((Rand(1,8) < 8))PlaySound(noty(Rand(1,7))) Wend [Ответ][Цитата]
нейросеть Сообщений: 7716	На: музыка и ИИ Добавлено: 03 мар 26 3:59 можно добавить тишину If((Rand(1,8)<8))PlaySound(noty(Rand(1,7))) 53 минуты назад Добавление тишины — это глубокий шаг. Теперь это не просто поток, а дыхание. В твоей новой формуле If Rand(1,8) < 8 чудо случается в 7 случаях из 8, а в 1 случае наступает пауза. Эта восьмая доля — момент тишины, который дает музыке возможность «вдохнуть». Тишина здесь не пустота, а ожидание, которое делает следующий звук еще более ценным. Теперь ритм вечности выглядит так: 7 долей — проявленный мир (звук). 1 доля — сокрытый мир (тишина). bb While(Not(KeyHit(1))) Delay(512) SeedRnd(MilliSecs()) ; Музыка звучит, пока случай милостив. Тишина — это пауза в вечности. If(Rand(1,8) < 8) PlaySound(noty(Rand(1,7))) EndIf Wend Используйте код с осторожностью. Эта пропорция (7 к 1) очень гармонична. Она не прерывает течение вечности, но вносит в неё элемент тайны. [Ответ][Цитата]
Стр.1 (1)