PMW自制音乐DIY工具[For TQ2440]

用以前学C的时候写的一个小工具改装的,用VBA写的,打开前请将excel启用宏.打开后CTRL+SHIFT+H查看帮助
excel2007 + tq2440测试通过.

第一次发贴,还请多多关照.


demo是一首<我家住在黄土高坡>
生成后的代码为

1. //============================================================================
   
2. // Name        : boardMusic.c
   
3. // Author      : ma.xw
   
4. // Version     : 1.1
   
5. // Copyright   : ctrlC
   
6. // Description : 《黄土高坡》For TQ2440, date:2012-12-16
   
7. //============================================================================
   
8. 
   
9. #include "../inc/def.h"
   
10. extern void Buzzer_Freq_Set(U32 freq);
    
11. extern void Delay(int time);
    
12. extern void Uart_Printf(char *fmt,...);
    
13. extern void Buzzer_Stop( void );
    
14. 
    
15. struct Music_t {
    
16.     char c1;
    
17.     char c2;
    
18.     char* geci;
    
19. };
    
20. 
    
21. struct Music_t myMus[] = {
    
22.     {0x15, 0xC8, "我"},
    
23.     {0x15, 0xC8, "家"},
    
24.     {0x15, 0xC8, "住"},
    
25.     {0x15, 0xC8, "在"},
    
26.     {0x16, 0x88, "黄"},
    
27.     {0x15, 0xC8, "土"},
    
28.     {0x16, 0x90, "高"},
    
29.     {0x6, 0x98, "坡,"},
    
30.     {0x6, 0x44, 0},
    
31.     {0x6, 0x4, 0},
    
32.     {0x15, 0xE0, 0},
    
33.     {0x16, 0x48, "大"},
    
34.     {0x16, 0x50, "风"},
    
35.     {0x16, 0x8, "从"},
    
36.     {0x15, 0xC8, "坡"},
    
37.     {0x15, 0xC8, "上"},
    
38.     {0x15, 0x88, "刮"},
    
39.     {0x15, 0xF0, "过,"},
    
40.     {0x10, 0x8, 0},
    
41.     {0x15, 0xC8, "不"},
    
42.     {0x15, 0xD0, "管"},
    
43.     {0x15, 0xC8, "是"},
    
44.     {0x16, 0x88, "西"},
    
45.     {0x16, 0x88, "北"},
    
46.     {0x16, 0x90, "风"},
    
47.     {0x16, 0x8C, "还"},
    
48.     {0x16, 0x84, "是"},
    
49.     {0x15, 0xC8, "东"},
    
50.     {0x16, 0x88, "南"},
    
51.     {0x6, 0x8C, "风,"},
    
52.     {0x7, 0x50, 0},
    
53.     {0x5, 0x88, 0},
    
54.     {0x15, 0x48, 0},
    
55.     {0x15, 0xC, "都"},
    
56.     {0x14, 0xC4, "是"},
    
57.     {0x15, 0x8, "我"},
    
58.     {0x15, 0xC8, "的"},
    
59.     {0x15, 0xD0, "歌"},
    
60.     {0x15, 0x8, "我"},
    
61.     {0x5, 0x44, "的"},
    
62.     {0x15, 0x10, 0},
    
63.     {0x14, 0xE0, "歌."},
    
64.     {0x10, 0x10, 0},
    
65.     {0x15, 0xC8, "我"},
    
66.     {0x15, 0xC8, "家"},
    
67.     {0x15, 0xC8, "住"},
    
68.     {0x15, 0xC8, "在"},
    
69.     {0x16, 0x88, "黄"},
    
70.     {0x15, 0xC8, "土"},
    
71.     {0x16, 0x90, "高"},
    
72.     {0x6, 0x98, "坡,"},
    
73.     {0x6, 0x44, 0},
    
74.     {0x6, 0x4, 0},
    
75.     {0x15, 0xE0, 0},
    
76.     {0x16, 0x48, "大"},
    
77.     {0x16, 0x50, "风"},
    
78.     {0x16, 0x8, "从"},
    
79.     {0x15, 0xC8, "坡"},
    
80.     {0x15, 0xC8, "上"},
    
81.     {0x15, 0x88, "刮"},
    
82.     {0x15, 0xE0, "过,"},
    
83.     {0x10, 0x20, 0},
    
84.     {0x15, 0xC8, "不"},
    
85.     {0x15, 0xD0, "管"},
    
86.     {0x15, 0xC8, "是"},
    
87.     {0x16, 0x88, "西"},
    
88.     {0x16, 0x88, "北"},
    
89.     {0x16, 0x90, "风"},
    
90.     {0x16, 0x8C, "还"},
    
91.     {0x16, 0x84, "是"},
    
92.     {0x15, 0xC8, "东"},
    
93.     {0x16, 0x88, "南"},
    
94.     {0x6, 0x8C, "风,"},
    
95.     {0x7, 0x50, 0},
    
96.     {0x5, 0x88, 0},
    
97.     {0x15, 0x48, 0},
    
98.     {0x15, 0xC, "都"},
    
99.     {0x14, 0xC4, "是"},
    
100.     {0x15, 0x8, "我"},
     
101.     {0x15, 0xC8, "的"},
     
102.     {0x15, 0xD0, "歌"},
     
103.     {0x15, 0x8, "我"},
     
104.     {0x5, 0x44, "的"},
     
105.     {0x15, 0x10, 0},
     
106.     {0x14, 0xE0, "歌."},
     
107.     {0x10, 0x20, 0},
     
108.     {0x16, 0x48, "不"},
     
109.     {0x16, 0x50, "管"},
     
110.     {0x16, 0x10, "过"},
     
111.     {0x15, 0xC8, "去"},
     
112.     {0x10, 0x8, 0},
     
113.     {0x15, 0x88, "了"},
     
114.     {0x16, 0x4C, "多"},
     
115.     {0x16, 0x44, "少"},
     
116.     {0x6, 0x48, "岁"},
     
117.     {0x16, 0x8, 0},
     
118.     {0x15, 0xE0, "月,"},
     
119.     {0x16, 0x4C, "祖"},
     
120.     {0x16, 0x44, "祖"},
     
121.     {0x16, 0x48, "辈"},
     
122.     {0x16, 0x8, "辈"},
     
123.     {0x5, 0xCC, "留"},
     
124.     {0x14, 0xC4, 0},
     
125.     {0x14, 0xD0, "下"},
     
126.     {0x15, 0x30, "我,"},
     
127.     {0x10, 0x10, 0},
     
128.     {0x16, 0x48, "留"},
     
129.     {0x16, 0x50, "下"},
     
130.     {0x16, 0x8, "我"},
     
131.     {0x15, 0xC8, "一"},
     
132.     {0x15, 0xC8, "望"},
     
133.     {0x15, 0x88, "无"},
     
134.     {0x15, 0xC8, "际"},
     
135.     {0x16, 0x50, "唱"},
     
136.     {0x6, 0x48, "着"},
     
137.     {0x16, 0x8, 0},
     
138.     {0x15, 0xE0, "歌,"},
     
139.     {0x15, 0xCC, "还"},
     
140.     {0x15, 0xC4, "有"},
     
141.     {0x15, 0xC8, "身"},
     
142.     {0x16, 0x48, "边"},
     
143.     {0x15, 0xC8, "这"},
     
144.     {0x15, 0x88, "条"},
     
145.     {0x5, 0x48, "黄"},
     
146.     {0x14, 0xD0, 0},
     
147.     {0x15, 0xB0, "河"},
     
148.     {0x5, 0xD0, "噢"},
     
149.     {0x6, 0x60, 0},
     
150.     {0x6, 0xCC, 0},
     
151.     {0x7, 0x44, 0},
     
152.     {0x6, 0xC8, 0},
     
153.     {0x16, 0xB0, 0},
     
154.     {0x10, 0x8, 0},
     
155.     {0x17, 0x48, "我"},
     
156.     {0x17, 0x48, "家"},
     
157.     {0x17, 0x48, "住"},
     
158.     {0x17, 0x8, "在"},
     
159.     {0x16, 0xC8, "黄"},
     
160.     {0x16, 0x88, "土"},
     
161.     {0x16, 0xD0, "高"},
     
162.     {0x6, 0xCC, "坡,"},
     
163.     {0x7, 0x44, 0},
     
164.     {0x6, 0x58, 0},
     
165.     {0x6, 0x8, 0},
     
166.     {0x15, 0xD0, 0},
     
167.     {0x17, 0x48, "四"},
     
168.     {0x17, 0x48, "季"},
     
169.     {0x17, 0x48, "风"},
     
170.     {0x17, 0x8, "从"},
     
171.     {0x16, 0xC8, "坡"},
     
172.     {0x16, 0x88, "上"},
     
173.     {0x16, 0xD0, "刮"},
     
174.     {0x6, 0xC8, "过,"},
     
175.     {0x7, 0x44, 0},
     
176.     {0x6, 0x58, 0},
     
177.     {0x6, 0x8, 0},
     
178.     {0x15, 0xD0, 0},
     
179.     {0x15, 0xC8, "不"},
     
180.     {0x15, 0xD0, "管"},
     
181.     {0x15, 0xC8, "是"},
     
182.     {0x16, 0x90, "八"},
     
183.     {0x16, 0x8C, "百"},
     
184.     {0x16, 0x84, "年"},
     
185.     {0x16, 0x8C, "还"},
     
186.     {0x16, 0x84, "是"},
     
187.     {0x15, 0xC8, "一"},
     
188.     {0x16, 0x88, "万"},
     
189.     {0x6, 0x8C, "年,"},
     
190.     {0x7, 0x44, 0},
     
191.     {0x5, 0x88, 0},
     
192.     {0x15, 0x48, 0},
     
193.     {0x15, 0xC, "都"},
     
194.     {0x14, 0xC4, "是"},
     
195.     {0x15, 0x8, "我"},
     
196.     {0x15, 0xC8, "的"},
     
197.     {0x15, 0xD0, "歌"},
     
198.     {0x15, 0x8, "我"},
     
199.     {0x5, 0x44, "的"},
     
200.     {0x15, 0x4, 0},
     
201.     {0x16, 0xB0, "歌."},
     
202.     {0x10, 0x10, 0},
     
203.     {0x5, 0x10, "噢"},
     
204.     {0x15, 0xB0, 0},
     
205.     {0x5, 0xD0, "噢~"},
     
206.     {0x6, 0x60, 0},
     
207.     {0x6, 0xCC, 0},
     
208.     {0x7, 0x44, 0},
     
209.     {0x6, 0xC8, 0},
     
210.     {0x16, 0xE0, 0},
     
211.     {0x10, 0x10, 0},
     
212. };
     
