设为首页收藏本站
开启辅助访问 切换到宽版

 找回密码
 立即注册

QQ登录

只需一步，快速开始

热门： 51单片机 | 24小时必答区 | 单片机教程 | 单片机DIY制作 | STM32 | Cortex M3 | 模数电子 | 电子DIY制作 | 音响/功放 | 拆机乐园 | Arduino | 嵌入式OS | 程序设计

搜索
»论坛 › 电子技术分类讨论区 › 资料共享 › 单片机音乐发生器 proteus仿真
返回列表 发新帖
查看: 1061|回复: 0
收起左侧

单片机音乐发生器 proteus仿真

[复制链接]
ID:782260 发表于 2021-3-26 13:34 | 显示全部楼层 |阅读模式
  1. #include <reg51.h>
  2. #include <string.h>
  3. #define uchar unsigned char
  4. #define uint unsigned int
  5. sbit SDA=P1^0;          //DS1302 数据线
  6. sbit CLK=P1^1;          //DSB1302 时钟线
  7. sbit RST=P1^2;          //DS1302 复位线
  8. sbit RS=P2^0;           //LCD 寄存器选择
  9. sbit RW=P2^1;          //LCD 读/写控制
  10. sbit EN=P2^2;          //LCD 启用
  11. sbit K1=P3^4;          //选择
  12. sbit K2=P3^5;          //加
  13. sbit K3=P3^6;          //减
  14. sbit K4=P3^7;          //确定
  15. uchar tCount=0;
  16. uchar dat;             //定义参数
  17. //一年中每个月的天数，二月的天数由年份决定
  18. uchar MonthsDays[]={31,0,31,30,31,30,31,31,30,31,30,31};
  19. //周日，周一到周六{0,1-6} [读取 DS1302 时分别是 1-7]
  20. uchar *WEEK[]={"SUN","MON","TUS","WEN","THU","FRI","SAT"};
  21. //LCD 显示缓冲
  22. uchar LCD_DSY_BUFFER1[]={"0019 00-00-00  "};
  23. uchar LCD_DSY_BUFFER2[]={"HWW   00:00:00 "};
  24. uchar DateTime[7]; //所读取的日期时间
  25. char Adjust_Index=-1;//当前调节的时间对象：秒，分，时，日，月，年(0,1,2,3,4,6)
  26. uchar Change_Flag[]="-MHDM-Y";
  27. //（分，时，日，月，年） （不调节秒周）
  28. //延时，向 DS1302 写、读一字节以及从 DS1302 指定位置度、写数据的程序
  29. //延时---------------------------------------------------
  30. void DelayMS(uint x)
  31. {
  32.   uchar i;
  33.   while(x--)  for(i=0;i<120;i++);
  34. }
  35. //向 DS1302 写入一个字节
  36. void Write_A_Byte_TO_DS1302(uchar x)
  37. {
  38.   uchar i;
  39.   for(i=0;i<8;i++)
  40.   {
  41.      SDA=x&1;CLK=1; CLK=0; x>>=1;
  42.   }
  43. }
  44. //从 DA1302 读取一字节---------------------------------------
  45. uchar Get_A_Byte_FROM_DS1302()
  46. {
  47.   uchar i,b,t;
  48.   for(i=0;i<8;i++)
  49.   {
  50.      b>>=1; t=SDA;b|=t<<7;CLK=1;CLK=0;
  51.   }
  52.   //BCD 码转换
  53.   return b/16*10+b%16;
  54. }
  55. //从 DS1302 指定的位置读数据--------------------------------------
  56. uchar Read_Data(uchar addr)
  57. {
  58.   uchar dat;
  59.   RST=0;CLK=0;RST=1;
  60.   Write_A_Byte_TO_DS1302(addr);
  61.   dat=Get_A_Byte_FROM_DS1302();
  62.   CLK=1;RST=0;
  63.   return dat;
  64. }
  65. // 向 DS1302 某地址写入数据-------------------------------------------
  66. void Write_DS1302(uchar addr,uchar dat)
  67. {
  68.   CLK=0;RST=1;
  69.   Write_A_Byte_TO_DS1302(addr);
  70.   Write_A_Byte_TO_DS1302(dat);
  71.   CLK=0;RST=0;
  72. }
  73. //-------------------------------------------
  74. //------设置时间-------------------------------------
  75. void SET_DS1302()
  76. {
  77. uchar i;
  78. Write_DS1302(0x8E,0x00); //写控制字，取消写保护
  79. for(i=1;i<7;i++) //分时日月年依次写入
  80. {
  81.   //分的起始地址 10000010（0x82）,后面续依次是时.日.月.周.年.写入地址每次递增 2  
  82.   Write_DS1302(0x80+ 2*i,(DateTime[i]/10<<4)|(DateTime[i]%10)); }
  83.   Write_DS1302(0x8E,0x80);//加保护
  84. }
  85. //---------------------------------------------------
  86. //读取当前日期时间
  87. //---------------------------------------------------
  88. void GetTime()
  89. {
  90.   uchar i;
  91.   for(i=0;i<7;i++)
  92.   {
  93.    DateTime[i]=Read_Data(0x81+2*i);
  94.   }
  95. }
  96. //---------------------------------------------------
  97. //1602LCD 的若干显示控制代码
  98. //uchar Read_LCD_State() 读 LCD 状态
  99. uchar Read_LCD_State()
  100. {
  101.   uchar state;
  102.   RS=0;RW=1;EN=1;DelayMS(1);state=P0;EN=0;DelayMS(1);
  103.   return state;
  104. }
  105. //void LCD_Busy_Wait() 忙等待

  107. void LCD_Busy_Wait()
  108. {
  109.   while((Read_LCD_State()&0x80)==0x80);
  110.   DelayMS(5);
  111. }
  112. //void  Write_LCD_Data(uchar dat) 向 LCD 写数据
  113. void Write_LCD_Data(uchar dat)
  114. {
  115.   LCD_Busy_Wait();
  116.   RS=1;RW=0;EN=0;P0=dat;EN=1;DelayMS(1);EN=0;
  117. }
  118. //void  Write_LCD_Command(uchar cmd) 写 LCD 指令
  119. void  Write_LCD_Command(uchar cmd)
  120. {
  121.   LCD_Busy_Wait();
  122.   RS=0;RW=0;EN=0;P0=cmd;EN=1;DelayMS(1);EN=0;
  123. }
  124. // Void  Init_LCD()  LCD 初始化
  125. void  Init_LCD()
  126. {
  127.   Write_LCD_Command(0x38);DelayMS(1);
  128.   Write_LCD_Command(0x01);DelayMS(1);
  129.   Write_LCD_Command(0x06);DelayMS(1);
  130.   Write_LCD_Command(0x0c);DelayMS(1);
  131. }
  132. //void Set_LCD_POS(uchar P) 设置液晶显示位置
  133. void Set_LCD_POS(uchar p)
  134. {
  135.   Write_LCD_Command(p|0x80);
  136. }
  137. //------------------------------------------------------
  138. //在 LCD 上显示字符串
  139. void Display_LCD_String(uchar p,uchar *s)
  140. {
  141.   uchar i;
  142.   Set_LCD_POS(p);
  143.   for(i=0;i<16;i++)
  144.   {
  145.   Write_LCD_Data(s[i]); DelayMS(1);
  146.   }
  147. }
  148. //-----------------------------------------------------------
  149. //日期与时间值转换为数字字符
  150. void Format_DateTime(uchar d,uchar *a)
  151. {
  152.   a[0]=d/10+'0';a[1]=d%10+'0';
  153. }
  154. //----------------------------------------------------------
  155. //判断是否为闰年
  156. uchar isLeapYear(uint y)
  157. {
  158.   return(y%4==0&y%100!=0)||(y%400==0);
  159. }
  160. //-----------------------------------------------------------
  161. //求自 2000.1.1 开始的任何一天是星期几
  162. //函数没有通过,求出总天数后再求星期几
  163. //因为求总天数可能会超越 uint 的范围
  164. void RefreshWeekDay()
  165. {  
  166.   uint i,d,w=5;
  167.   //已知 1999.12.31 是周五
  168.   for(i=2000;i<2000+DateTime[6];i++)
  169.   {
  170.         d=isLeapYear(i)?366:365;
  171.         w=(w+d)%7;
  172.   }
  173. d=0;
  174. for(i=1;i<DateTime[4];i++) d+=MonthsDays[i];
  175. d+=DateTime[3];
  176. //保存星期,0~6 表示星期日至周六,为了与DS1302 的星期格式匹配,返回值需要加 1 DateTime[5]=(w+d)%7+1;
  177. }
  178. //----------------------------------------------------------
  179. void DateTime_Adjust(char x)
  180. {
  181.   switch(Adjust_Index)
  182.   {
  183.     case 6://年 00-99
  184.          if(x==1&DateTime[6]<99) DateTime[6]++;
  185.          if(x==-1&DateTime[6]>0) DateTime[6]--;
  186.          //获取 2 月天数
  187.          MonthsDays[2]=isLeapYear(2000+DateTime[6])?29:28;
  188.          //如果年份变化后当前月份的天数大于上限则设为上限
  189.          if(DateTime[3]>MonthsDays[DateTime[4]])
  190.          DateTime[3]=MonthsDays[DateTime[4]]; RefreshWeekDay();
  191.          //刷新星期
  192.         break;
  193.     case 4:
  194.         //月 01-12
  195.         if(x==1&DateTime[4]<12)  DateTime[4]++;
  196.         if(x==-1&DateTime[4]>1)  DateTime[4]--;
  197.         //获取 2 月天数
  198.          MonthsDays[2]=isLeapYear(2000+DateTime[6])?29:28;
  199.          //如果月份变化后当前月份的天数大于上限则设为上限
  200.          if(DateTime[3]>MonthsDays[DateTime[4]])
  201.          DateTime[3]=MonthsDays[DateTime[4]];
  202.          RefreshWeekDay();
  203.          //刷新星期
  204.          break;
  205.         case 3://日00-28/29/30/31;调节之前首先根据年份得出该年中2月的天数        
  206.               MonthsDays[2]=isLeapYear(2000+DateTime[6])?29:28;
  207.           //根据当前月份决定调节日期的上限
  208.           if(x==1&DateTime[3]<MonthsDays[DateTime[4]])  DateTime[3]++;
  209.           if(x==-1&DateTime[3]>0)  DateTime[3]--;
  210.           RefreshWeekDay();//刷新星期
  211.           break;
  212.     case 2://时
  213.           if(x==1&DateTime[2]<23) DateTime[2]++;
  214.           if(x==-1&DateTime[2]>0) DateTime[2]--;
  215.           break;
  216.     case 1://分
  217.           if(x==1&DateTime[1]<59)  DateTime[1]++;
  218.           if(x==-1&DateTime[1]>0)  DateTime[1]--;
  219.           break;
  220.   }
  221. }
  222. //---------------------------------------------------------
  223. //定时器 0 每秒刷新 LCD 显示
  224. void T0_INT() interrupt 1
  225. {
  226.   TH0=-50000/256;
  227.   TL0=-50000%256;
  228.   if(++tCount!=2) return;
  229.   tCount=0;
  230.   //按指定的格式生成待显示的日期时间串
  231.   Format_DateTime(DateTime[6],LCD_DSY_BUFFER1+5);   
  232.   Format_DateTime(DateTime[4],LCD_DSY_BUFFER1+8);   
  233.   Format_DateTime(DateTime[3],LCD_DSY_BUFFER1+11);
  234.   //星期 strcpy(LCD_DSY_BUFFER1+13,WEEK[DateTime[5]-1]);
  235.   //时分秒
  236.   Format_DateTime(DateTime[2],LCD_DSY_BUFFER2+5);   
  237.   Format_DateTime(DateTime[1],LCD_DSY_BUFFER2+8);  
  238.   Format_DateTime(DateTime[0],LCD_DSY_BUFFER2+11);
  239.   //显示年月日，星期，时分秒
  240.   Display_LCD_String(0x00,LCD_DSY_BUFFER1);  
  241.   Display_LCD_String(0x40,LCD_DSY_BUFFER2);
  242. }
  243.   //---键盘中断（INT0）-----------------------------------------
  244. void EX_INT0() interrupt 0
  245. {
  246.   if(K1==0) //选择调整对象（Y M D H M）
  247.   {
  248.     while(K1==0);
  249.         if(Adjust_Index==-1||Adjust_Index==1) Adjust_Index=7;
  250.         Adjust_Index--;
  251.     if(Adjust_Index==5) Adjust_Index=4;//跳过对星期的调节
  252.     LCD_DSY_BUFFER2[13]='[';
  253.     LCD_DSY_BUFFER2[14]=Change_Flag[Adjust_Index];
  254.         LCD_DSY_BUFFER2[15]=']';
  255.         }
  256.         else if(K2==0)//加
  257.    {
  258.      while(K2==0); DateTime_Adjust(1);
  259.    }
  260.    else if(K3==0)//减
  261.    {
  262.      while(K3==0); DateTime_Adjust(-1);
  263.    }
  264.    else if(K4==0)//确定
  265. {
  266.   while(K4==0); SET_DS1302(); //将调整后的时间写入 1302
  267.   LCD_DSY_BUFFER2[13]=' ';
  268.   LCD_DSY_BUFFER2[14]=' ';
  269.   LCD_DSY_BUFFER2[15]=' ';
  270.   Adjust_Index=-1;
  271. //操作索引重设为-1，时间继续正常显示
  272. }
  273. }
  274. //---------------------------------------------------------------
  275. //主程序 void main()
  276. void main()
  277. {
  278.   Init_LCD();//液晶初始化
  279.   IE=0x83; //允许INT0,T0中断
  280.   IP=0x01;
  281.   IT0=0x01;
  282.   TMOD=0x01;
  283.   TH0=-50000/256;
  284.   TL0=-50000%256;
  285.   TR0=1;
  286.   while(1)
  287.   {
  288.   //如果为执行调整操作则正常读取当前时间
  289.   if(Adjust_Index==-1) GetTime();
  290.   }
  291. }
复制代码

新建 WinRAR 压缩文件.rar

14.79 KB, 下载次数: 5, 下载积分: 黑币 -5

回复

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

手机版|小黑屋|51黑电子论坛 |51黑电子论坛6群 QQ 管理员QQ:125739409;技术交流QQ群281945664

Powered by 单片机教程网

快速回复 返回顶部 返回列表