单片机应用实例：LED显示电脑电子钟

本例介绍一种用LED制作的电脑电子钟（电脑万年历）。其制作完成装潢后的照片如下图：

图片

上图中，年、月、日及时间选用的是1.2寸共阳数码管，星期选用的是2.3寸数码管，温度选用的是0.5寸数码管，也可根据个人的爱好选用不同规格的数码管。原理图如下图所示：

图片

上图中，CPU选用的是AT89C2051,时钟芯片选用的是Dallas公司的DS1302,温度传感器选用的是Dallas公司的数字温度传感器DS1820，显示驱动芯片选用的是德州仪器公司的TPIC6B595,也可选用与其兼容的芯片NC595或国产的AMT9595。整个电子钟用两个键来调节时间和日期。一个是位选键，一个是数字调节键。按一下位选键，头两位数字开始闪动，进入设定调节状态，此时按数字调节键，当前闪动位的数字就可改变。全部参数调节完后，五秒钟内没有任何键按下，则数字停止闪动，退出设定调节状态。

源程序清单如下（无温度显示程序）：

start:do;$include（reg51.dcl）declare （sclk,io,rst） bit at （0b3h） register; /* p33,p34,p35 */declare （command,data,n,temp1,num） byte;declare a（9） byte;declare ab（6） byte;declare aco（11） byte constant （0fdh,60h,0dah,0f2h,66h,0b6h,0beh,0e0h,0feh,0f6h,00h）；declare week（11） byte constant （0edh,028h,0dch,7ch,39h,75h,0f5h,2ch,0fdh,7dh,00h）；declare da literally 'p15',clk literally 'p16',ale literally 'p17',mk literally 'p11',sk literally 'p12';clear:procedure;sclk=0;io=0;rst=0;end clear;send1302:procedure（comm）；declare （i,comm） byte;do i=0 to 7;comm=scr（comm,1）；io=cy;call time（1）；sclk=0;call time（1）；sclk=1;end;end send1302;wbyt1:procedure（com,dat）；/*字节写过程*/declare （com,dat） byte;call clear;rst=1;call send1302（com）；call send1302（dat）；call clear;end wbyt1;wbyt8:procedure;/*时钟多字节突发模式写过程*/declare j byte;call clear;a（7）=A（6）；a（6）=a（0）；rst=1;call send1302（command）；do j=1 to 8;call send1302（a（j））；end;call clear;end wbyt8;RBYT1:PROCEDURE;DECLARE I BYTE;CALL CLEAR;RST=1;call send1302（0c1h）；IO=1;DO I=0 TO 7;SCLK=1;SCLK=0;CY=IO;N=SCR（N,1）；END;A（8）=N;CALL CLEAR;END RBYT1;send595:procedure;declare k byte;do k=0 to 7;data=scr（data,1）；da=cy;clk=1;clk=0;end;end send595;send595_1:procedure;declare k byte;do k=0 to 7;data=scr（data,1）；da1=cy;clk1=1;clk1=0;end;end send595_1;rb1:procedure（abc,j）；DECLARE （I,j,abc） BYTE;CALL CLEAR;RST=1;call send1302（abc）；IO=1;DO I=0 TO 7;SCLK=1;SCLK=0;CY=IO;N=SCR（N,1）；END;ab（j）=N;ab（j）=dec（ab（j））；CALL CLEAR;end rb1;rbyt6:procedure;call rb1（0f1h,0）；call rb1（0f3h,1）；call rb1（0f5h,2）；call rb1（0f7h,3）；call rb1（0f9h,4）；call rb1（0fbh,5）；call rb1（0fdh,6）；end rbyt6;wbyt6:procedure;call wbyt1（8eh,0）；/* write enable */call wbyt1（0f0h,ab（0））；call wbyt1（0f2h,ab（1））；call wbyt1（0f4h,ab（2））；call wbyt1（0f6h,ab（3））；call wbyt1（0f8h,ab（4））；call wbyt1（0fah,ab（5））；call wbyt1（0fch,ab（6））；call wbyt1（8eh,80h）；/* write disable */end wbyt6;rbyt8:procedure;/*时钟多字节突发模式读过程*/declare （i,j） byte;call clear;rst=1;call send1302（command）；io=1;do j=1 to 8;do i=0 to 7;sclk=1;call time（1）；sclk=0;cy=io;n=scr（n,1）；end;a（j）=n;end;call clear;a（0）=a（6）；a（6）=A（7）；a（0）=a（0） and 0fh;if a（0）>6 then a（0）=0;CALL RBYT1;if （a（1）=0 and a（2）=0 and a（3）=0） thendo;do num=0 to 35;call time（250）；end;temp1=1;end;if temp1=1 thendo;temp1=0;ab（4）=ab（4）+1;if ab（4）>99h thendo;ab（4）=0;ab（5）=ab（5）+1;if ab（5）>99h then ab（5）=0;end;call wbyt6;end;end rbyt8;display:procedure; /*jieya,yima,fasong*/declare （i,n,m） byte;n=a（0） and 0fh; /* send week */data=week（n）；call send595;n=a（4）；/* send date */n=n and 0fh;data=aco（n）；call send595;n=a（4）；n=shr（n,4）；data=aco（n）；call send595;do i=1 to 3; /* send second,minute,hour */n=a（i）；n=n and 0fh;data=aco（n）；call send595;n=a（i）；n=shr（n,4）；data=aco（n）；call send595;end;do i=5 to 6; /* send month,year */n=a（i）；n=n and 0fh;data=aco（n）；call send595;n=a（i）；n=shr（n,4）；data=aco（n）；call send595;end;n=a（8）；/* send 19 or 20 */n=n and 0fh;data=aco（n）；call send595;n=a（8）；n=shr（n,4）；data=aco（n）；call send595;do m=0 to 5;n=ab（m）；n=n and 0fh;data=aco（n）；call send595_1;n=ab（m）；n=shr（n,4）；data=aco（n）；call send595_1;end;ale=0;ale=1;end display;beginset:procedure;a（0）=06h;a（1）=58h;a（2）=59h;a（3）=23h;a（4）=30h;a（5）=06h;a（6）=97h;a（7）=00;a（8）=19h; /* set date/time （1997,7,1,8:00:00,week 3） */call wbyt1（8eh,0）；/* write enable*/call wbyt1（80h,00h）；/* start colock */call wbyt1（0beh,0abh）；/*两个二极管与8K电阻串联充电*/command=0beh; /* write colock/date */call wbyt8;call wbyt1（0c0h,a（8））；call wbyt1（8eh,80h）；/* set write protect bit */end beginset;key:procedure;declare （i,time1,k1,tem） byte;call time（100）；k1=7;time1=30;if mk=0 thendo;do while time1>0;week: if k1=0 thendo;do i=0 to 5;/* call hz（a（0））；*/end;do i=0 to 3;/* call hz0; */end;end;tem=a（k1）；if k1=7 then tem=a（8）；a（k1）=0aah;if k1=7 then a（8）=0aah;call display;call time（254）；call time （254）；a（k1）=tem;if k1=7 then a（8）=tem;call display;call time（254）；call time（254）；call time（254）；time1=time1-1;if mk=0 thendo;call time（100）；/*MOD KEY PROCESS*/TIME1=30;IF MK=0 THENDO;k1=k1-1;DO WHILE K1=0FFH;K1=7;END;END;end;IF SK=0 THENDO;CALL TIME（100）；/*SET KEY PROCESS*/TIME1=30;IF SK=0 THENDO;tem=tem+1;tem=dec（tem）；DO CASE K1;DO WHILE tem=7;/*week*/tem=0;END;DO WHILE tem=60H;/*scond*/tem=0;END;DO WHILE tem=60H;/*minute*/tem=0;END;DO WHILE tem=24H;/*hour*/tem=0;END;DO WHILE tem=32H;/*date*/tem=1;END;DO WHILE tem=13H;/*month*/tem=1;END;DO while tem=100h; /* YEAR */tem=00;END;DO WHILE TEM>=21H;tem=19H;END;END;A（K1）=tem;if k1=7 then a（8）=tem;END;END;END;END;end key;main$program:mk=1;sk=1;temp1=0;num=0;p32=1;if sk=0 then call beginset;clk=0;da=0;ale=1;loop:do while mk=1 ;if a（0）>6 then a（0）=0;command=0bfh;call rbyt8;call display;do while mk=0;call key;call wbyt1（8eh,0）；command=0beh;call wbyt8;call wbyt1（0C0H,A（8））；call wbyt1（8eh,80h）；end;end;goto loop;end start;

