Модераторы: Akina
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> MIDI, Как же это сделать??? 
:(
    Опции темы
Atomic Angel
Дата 9.9.2004, 20:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 21
Регистрация: 19.11.2003

Репутация: нет
Всего: нет
Хочу работать из VB с MIDI. Не используя при этом никаких OCX-ов.
Кто сможет - пусть поможет...
PM MAIL WWW ICQ   Вверх
-Mikle-
Дата 14.9.2004, 15:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Невидимка Vingrad'а
***


Профиль
Группа: Экс. модератор
Сообщений: 1672
Регистрация: 22.6.2003
Где: Казахстан, Астана

Репутация: 8
Всего: 59
Хе...
Не используя OCX, DLL и т.д. тебе тяжко придется
Надо будет изучить формат МИДИ, потом открывать его "рассматривать"...
Потом работать со звуковой картой (точнее с дровами на нее), что на ВБ вряд-ли получится

В итоге все прийдет к тому, что ты поймешь: Зачем изобретать велосипед, когда его уже изобрели!

ЗЫ: а почему именно такое условие? без всяких оцеиксов... Может тебе надо чтоб и вообще, без Windows'a? smile.gif


--------------------
Если тебе плюют в спину, значит ты впереди...
PM   Вверх
Atomic Angel
Дата 21.9.2004, 21:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 21
Регистрация: 19.11.2003

Репутация: нет
Всего: нет
Ну, знаешь ли, НЕ ЛЮБЛЮ Я ТАСКАТЬ ВСЯКИЙ ХЛАМ с моим EXE-шником...
PM MAIL WWW ICQ   Вверх
cardinal
Дата 21.9.2004, 23:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Инженер
****


Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

Репутация: 19
Всего: 99
Здесь используется одна стандартная dll'ка winmm.dll. Думаю она почти в каждой Винде есть (кроме каких-нибудь экзотических smile.gif).
Код
Option Explicit

Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long

Private Sub Stop_Click()
Dim res As Long
res = mciExecute("Stop e:\music\only_you.mid")
End Sub

Private Sub Play_Click()
Dim res As Long
res = mciExecute("Play e:\music\only_you.mid")
End Sub



--------------------
Немецкая оппозиция потребовала упростить натурализацию иммигрантов
В моем блоге: Разные истории из жизни в Германии

"Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино".  А. и Б. Стругацкие
PM   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0582 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.