易语言MIDI演奏模块源码 [db:版本]

易语言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, 整数型