本文来自互联网用户投稿，该文观点仅代表作者本人，不代表本站立场。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如若转载，请注明出处：http://www.mzph.cn/news/233541.shtml

如若内容造成侵权/违法违规/事实不符，请联系多彩编程网进行投诉反馈email:809451989@qq.com，一经查实，立即删除！

相关文章

饥荒Mod 开发(十七)：手动保存和加载，无限重生

饥荒Mod 开发(十七)：手动保存和加载，无限重生

饥荒Mod 开发(十六)：五格装备栏 饥荒游戏会自动保存，本来是一个好的机制，但是当角色死亡的时候存档会被删除，又要从头开始，有可能一不小心玩了很久的档就直接给整没了，又或者是打怪没爆好东西， …
阅读更多...
LVS最终奥义之DR直接路由模式

LVS最终奥义之DR直接路由模式

1 LVS-DR(直接路由模式) 1.1 LVS-DR模式工作过程 1.客户端通过VIP将访问请求报文（源IP为客户端IP，目标IP为VIP）发送到调度器 2.调度器通过调度算法选择最适合的节点服务器并重新封装数据报文（将源mac地址改为调度器的mac地址&am…
阅读更多...
redis基本用法学习（字符串类型基本操作）

redis基本用法学习（字符串类型基本操作）

