音乐《梁祝》

cyrs

个人写的梁祝，不太完美。请大家多多包涵。

代码如下：

1. #include <REG51.H>
   
2. #define uchar unsigned char
   
3. sbit beepIO=P3^6;
   
4. uchar m,n;
   
5. uchar code T[49][2]={{0,0},
   
6. {0xF8,0x8B},{0xF8,0xF2},{0xF9,0x5B},{0xF9,0xB7},{0xFA,0x14},{0xFA,0x66},{0xFA,0xB9},{0xFB,0x03},{0xFB,0x4A},{0xFB,0x8F},{0xFB,0xCF},{0xFC,0x0B},
   
7. {0xFC,0x43},{0xFC,0x78},{0xFC,0xAB},{0xFC,0xDB},{0xFD,0x08},{0xFD,0x33},{0xFD,0x5B},{0xFD,0x81},{0xFD,0xA5},{0xFD,0xC7},{0xFD,0xE7},{0xFE,0x05},
   
8. {0xFE,0x21},{0xFE,0x3C},{0xFE,0x55},{0xFE,0x6D},{0xFE,0x84},{0xFE,0x99},{0xFE,0xAD},{0xFE,0xC0},{0xFE,0x02},{0xFE,0xE3},{0xFE,0xF3},{0xFF,0x02},
   
9. {0xFF,0x10},{0xFF,0x1D},{0xFF,0x2A},{0xFF,0x36},{0xFF,0x42},{0xFF,0x4C},{0xFF,0x56},{0xFF,0x60},{0xFF,0x69},{0xFF,0x71},{0xFF,0x79},{0xFF,0x81}
   
10. };
    
11. uchar code music[][2]={{0,4},
    
12. {20,4},{17,4},{15,4},
    
13. {13,16},
    
14. {13,4},{15,4},{12,4},{10,4},
    
15. {8,16},
    
16. {8,4},{24,4},{22,4},{24,4},
    
17. {20,4},{37,2},{22,2},{19,4},{17,4},
    
18. {15,2},{17,2},{19,2},{17,2},{20,4},{37,2},{17,2},
    
19. {15,2},{17,2},{20,2},{15,2},{17,2},{18,2},{17,2},{15,2},
    
20. {13,12},{20,4},
    
21. {12,4},{15,4},{10,4},{13,4},
    
22. {8,12},{10,2},{13,2},
    
23. {8,16},
    
24. {5,8},{8,4},{37,2},{10,2},
    
25. {13,4},{37,2},{15,2},{10,2},{13,2},{8,4},
    
26. {20,4},{37,2},{25,2},{22,2},{20,2},{17,2},{20,2},
    
27. {15,16},
    
28. {15,4},{37,2},{17,2},{12,4},{10,4},
    
29. {8,4},{37,2},{10,2},{13,4},{15,4},
    
30. {5,4},{13,4},{10,2},{8,2},{10,2},{13,2},
    
31. {8,16},
    
32. {17,4},{37,2},{20,2},{12,4},{15,4},
    
33. {10,2},{13,2},{8,8},{37,4},       
    
34. {5,2},{8,4},{5,2},{8,2},{10,2},{12,2},{15,2},
    
35. {10,12},{8,2},{10,2},
    
36. {13,4},{37,2},{15,2},{20,4},{17,4},
    
37. {15,4},{17,2},{15,2},{13,4},{10,2},{8,2},
    
38. {5,8},{13,8},
    
39. {10,2},{37,1},{13,1},{10,2},{8,2},{5,2},{8,2},{10,2},{13,2},
    
40. {8,12},{17,2},{20,2},
    
41. {15,2},{17,2},{15,2},{13,2},{12,4},{10,4},
    
42. {8,16},
    
43. {0xFF,0xFF}};
    
44. 
    
45. void delay(uchar p)
    
46. {
    
47.     uchar i,j;
    
48.     for(;p>0;p--)
    
49.     for(i=181;i>0;i--)
    
50.     for(j=181;j>0;j--);
    
51. }
    
52. 
    
53. void pause()
    
54. {
    
55.     uchar i,j;
    
56.     for(i=150;i>0;i--)
    
57.     for(j=150;j>0;j--);
    
58. }
    
59. 
    
60. void T0_int() interrupt 1
    
61. {
    
62. beepIO=!beepIO;
    
63. TH0=T[m][0]; TL0=T[m][1];
    
64. }
    
65. 
    
66. void main()
    
67. {
    
68. uchar i=0;
    
69. TMOD=0x01;  EA=1; ET0=1;
    
70. while(1)
    
71.       {
    
72.         m=music[i][0];n=music[i][1];
    
73.            if(m==0x00)
    
74.              {TR0=0;delay(n);i++;}
    
75.            else if(m==0xFF)
    
76.              {TR0=0;delay(30);i=0;}
    
77.            else if(m==music[i+1][0])
    
78.              {TR0=1;delay(n);TR0=0;pause();i++;}
    
79.            else
    
80.              {TR0=1;delay(n);i++;}
    
81.       }
    
82. }

复制代码

swznet

很高兴看到你写的程序，请问用的是51系列单片机吗？

swznet

有一个疑问就是51单片机能认c语言吗？

老尹同志

真厉害，我烧录了，挺好的！

快乐眼泪

程序可以用！