找回密码
 立即注册

QQ登录

只需一步,快速开始

搜索
查看: 1749|回复: 0
收起左侧

单片机万历表

[复制链接]
ID:405619 发表于 2018-11-30 16:44 | 显示全部楼层 |阅读模式
万历表(其中有两个程序,DS1302为测试程序,万历表程序为真正的程序)

单片机源程序如下:
  1. #include<reg52.h>
  2. #include"text.h"

  3. sbit LSA=P2^2;
  4. sbit LSB=P2^3;
  5. sbit LSC=P2^4;

  6. uchar num[]={0x3f,0x06,0x5b,0x4f,0x66,
  7.              0x6d,0x7d,0x07,0x7f,0x6f};
  8. uchar duanxuan[8];

  9. void delay(uint t)
  10. {
  11. while(--t);
  12. }

  13. void zhuanhua()
  14. {
  15. read_time();
  16. duanxuan[1]=num[Time[0]/16];
  17. duanxuan[0]=num[Time[0]&0x0f];
  18. duanxuan[2]=0x40;
  19. duanxuan[4]=num[Time[1]/16];
  20. duanxuan[3]=num[Time[1]&0x0f];
  21. duanxuan[5]=0x40;
  22. duanxuan[7]=num[Time[2]/16];
  23. duanxuan[6]=num[Time[2]&0x0f];
  24. }

  25. void xianshi()
  26. {
  27. uchar i;
  28. for(i=0;i<8;i++)
  29. {
  30.   switch(i)
  31.    {
  32.     case 0:
  33.      LSC=0,LSB=0,LSA=0;break;
  34.     case 1:
  35.      LSC=0,LSB=0,LSA=1;break;
  36.     case 2:
  37.      LSC=0,LSB=1,LSA=0;break;
  38.     case 3:
  39.      LSC=0,LSB=1,LSA=1;break;
  40.         case 4:
  41.      LSC=1,LSB=0,LSA=0;break;
  42.         case 5:
  43.      LSC=1,LSB=0,LSA=1;break;
  44.         case 6:
  45.      LSC=1,LSB=1,LSA=0;break;
  46.         case 7:
  47.      LSC=1,LSB=1,LSA=1;break;
  48.    }
  49.    P0=duanxuan[i];
  50.    delay(100);
  51.    P0=0x00;
  52. }
  53. }

  54. void main()
  55. {
  56. init();
  57. while(1)
  58. {
  59.   zhuanhua();
  60.   xianshi();
  61. }
  62. }
复制代码

所有资料51hei提供下载:
DS1302.zip (82.68 KB, 下载次数: 6)
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

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

Powered by 单片机教程网

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