电子琴类模块，附测试程序

mmguan · 发表于 2011-11-1 12:12

本帖最后由 mmguan 于 2011-11-15 14:28 编辑

无聊写一个Mid 电子琴程序。请多多指教
更新程序修正不能重复按键问题。
更新程序修正鼠标双击问题。

EXCEL 电子琴1B.rar (28.9 KB, 下载次数: 1909)

更新程序删除一些无聊的代码。程序更容易阅读。
修正键盘颜色Bug
增加扫键功能
增加音色选择 Ctl + 鼠标点击黑键或白键
Shift +鼠标点击黑键或白键
增加打击乐器选择 Alt +鼠标点击黑键或白键
音色表参考General MIDI标准

Keyboard_1e.rar (48.34 KB, 下载次数: 2041)

zslyyy · 发表于 2011-11-1 12:23

很强，支持一下，能不能用健盘啊，用健盘的话更实用点

kangatang · 发表于 2011-11-1 12:38

本帖最后由 kangatang 于 2011-11-1 12:41 编辑

我觉得用以下思路，可以实现键盘弹奏的效果。取代鼠标。
Application.OnKey "{Assigned_Key}", "move_to_target_cells"

mmguan · 发表于 2011-11-1 12:42

正在做，只是还有一些没解决的问题。不过不用OnKey,好像这函数只接受一个键事件，两以上就无能为力。

kangatang · 发表于 2011-11-1 12:42

kangatang 发表于 2011-11-1 12:38
我觉得用以下思路，可以实现键盘弹奏的效果。取代鼠标。
Application.OnKey "{Assigned_Key}", "move_to_t ...

顶，希望有人实现它。我没时间。

kangatang · 发表于 2011-11-1 13:11

此贴必火，不火我替楼主发火。

mmguan · 发表于 2011-11-1 13:49

本帖最后由 mmguan 于 2011-11-2 14:12 编辑

应大家要求加入键盘控制，此程序我已经写了很久了可有些代码不记得意义。
本来运行会出错，刚才修正了一个Bug。程序勉强能运行。没有做太多的调试。

EXCEL电子琴键盘版本，支持多键齐按。
能同时按下多少个键可能决定于键盘硬件,我的机器支持4个键同时按下。
应用自己编写的Timer类和键盘接收类，用到回调函数，如何各位朋友中断运行小心Excel崩溃。大家不要发火喔。
通过 EXCEL2000 和 EXCEL2007 测试
缺点：键盘键数太少加上黑键有点困难。

如需帮助联系
         乡村雨燕
      QQ: 1934089312
         QQ: 542008247

附件更新请看一楼。

zslyyy · 发表于 2011-11-1 15:00

不错，还是可行的，收藏了

kangatang · 发表于 2011-11-1 16:43

好东西，可以给我18个月的儿子玩.

AVEL · 发表于 2011-11-1 18:48

感谢分享，类，不会用啊。。

用户名		自动登录	找回密码
密码			免费注册

电子琴类模块，附测试程序

评分