213. 
     
214. U32 freqTab[] = {
     
215.         0,//静止符
     
216.         200, 200, 200, 200, 200, 200, 200, //低二 1,2,3,4,5,6,7
     
217.         131, 147, 165, 175, 196, 220, 247, //低一 1,2,3,4,5,6,7
     
218.         262, 286, 330, 349, 392, 440, 494, //常音 1,2,3,4,5,6,7
     
219.         523, 587, 659, 698, 784, 879, 987, //高一 1,2,3,4,5,6,7
     
220.         1047, 1175, 1319, 1397, 1568, 1760, 1976, //高二 1,2,3,4,5,6,7
     
221. };
     
222. 
     
223. //BOARD BEEP
     
224. void mybeep(U32 freq, U32 ms) {
     
225.     Buzzer_Freq_Set(freq);
     
226.     Delay(ms);
     
227.     Buzzer_Stop();
     
228. }
     
229. 
     
230. //shichangBase_Ms 表示1/64拍所用的毫秒数
     
231. void subPlay(char yingaoidx, char shichang, int kongxi, int shichangBase_Ms) {
     
232.     if (0 != yingaoidx) { //如果yingaoidx为0则表示静止符
     
233.         //real play 以指定时间长度,指定频率PWM播放
     
234.         mybeep(freqTab[yingaoidx], shichang * shichangBase_Ms);
     
235.         if (kongxi) {
     
236.             Delay(20);
     
237.         }
     
238.     } else {
     
239.         Buzzer_Stop();
     
240.         Delay(shichang * shichangBase_Ms);
     
241.     }
     
242.     return;
     
243. }
     
