Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.10.02;
Скачать: CL | DM;

Вниз

как midi связано с темпом?   Найти похожие ветки 

 
pahan07   (2005-05-16 20:42) [0]

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

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 как-то это можно отловить...
Какие будут идеи?


 
Digitman ©   (2005-05-17 08:18) [1]

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

TimeOn := GetTickCount;

в OnKeyUp :

TimeOff := GetTickCount;

TimeDiff := TimeOff - TimeOn;

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

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


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

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



Страницы: 1 вся ветка

Текущий архив: 2005.10.02;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.026 c
4-1123029721
Funt1k
2005-08-03 04:42
2005.10.02
Подсветка синтаксиса


1-1126532796
Charly22
2005-09-12 17:46
2005.10.02
Вид диалога открытия файлов


3-1124526000
Dell3r
2005-08-20 12:20
2005.10.02
Помогите составить запрос


9-1117520325
WondeRu
2005-05-31 10:18
2005.10.02
GLScene. Как рисовать обычными OpenGL командами?


4-1123564499
ANB
2005-08-09 09:14
2005.10.02
Как получить номер версии своей программы ?