字符串类型是redis支持的最简单的数据类型，同时最简单的键值对类型也是key和value都是单个字符串，本质上就是字符串之间的相互映射，redis官网String类型简介页面提到可以用于缓存HTML片段或页面内容。   redis支持设置/获取单个键值对&…
阅读更多...
机器学习 | 集成学习

机器学习 | 集成学习

团结就是力量！ Ensemble Learning 兼听则明，偏信则暗。 集成学习既是一种思想也是一类算法，它是建立在其他机器学习的算法之上，研究怎么让不同的算法之间进行协同。 既可以监督学习，也可以无监督学习。 集成学习用机器…
阅读更多...
使用Gensim训练Word2vec模型

使用Gensim训练Word2vec模型

1、训练Gensim模型 import gensim # gensim 4.3.2 import jieba import re import warnings import logging warnings.filterwarnings(ignore)with open("dataset/sanguo.txt", r,encodingutf-8)as f: # 读入文本，此处使用的是三国演义，可自…
阅读更多...
飞天使-k8s-知识点1-kubernetes架构简述

飞天使-k8s-知识点1-kubernetes架构简述

文章目录 名词功能要点 k8s核心要素CNCF 云原生框架简介k8s组建介绍 名词 CI 持续集成, 自动化构建和测试：通过使用自动化构建工具和自动化测试套件，持续集成可以帮助开发人员自动构建和测试他们的代码。这样可以快速检测到潜在的问题，并及早…
阅读更多...
maven仓库导入jar和mvn命令汇总

maven仓库导入jar和mvn命令汇总

目录 导入远程仓库 命令结构 命令解释 项目pom 输入执行 本地仓库导入 命令格式 命令解释 Maven命令汇总 mvn 参数 mvn常用命令 web项目相关命令 导入远程仓库 命令结构 mvn deploy:deploy-file -Dfilejar包完整名称 -DgroupIdpom文件中引用的groupId名 -Dartifa…
阅读更多...
uniapp-安卓APP开发时使用手机调试

uniapp-安卓APP开发时使用手机调试

调试 1. 手机打开开发者模式: 华为手机举列-->设置-->关于手机-->版本号，多次连续点击“版本号”，就会提示已打开开发者模式 2. 华为手机举列-->设置-->系统和更新-->开发人员选项-->打开 USB调试，进入调试模式 3. 先…
阅读更多...
Next.js 学习笔记（四）——数据获取

Next.js 学习笔记（四）——数据获取

数据获取 数据获取、缓存和重新验证 数据获取是任何应用程序的核心部分。本页介绍如何在 React 和 Next.js 中获取、缓存和重新验证数据。 有四种方法可以获取数据： 在服务器上，使用 fetch在服务器上，使用第三方库在客户端上，…
阅读更多...
人工智能中不可预测的潜在错误可能是灾难性的——数学解释

人工智能中不可预测的潜在错误可能是灾难性的——数学解释

一、说明 有没有人研究评估AI的错误产生的后果有多么严重，是否存在AI分险评估机制？更高维度上，人工智能的未来是反乌托邦还是乌托邦？这个问题一直是争论的话题，各大阵营都支持。我相信我们无法准确预测这两种结果。这是…
阅读更多...
el-form与el-upload结合上传带附件的表单数据（前端篇）

