易语言MIDI演奏模块源码

系统结构:奏乐了,C,关闭,停奏,奏乐,奏,取设备,打开,置乐器,取乐器名,midiOutClose,midiOutGetNumDevs,midiOutOpen,midiOutShortMsg,midiOutGetDevCaps,

======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ _临时子程序
           |  |
           |  |------ 奏乐了
           |  |
           |  |------ C
           |  |
           |  |
======MIDI演奏_类
           |  |
           |  |------ _初始化
           |  |
           |  |------ _销毁
           |  |
           |  |------ 关闭
           |  |
           |  |------ 停奏
           |  |
           |  |------ 奏乐
           |  |
           |  |------ 奏
           |  |
           |  |------ 取设备
           |  |
           |  |------ 打开
           |  |
           |  |------ 置乐器
           |  |
           |  |------ 取乐器名
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   midiOutClose
           |  |
           |  |---[dll]------   midiOutGetNumDevs
           |  |
           |  |---[dll]------   midiOutOpen
           |  |
           |  |---[dll]------   midiOutShortMsg
           |  |
           |  |---[dll]------   midiOutGetDevCaps

调用的DLL命令:

.DLL命令 midiOutClose, 整数型, "winmm.dll", "midiOutClose", , 关闭MIDI输出设备
    .参数 hMidiOut, 整数型

.DLL命令 midiOutGetNumDevs, 整数型, "winmm.dll", "midiOutGetNumDevs", , 获取MIDI输出设备数量

.DLL命令 midiOutOpen, 整数型, "winmm.dll", "midiOutOpen", , 打开MIDI输出设备
    .参数 lphMidiOut, 整数型, 传址
    .参数 uDeviceID, 整数型
    .参数 dwCallback, 整数型
    .参数 dwInstance, 整数型
    .参数 dwFlags, 整数型

.DLL命令 midiOutShortMsg, 整数型, "winmm.dll", "midiOutShortMsg", , 向MIDI输出设备发送短消息
    .参数 hMidiOut, 整数型
    .参数 dwMsg, 整数型

.DLL命令 midiOutGetDevCaps, 整数型, "winmm.dll", "midiOutGetDevCapsA", , 返回MIDI输出设备性能
    .参数 uDeviceID, 整数型
    .参数 lpCaps, MIDIOUTCAPS
    .参数 uSize, 整数型