244. 
     
245. void play(struct Music_t* pmusHead, int eleCnt) {
     
246.     int idx = 0;
     
247.     while(idx < eleCnt) {
     
248.         int isum = ((pmusHead[idx].c1 << 8) | pmusHead[idx].c2);
     
249.         char yingaoIdx = ((isum >> 6) & 0x3F);
     
250.         char shichang = (isum & 0x3F);
     
251.         int kongxi = ((isum >> 12) & 0x1);
     
252.         if (0 != pmusHead[idx].geci) {
     
253.             Uart_Printf("yingaoIdx=%d, shichang=%d, kongxi=%d, geci=%s\n",yingaoIdx, shichang, kongxi, pmusHead[idx].geci);
     
254.         } else {
     
255.             Uart_Printf("yingaoIdx=%d, shichang=%d, kongxi=%d, geci=%s\n",yingaoIdx, shichang, kongxi, "null");
     
256.         }
     
257.         subPlay(yingaoIdx, shichang, kongxi, 50);
     
258.         ++idx;
     
259.     }
     
260.     return;
     
261. }
     
262. 
     
263. void musicGo(void) {
     
264.     play(myMus, sizeof(myMus) / sizeof(struct Music_t));
     
265. }
     
266. 
     
267. //under code please move to main function
     
268. extern void musicGo(void);
     
269.     musicGo();
     
270.     return;
     

复制代码

很好！有意思！顶

上传3首歌曲的bin,烧进NAND,从NAND起,输入1,听歌:lol

备份
http://wiki.freepascal.org/Cross_compiling/zh_CN
http://blog.chinaunix.net/uid-25299072-id-2956391.html