midi-пианино, DELPHI. Как узнать какие ноты соответствуют цифрам? И подскажите какую-нибудь простенькую песенку на клаве
Код выглядит примерно так:
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if key='1' then nota:=60 ; //с
if key='2' then nota:=62 ; //d
if key='3' then nota:=64 ; //e
if key='4' then nota:=65 ; //f
if key='5' then nota:=67 ; //g
if key='6' then nota:=69 ; //a
if key='7' then nota:=71 ; //b
if key='8' then nota:=72 ; //c
if key='9' then nota:=74 ; //d
if key='0' then nota:=76 ; //e
if key='-' then nota:=77 ; //f
if key='=' then nota:=79 ; //g
//формируем сообщение
midimsg := $90 + ((nota) * $100) + (127 * $10000) + 0;
//отправляем его
midiOutShortMsg (hmidi, midimsg);
end;