51单片机爱心灯Proteus仿真制作+代码

仿真原理图如下（proteus仿真工程文件可到本帖附件中下载）


单片机源程序如下:

1. #include<reg51.h>
   
2. #define uchar unsigned char
   
3. #define uint unsigned int
   
4. sbit beep=P2^7;
   
5. uchar song_tone[]={212,212,190,212,159,169,212,212,190,212,142,159,212,212,106,126,159,169,190,119,119,126,159,142,159,0};
   
6. uchar song_long[]={9,3,12,12,12,24,9,3,12,12,12,24,9,3,12,12,12,12,12,9,3,12,12,12,24,0} ;
   
7. void delayms(uint n)
   
8. {
   
9.   uchar i;
   
10.   while(n--)
    
11.   {
    
12.     for(i=0;i<120;i++);
    
13.   }
    
14. }
    
15. 
    
16. void play()
    
17. {
    
18. uint i=0,j,k;
    
19. while(song_tone[i]!=0||song_long[i]!=0)
    
20. {
    
21.   for(j=0;j<song_long[i]*20;j++)
    
22.   {
    
23.             beep=~beep;
    
24.   //}
    
25.   for(k=0;k<song_tone[i]/3;k++)        ;
    
26.   }//{
    
27.             delayms(10);
    
28.           i++;
    
29.   }
    
30. 
    
31. }
    
32. 
    
33. 
    
34. void main()
    
35. {
    
36.    beep=0;
    
37.    while(1)
    
38.    {
    
39.      play();
    
40.          delayms(1000);
    
41.    }
    
42. }
    

复制代码

所有资料51hei提供下载:
爱心灯.zip (99.1 KB, 下载次数: 39)

2019-6-22 15:29 上传

点击文件名下载附件
爱心灯
下载积分: 黑币 -5