LED显示电脑电子钟
本例介绍一种用LED制作的电脑电子钟（电脑万年历）。其制作完成装潢后的照片如下图：
上图中，年、月、日及时间选用的是1．2寸共阳数码管，星期选用的是2．3寸数码管，温度选用的是0．5寸数码管，也可根据个人的爱好选用不同规格的数码管。原理图如下图所示：
上图中，CPU选用的是AT89C2051，时钟芯片选用的是Dallas公司的DS1302， 温度传感器选用的是Dallas公司的数字温度传感器DS1820，显示驱动芯片选用的是德州仪器公司的TPIC6B595，也可选用与其兼容的芯片NC595或 国产的AMT9595。整个电子钟用两个键来调节时间和日期。一个是位选键，一个是数字调节键。按一下位选键，头两位数字开始闪动，进入设 定调节状态，此时按数字调节键，当前闪动位的数字就可改变。
LED驱动器芯片请查看：http://www.elecfans.com/soft/special/lighting/
全部参 数调节完后，五秒钟内没有任何键按下，则数字停止闪动，退出设定调节状态。源程序清单如下(无温度显示程序）：
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)；/*字节写过程*/
评论