| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

как midi связано с темпом? [D6, WinXP]

pahan07 ©   (2005-05-16 20:42:00) 

Клавиатура копма используется как клавиатура пианино, реализуется это так:

procedure TForm2.FormKeyDown(Sender: TObject; var Key: Word;
 Shift: TShiftState);
begin
if (key = 69) and not (KeyQAlreadyPressed) then
  begin    
    form2.SpeedButton4.Down:=true;
    KeyQAlreadyPressed := True;
    midimsg:=$7f3090;
    midioutshortmsg(hmidi_out,midimsg);
  end;
end;

procedure TForm2.FormKeyUp(Sender: TObject; var Key: Word;
 Shift: TShiftState);
begin
if (key = ord(69)) then
  begin
     form2.SpeedButton4.Down:=false;
     KeyQAlreadyPressed := False;
     midimsg:=$7f3080;
     midioutshortmsg(hmidi_out,midimsg);
  end;
end;

Мне нужно выяснить как долго была нажата клавиша, для того,чтобы записать в Мемо1 ее длительность! Но длительность не в милисекундах ,а музыкальную длительность(1/2, 1/4 и т.д)
Посоветуйте, как это можно реализовать? Как состыковать это с темпом игры ,может быть метроном какой-то сделать или еще чего... Может быть через midi как-то это можно отловить...
Какие будут идеи?

---

pahan07   (2005-05-17 09:33:00) [1]

Благодарю! Спасибо за совет :-)

---

Digitman   (2005-05-17 08:18:00) [2]

в OnKeyDown при условии not KeyQAlreadyPressed :

TimeOn := GetTickCount;

в OnKeyUp :

TimeOff := GetTickCount;

TimeDiff := TimeOff - TimeOn;

в TimeDiff - время удержания клавиши в нажатом состоянии в мс

далее - простой пересчет этого времени в муз.длительность, с учетом заданной тобой муз.размерности и времени одного муз.такта

---

Наверх