Результаты поиска
| |
-Mikle- | Дата: Вторник, 08 Февраля 2011, 19:45 | Сообщение # 21 | Тема: Наша живая звукозапись. |
Изобретатель велосипедов
Сейчас нет на сайте
| Я играю в рок-группе, сейчас мы принимаемся за запись альбома. Это пробы перед записью, ещё не релиз, но уже близко. Новая композиция нашей группы Quits - Cool: http://tuapse-mikle.narod.ru/Cool.mp3 Конкретно эта вещь может показаться не очень рОковой, будут и другие. Я - басист и композитор.
|
|
| |
-Mikle- | Дата: Среда, 09 Февраля 2011, 12:01 | Сообщение # 22 | Тема: Наша живая звукозапись. |
Изобретатель велосипедов
Сейчас нет на сайте
| Бомбер, пожалуйста :). TheShowMustGoOn, да, Туапсинец. Вокала нет - инструментальная группа.
|
|
| |
-Mikle- | Дата: Среда, 09 Февраля 2011, 14:18 | Сообщение # 23 | Тема: Наша живая звукозапись. |
Изобретатель велосипедов
Сейчас нет на сайте
| TheShowMustGoOn, программистов, тем более геймдевелоперов, у нас нет. Музыканты - есть.
|
|
| |
-Mikle- | Дата: Среда, 09 Февраля 2011, 22:18 | Сообщение # 24 | Тема: Наша живая звукозапись. |
Изобретатель велосипедов
Сейчас нет на сайте
| TheShowMustGoOn, я имел ввиду, что кроме меня нет.
|
|
| |
-Mikle- | Дата: Воскресенье, 13 Февраля 2011, 11:34 | Сообщение # 25 | Тема: Наша живая звукозапись. |
Изобретатель велосипедов
Сейчас нет на сайте
| Записали ещё одну композицию: 56 Пока без названия (просто 5-6). С гармониями тут по-проще, но вот с ритмом экспериментируем, интересно мнение общественности. Звук гитары не ахти, знаю, ищем. Это по-тяжелее, значительно сложнее ритмически, понравится явно не всем :). Вот наша старая (где-то 2.5 года) запись в стиле, подобном первой композиции: NeBlues Аппаратура была чуть похуже тогда.
Сообщение отредактировал -Mikle- - Воскресенье, 13 Февраля 2011, 11:38 |
|
| |
-Mikle- | Дата: Воскресенье, 20 Февраля 2011, 19:02 | Сообщение # 26 | Тема: Вопрос/Ответ |
Изобретатель велосипедов
Сейчас нет на сайте
| Quote нечего не получается. Все равно карлючки!!! В меню vb6: Tools/Options/Editor Format выбери шрифт, который заканчивается на "CYR", например "Courier New CYR"
|
|
| |
-Mikle- | Дата: Четверг, 24 Февраля 2011, 11:19 | Сообщение # 27 | Тема: Наша живая звукозапись. |
Изобретатель велосипедов
Сейчас нет на сайте
| Ещё одна тема, тут добавлен оргАн. Мы и на концертах, как правило, берём сессионного музыканта, чтобы помог на клавишах в этой композиции: New
|
|
| |
-Mikle- | Дата: Четверг, 24 Февраля 2011, 13:46 | Сообщение # 28 | Тема: Наша живая звукозапись. |
Изобретатель велосипедов
Сейчас нет на сайте
| NeZnayu Quote почему игры не выкладываешь? Раздел то для музыки. А мои игры можно тут посмотреть: http://www.gamedev.ru/users/?id=1187 Quote как у вас погода там? +12, солнце светит, птички поют
Сообщение отредактировал -Mikle- - Четверг, 24 Февраля 2011, 15:52 |
|
| |
-Mikle- | Дата: Понедельник, 14 Марта 2011, 10:08 | Сообщение # 29 | Тема: Видео в игре |
Изобретатель велосипедов
Сейчас нет на сайте
| Чтобы не пользоваться медиаплеером (он может быть в системе изменён, перенастроен), лучше воспользоваться DirectShow: Создаём проект с одной формой, подключаем ссылку на "ActiveMovie control type library", добавляем модуль с таким кодом: Код: Code Option Explicit
Private m_objMediaPosition As IMediaPosition Private m_objVideoWindow As IVideoWindow Private m_objMediaControl As IMediaControl Private m_objBasicAudio As IBasicAudio
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Public Sub RunAudio(fName As String, ByVal Volume As Single) Dim meVol As Integer meVol = 67 - 67 * Exp((1 - Volume) * 5) If meVol < -9999 Then meVol = -9999 If meVol > 0 Then meVol = 0 Set m_objMediaControl = New FilgraphManager Set m_objBasicAudio = m_objMediaControl m_objMediaControl.RenderFile fName m_objBasicAudio.Volume = meVol m_objMediaControl.Run End Sub
Public Sub RunVideo(fName As String, ByVal Volume As Single) Dim d1 As Double, d2 As Double Dim meVol As Integer meVol = 67 - 67 * Exp((1 - Volume) * 5) If meVol < -9999 Then meVol = -9999 If meVol > 0 Then meVol = 0 Set m_objMediaControl = New FilgraphManager m_objMediaControl.RenderFile fName
Set m_objVideoWindow = m_objMediaControl Set m_objBasicAudio = m_objMediaControl m_objVideoWindow.WindowStyle = CLng(&H6000000) m_objVideoWindow.Top = 0 m_objVideoWindow.Left = 0 m_objVideoWindow.Width = Screen.Width / Screen.TwipsPerPixelX m_objVideoWindow.Height = Screen.Height / Screen.TwipsPerPixelY m_objVideoWindow.HideCursor -1 Set m_objMediaPosition = m_objMediaControl m_objBasicAudio.Volume = meVol m_objMediaControl.Run d2 = -1 Do Sleep 50 d1 = m_objMediaPosition.CurrentPosition If d1 = d2 Then Exit Do Else d2 = d1 If GetAsyncKeyState(vbKeyEscape) < 0 Then Exit Do Loop DShowStop End Sub
Public Sub DShowStop() If Not m_objMediaControl Is Nothing Then m_objMediaControl.Stop Set m_objBasicAudio = Nothing Set m_objMediaPosition = Nothing Set m_objVideoWindow = Nothing Set m_objMediaControl = Nothing End If End Sub На форму три кнопки "bAudio", "bVideo", "bStop" и такой код: Код: Code Option Explicit
Private Sub bAudio_Click() RunAudio "1.mp3", 1 'Громкость от 0 до 1 End Sub
Private Sub bStop_Click() DShowStop End Sub
Private Sub bVideo_Click() DoEvents RunVideo "1.wmv", 1 'Громкость от 0 до 1 End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) DShowStop End Sub В папке с проектом должны быть файлы "1.mp3" и "1.wmv". Позволяет проигрывать видео в полноэкранном режиме, например заставку перед игрой, воспроизведение можно прервать, нажав "Esc", приложение ждёт окончание воспроизведения. Так же проигрывает Audio в фоновом режиме (не прерывая работу приложения), например фоновую музыку.
|
|
| |
-Mikle- | Дата: Четверг, 17 Марта 2011, 16:19 | Сообщение # 30 | Тема: [3D] Access of Speed 2 [автогонки] |
Изобретатель велосипедов
Сейчас нет на сайте
| Делаю аркадные гонки в стиле ранних NFS, вот моя, близкая к завершению, работа: AoS2 Размер - 3 мБ.
Технологии: Visual Basic 6 DirectX9
Управление: Стрелки - газ, тормоз, руль. "A", "Z" - переключение передачи. "C" - смена камеры. "Esc" - выход.
Системные требования: Win XP или новее, шейдеры 2_0 или выше.
Зацените ИИ - честным образом использует то же управление, что и игрок, никакого фейка.
Скрины:
Сообщение отредактировал -Mikle- - Вторник, 19 Июня 2012, 09:12 |
|
| |
-Mikle- | Дата: Среда, 23 Марта 2011, 10:24 | Сообщение # 31 | Тема: [3D] Access of Speed 2 [автогонки] |
Изобретатель велосипедов
Сейчас нет на сайте
| Делать разделение экрана для игры вдвоём не хотел - очень тяжело найти на клаве взаимно не блокирующие клавиши на двоих игроков, тем более, даже если найти - игроки начинают читерить, нажимая, как бы случайно, лишнюю клавишу, которая, как они предварительно выяснили, заблокирует управление соперника, проверено А заметили, чем КПП для школьников и для блондинок отличаются от обычного автомата и между собой? Звук реально неудачный, буду рад, если кто-нибудь подкинет хороший семпл. Небольшой рэндомайз уже сделал, пока не перезаливал архив. Двери прозрачные - модель недоделанная, на дверях должна была быть обшивка. Я мог бы выключить на корпус куллинг, чтобы это устранить, но повышать в два раза число рендерящихся полигонов как-то не охота. Добавлено (23.03.2011, 10:24) --------------------------------------------- Перезалил по той же ссылке релизную версию для конкурса, добавил новый вид гонки - не пускать соперников на финиш (устраивать аварии), это для тех, кому просто всех обогнать слишком легко.
|
|
| |
-Mikle- | Дата: Среда, 23 Марта 2011, 20:14 | Сообщение # 32 | Тема: Кто же пишет на VB??? |
Изобретатель велосипедов
Сейчас нет на сайте
| Я пишу игры на VB6. Его низкая производительность - миф, то есть ниже, конечно, чем у C++, но примерно такая же, как у Дельфи, шарпа, vb.net.
|
|
| |
-Mikle- | Дата: Четверг, 24 Марта 2011, 14:03 | Сообщение # 33 | Тема: Кто же пишет на VB??? |
Изобретатель велосипедов
Сейчас нет на сайте
| Quote (IIIypuk) Есть что показать? игра статья Могу ещё накидать. Замеры будут.
Сообщение отредактировал -Mikle- - Четверг, 24 Марта 2011, 14:05 |
|
| |
-Mikle- | Дата: Пятница, 25 Марта 2011, 15:28 | Сообщение # 34 | Тема: Утилитка для зацикливания звука. |
Изобретатель велосипедов
Сейчас нет на сайте
| Оцените утилитку: Choir Распакуйте архив, там лежит программа Choir.exe и небольшой .wav файл, перетащите мышкой .wav файл на Choir.exe, через долю секунды возникнет ещё один .wav файл, длиной ровно 1 сек., стерео, начало с концом файла стыкуется без щелчка, то есть его можно зацикливать, да и сам звук в полученном файле гораздо ровнее, чем в исходном. Годится для протяжных звуков, типа хора, оркестровых скрипок... Полученный звук "хорусит", поэтому для звука двигателя, например, подходит не очень. Исходный файл должен быть моно, 16 бит, 44.1 кГц, не менее 2.5 сек. длиной, без атаки и затухания - то есть записываем какое-нибудь "ААА" через микрофон, потом в любом редакторе отрезаем неровные начало и конец, оставляя не менее 2.5 сек. - получен исходный файл.
|
|
| |
-Mikle- | Дата: Понедельник, 28 Марта 2011, 10:56 | Сообщение # 35 | Тема: TubeRoll. |
Изобретатель велосипедов
Сейчас нет на сайте
| "Стрельнула" мысль - сделал игру на 4 кБ размером: TubeRoll Где-то за два часа :). Visual Basic 6, WinAPI. Не стал это в "Готовые проекты" отправлять.
|
|
| |
-Mikle- | Дата: Вторник, 29 Марта 2011, 09:50 | Сообщение # 36 | Тема: TubeRoll. |
Изобретатель велосипедов
Сейчас нет на сайте
| Перепроверил - качает. Мой рекорд - 170!
Сообщение отредактировал -Mikle- - Вторник, 29 Марта 2011, 09:51 |
|
| |
-Mikle- | Дата: Среда, 30 Марта 2011, 16:27 | Сообщение # 37 | Тема: TubeRoll. |
Изобретатель велосипедов
Сейчас нет на сайте
| TubeRoll.bat весит 3718 байт, у всех. Читайте ReadMe.
|
|
| |
-Mikle- | Дата: Пятница, 06 Мая 2011, 13:48 | Сообщение # 38 | Тема: Зацените Ray tracing на VB6. |
Изобретатель велосипедов
Сейчас нет на сайте
| Мой рей-трейсинг на VB6: Ray tracing 7.5 кБ Четыре зеркальных шара лежат на зеркальной плоскости, освещены солнцем, ограничения на рекурсию НЕТ, то есть все переотражения считаются до тех пор, пока не упрутся в небо. Mожно задавать позицию солнца.
|
|
| |
-Mikle- | Дата: Суббота, 07 Мая 2011, 22:44 | Сообщение # 39 | Тема: Зацените Ray tracing на VB6. |
Изобретатель велосипедов
Сейчас нет на сайте
| Обновил рей-трейсинг: Ray Tracing 8.5 кБ Сделал разные материалы, более натуральное отражение, добавил амбиент, но главное - оцените антиалиазинг.
Сообщение отредактировал -Mikle- - Суббота, 07 Мая 2011, 22:45 |
|
| |
-Mikle- | Дата: Среда, 11 Мая 2011, 14:07 | Сообщение # 40 | Тема: Зацените Ray tracing на VB6. |
Изобретатель велосипедов
Сейчас нет на сайте
| Добавил мягкие тени, исправил небольшую ошибку в вычислении нормалей, качать по той же ссылке: Ray Tracing 9 кБ.
|
|
| |
|