用Matlab写一个电子钢琴程序能实现谱曲功能

以下是一个基本的Matlab电子钢琴程序，包含了谱曲功能。用户可以在程序中按下不同的键，以产生不同的音符。同时，用户还可以使用键盘来谱曲，将自己创作的音乐保存为MIDI文件。

程序代码如下：

% 定义音符频率
freq = [261.63 293.66 329.63 349.23 392 440 493.88];

% 定义键盘映射
keymap = {'a', 's', 'd', 'f', 'g', 'h', 'j'};

% 初始化谱曲矩阵
song = [];

% 循环
while 1
    % 检测键盘输入
    key = getkey();
    
    % 检测是否为电子钢琴按键
    idx = find(strcmp(key, keymap));
    if ~isempty(idx)
        % 播放音符
        sound(sin(2*pi*freq(idx)*(0:1/8192:0.5)), 8192);
        
        % 将音符添加到谱曲矩阵中
        song = [song idx];
    end
    
    % 检测是否为谱曲指令
    if strcmp(key, ' ')
        % 保存谱曲矩阵为MIDI文件
        midi = mat2midi(song);
        writemidi(midi, 'song.mid');
        
        % 清空谱曲矩阵
        song = [];
    end
end

% 获取键盘输入函数
function key = getkey()
    % 定义键盘映射表
    keys = {'0','1','2','3','4','5','6','7','8','9', ...
            'a','b','c','d','e','f','g','h','i','j', ...
            'k','l','m','n','o','p','q','r','s','t', ...
            'u','v','w','x','y','z','space','return','tab','escape', ...
            'insert','delete','home','end','pageup','pagedown','up','down','left','right', ...
            'f1','f2','f3','f4','f5','f6','f7','f8','f9','f10', ...
            'f11','f12','f13','f14','f15','f16','f17','f18','f19','f20'};

    % 获取键盘输入
    [~,~,key] = KbCheck;
    key = keys(find(key,1));
end

在程序中，我们首先定义了音符频率和键盘映射表。随后，我们初始化了一个空的谱曲矩阵。在循环中，我们不断检测键盘输入，如果输入为电子钢琴按键，则播放对应的音符，并将音符添加到谱曲矩阵中。如果输入为谱曲指令，则将谱曲矩阵保存为MIDI文件，并清空谱曲矩阵。

最后，我们还定义了一个获取键盘输入的函数，用于检测用户按下的键。这个函数使用了Matlab中的KbCheck函数，可以获取当前键盘状态并返回对应的键位。