el-form与el-upload结合上传带附件的表单数据（前端篇）

1.写在之前 本文前端采用Vue element-plus技术栈，前端项目参考yudao-ui-admin-vue3项目与Geeker-Admin项目。 这篇文章是el-form与el-upload结合上传带附件的表单数据（后端篇）-CSDN博客姐妹篇，后端篇文章主要讲的是后端的实现逻…
阅读更多...
ROS学习笔记(七)---参数服务器

ROS学习笔记(七)---参数服务器

ROS学习笔记文章目录 01. ROS学习笔记(一)—Linux安装VScode 02. ROS学习笔记(二)—使用 VScode 开发 ROS 的Python程序（简例） 03. ROS学习笔记(三)—好用的终端Terminator 04. ROS学习笔记(四)—使用 VScode 启动launch文件运行多个节点 05. ROS学习笔…
阅读更多...
vscode颜色主题插件one dark Pro安装

vscode颜色主题插件one dark Pro安装

1.点击扩展图标→搜索“one dark Pro”→第一个点击安装 2.安装成功后，不要忘了点击设置颜色主题 3.看下效果：
阅读更多...
MySQL数据库：表的约束

MySQL数据库：表的约束

目录 一. 空属性null 二. 默认值default 三. 列描述comment 四. 填充零zerofill 五. 主键primary key 六. 自增长auto_increment 七. 唯一键unique 八. 外键foreign key 一. 空属性null 对于表中的数据，如果在进行插入的时候不显示地给定值，那么…
阅读更多...
vp与vs联合开发-通过FrameGrabber连接相机

vp与vs联合开发-通过FrameGrabber连接相机

添加控件 1.CogRecordDisplay 控件 用于显示图像 初始化相机对象方法 //启动窗体时 调用初始化相机方法 //封装相机关闭方法 //窗体关闭时 调用相机关闭方法 拍照 设置采图事件 // 保存图像 设置曝光按钮事件 1.可变参数
阅读更多...
css实现0.5px宽度/高度显——属性： transform: scale

css实现0.5px宽度/高度显——属性： transform: scale

在大多数设备上，实际上无法直接使用 CSS 来精确地创建 0.5 像素的边框。因为大多数屏幕的最小渲染单位是一个物理像素，所以通常只能以整数像素单位渲染边框。但是，有一些技巧可以模拟出看起来像是 0.5 像素的边框。 这里介绍使用&#xff1a…
阅读更多...
云原生系列2-GitLab和Jenkins

云原生系列2-GitLab和Jenkins

1、GitLab类似github，是个私有仓库 1、GitLab安装，至少8G内存4核cpu # 查找Gitlab镜像 docker search gitlab/gitlab-ce # gitlab镜像拉取 docker pull gitlab/gitlab-ce # 查看镜像 docker images # 本机先建3个目录，为了gitlab容器通过挂…
阅读更多...
新增工具箱管理功能、重构网站证书管理功能，1Panel开源面板v1.9.0发布

新增工具箱管理功能、重构网站证书管理功能，1Panel开源面板v1.9.0发布

2023年12月18日，现代化、开源的Linux服务器运维管理面板1Panel正式发布v1.9.0版本。 在这一版本中，1Panel引入了新的工具箱管理功能，包含Swap分区管理、Fail2Ban管理等功能。此外，1Panel针对网站证书管理功能进行了全面重构&…
阅读更多...
【数据结构】迷宫问题报告+源码C/C++

【数据结构】迷宫问题报告+源码C/C++

之前帮别人写的一个报告，是关于栈的迷宫问题。内容不多，代码在最后。分享给大家，喜欢可以点赞关注。原创无偿分享，勿商用。 迷宫求解 设计目的 仅认识到栈是一种特殊的线性表是远远不够的，本次实习的目的在于使学生…
阅读更多...
【Linux基础】3. 文件基本属性

【Linux基础】3. 文件基本属性

文章目录 【 1. 文件的属主和属组 】【 2. 显示文件的类型、权限 】2.1 文件类型2.2 文件权限 【 3. 更改文件属性 】3.1 chgrp 更改文件属组3.2 chown 更改文件所有者3.3 更改文件权限3.3.1 数字法更改文件权限3.3.2 符号法更改文件权限 【 1. 文件的属主和属组 】 Linux 系统…
阅读更多...
推荐文章
最新文章

Copyright @ 2022~2023