| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
программный MIDI синтезатор
SFproG © (2005-02-01 18:16:00)Кто нибудь знает коды всех нот для извлечения их из программы?
Например, для извлечения ноты "До" я пишу такой код:
procedure TForm1.Button1Click(Sender: TObject);
begin
midimsg:=$7f3c90; // "$7f3c90" - нота "до" //
midioutshortmsg(hmidi_out,midimsg);
end;
Это коды всех нот которые я знаю:
$7f3a90 - ля#
$7f3b90 - си
$7f3c90 - до
$7f3d90 - до#
$7f3e90 - ре
$7f3f90 - ре#
Не хватает ещё шесть. Подскажите кто знает. Заранее спасибо...
Digitman (2005-02-02 11:51:00) [21]
> SFproG © (02.02.05 11:30) [2]
а зачем весь этот геморрой тебе нужен ?
SFproG (2005-02-02 11:30:00) [22]Спасибо большое! Разобрался.
Ест-но, на 12-ти нотах (1 октава) ни чего не сыграешь. У меня были планы сделать несколько октав.
Спасибо ещё раз.
Digitman (2005-02-02 09:43:00) [23]
> Это коды всех нот которые я знаю
это не "коды нот", это команды управления MIDI-устройством
а собственно "код ноты" в данных командах хранится в старшем байте младшего слова, только это не "код ноты", а , если угодно, "номер клавиши" в диапазоне 0..127 ($00..$7F)
> Не хватает ещё шесть
и что ты собрался "сыграть" 12-ю нотами ? разве что только "Чижик-пыжик" ?)
тебе сюда
http://www.midi.ru/doc/7.htm
и в станд.справку к ф-ции midiOutShortMsg() ..
| |
Страницы: 