系统声卡MIDI音乐序列调用 打鼓机源码

haoyuanxin

系统声卡MIDI音乐序列调用  打鼓机源码

     代码纯开源，全部使用API函数来完成。对关键代码用子程序进行了封装，方便刚入门的童鞋使用。运行环境采用最新版本的5.0，请不要使用低版本，以防出现运行不了，或错误的情况。

以下代码，直接拷贝到TC源码区，就可以运行了。

没有鼓机？又很想玩，那就认真研究一下下面的代码吧。

1. 变量 线程ID
   
2. //从这里开始执行
   
3. 
   
4. //启动_热键操作
   
5. 功能 启动_热键()
   
6.     线程ID=线程开启("演奏","")
   
7. 结束
   
8. 
   
9. //终止热键操作
   
10. 功能 终止_热键()
    
11.     线程关闭(线程ID)
    
12. 结束
    
13. 
    
14. 
    
15. 
    
16. //对API函数不懂的同学，去查相关函数，api.ayuyan.c0m
    
17. 功能 演奏()
    
18.     var hmidi,i,节奏控制文本,txt
    
19.     //打开设备
    
20.     hmidi=打开设备(窗口获取标题(窗口获取自我句柄()))
    
21.    
    
22.     //赋值节奏控制文本   
    
23.     节奏控制文本="1030"
    
24.    
    
25.     //执行节奏敲打播放   
    
26.     for (var 次=0; 次<5;次++)
    
27.         for (i=0;i<strlen(节奏控制文本);i++)
    
28.             txt=strsub(节奏控制文本,i,i+1)
    
29.             select(txt)
    
30.                 case "1"
    
31.                 MIDI演奏(hmidi,127,36,9)
    
32.                 case "2"
    
33.                 MIDI演奏(hmidi,127,42,9)
    
34.                 case "3"
    
35.                 MIDI演奏(hmidi,127,38,9)
    
36.             end
    
37.             等待(200)
    
38.         end     
    
39.     end
    
40.    
    
41.    
    
42.     节奏控制文本="1230"//更改节奏控制文本. 节奏2执行
    
43.     for (var 次=0; 次<5;次++)
    
44.         for (i=0;i<strlen(节奏控制文本);i++)
    
45.             txt=strsub(节奏控制文本,i,i+1)
    
46.             select(txt)
    
47.                 case "1"
    
48.                 MIDI演奏(hmidi,127,36,9)
    
49.                 case "2"
    
50.                 MIDI演奏(hmidi,127,42,9)
    
51.                 case "3"
    
52.                 MIDI演奏(hmidi,127,38,9)
    
53.             end
    
54.             等待(200)
    
55.         end     
    
56.     end
    
57.    
    
58.    
    
59.     节奏控制文本="1232"//更改节奏控制文本. 节奏3执行
    
60.     for (var 次=0; 次<5;次++)
    
61.         for (i=0;i<strlen(节奏控制文本);i++)
    
62.             txt=strsub(节奏控制文本,i,i+1)
    
63.             select(txt)
    
64.                 case "1"
    
65.                 MIDI演奏(hmidi,127,36,9)
    
66.                 case "2"
    
67.                 MIDI演奏(hmidi,127,42,9)
    
68.                 case "3"
    
69.                 MIDI演奏(hmidi,127,38,9)
    
70.             end
    
71.             等待(200)
    
72.         end     
    
73.     end
    
74.    
    
75.    
    
76.     节奏控制文本="123212311232"//更改节奏控制文本. 节奏4执行
    
77.     for (var 次=0; 次<5;次++)
    
78.         for (i=0;i<strlen(节奏控制文本);i++)
    
79.             txt=strsub(节奏控制文本,i,i+1)
    
80.             select(txt)
    
81.                 case "1"
    
82.                 MIDI演奏(hmidi,127,36,9)
    
83.                 case "2"
    
84.                 MIDI演奏(hmidi,127,42,9)
    
85.                 case "3"
    
86.                 MIDI演奏(hmidi,127,38,9)
    
87.             end
    
88.             等待(200)
    
89.         end     
    
90.     end
    
91.    
    
92.    
    
93.     //更改钢琴音色
    
94.     for (var 次=0; 次<5;次++)
    
95.         for (i=0;i<strlen(节奏控制文本);i++)
    
96.             txt=strsub(节奏控制文本,i,i+1)
    
97.             select(txt)
    
98.                 case "1"
    
99.                 MIDI演奏(hmidi,127,36,1)
    
100.                 case "2"
     
101.                 MIDI演奏(hmidi,127,42,1)
     
102.                 case "3"
     
103.                 MIDI演奏(hmidi,127,38,1)
     
104.             end
     
105.             等待(200)
     
106.         end     
     
107.     end
     
108.    
     
109. 结束
     
110. 
     
111. 
     
112. 
     
113. 功能 MIDI置乐器(设备句柄,乐器值,通道)
     
114.     var msg
     
115.     if (乐器值>127 || 乐器值<0)
     
116.         乐器值=127
     
117.     end
     
118.    
     
119.     if (通道>15 || 通道<0)
     
120.         通道=1
     
121.     end   
     
122.     msg=0 * 65536 + 乐器值 * 256 + 192 + 通道
     
123.     dllcall("winmm.dll", "long", "midiOutShortMsg", "int",设备句柄, "int",msg )
     
124. 结束
     
125. 
     
126. 
     
127. 功能 MIDI演奏(设备句柄,音量,音色值,通道)
     
128.     var msg
     
129.     if (音量>127 || 音量<0)
     
130.         音量=127
     
131.     end
     
132.    
     
133.     if (通道>15 || 通道<0)
     
134.         通道=1
     
135.     end   
     
136.     msg=音量 * 65536 + 音色值 * 256 + 144 + 通道  
     
137.     dllcall("winmm.dll", "long", "midiOutShortMsg", "int",设备句柄, "int",msg )
     
138. 结束
     
139. 
     
140. 
     
141. 功能 关闭设备(设备句柄)
     
142.     dllcall("winmm.dll", "long", "midiOutClose", "int",设备句柄)
     
143. 结束
     
144. 
     
145. 
     
146. 
     
147. 
     
148. 功能 打开设备(自身窗口标题)
     
149.     var lphMidi,hp,hMidi
     
150.     //申请内存
     
151.     lphMidi=dllcall("kernel32.dll", "long", "LocalAlloc", "int", 64, "int", 16  )
     
152.    
     
153.     //打开设备内存
     
154.     dllcall("winmm.dll", "long", "midiOutOpen", "wchar", lphMidi, "long", -1, "long", 0, "long", 0, "long", 0)
     
155.    
     
156.     //获取句柄,注意此处通过自身窗口标题获取了自身进程句柄,从而实现读自身内存
     
157.     hp=进程获取句柄(自身窗口标题)
     
158.    
     
159.     //指针到整数,取设备句柄
     
160.     hMidi=读4byte(hp,lphMidi)
     
161.    
     
162.     //释放内存
     
163.     dllcall("kernel32.dll", "long", "LocalFree", "int", lphMidi )
     
164.    
     
165.     返回 hMidi
     
166.    
     
167. 结束
     

复制代码

1. 
   

复制代码