DS1302三键4位1.5寸数码管时钟

1、说明：起初跑得不准确，将1302电容换成7p后准确度很好，没有具体的验证误差。不管怎么说，几个月和家里的石英表配合得很好。5v电源，亮度不高，适合室内使用。我的程序基本上是复制的，其中的秒用计时器模拟闪烁。老师请多多关照。原来给我看有角的7，让我修。第一名是0的时候也不能操作。希望大家多多纠正！随便赚两笔钱感谢姜顺曼老师的仔细批评和纠正，由于自己不够严格，引起了一些错误，已经在原文中改正，深表歉意！)，以获取详细信息首先，电路图：实物图表：爆炸图形：最后用c程序，不下载，拿没有米的东西，欢迎批评，砸钱。三节！/* * * * * * * * * * * * * * * * * * * * *

2、* * * * * * * * * * * * * *DS1302 4位数码管* * * * * * * * * * * * * * * * * * * * * * * * * * * * * */#include#define uchar unsigned char#define uint unsigned int# define p2/选择段#define D P0 /位选择sbit io=P1 1；/数据端口sbit SCLK=P1 2；/控制数据时钟sbit rst=P1 0；/能量端，重置端/* * * * * * * *键接脚定义* * * * * * * * * * * * *

3、*/sbit S1=P1 5；/键加sbit S2=P1 3；/减去键sbit S3=P1 4；/选择密钥sbit led=P1 7；/闪烁的小数点Uchar s，knum=0，snum，fnum位标志；/是定义了通常用作标志的位类型的变量flag只能使用0或1。/* * * * * * * * *写时的分钟地址* * * * * * * * * * * * * */#define write_shi0x84#define write_fen0x82#define write_miao0x80/* * * * * * * * *读取时间分钟地址* * * * * * * * * * * * *

4、 * */#define read_shi0x85#define read_fen0x83#define read_miao0x81位Miao _ flagChar miao _ numChar DmiaoChar shi、fen、miao/读取数据存储变量Uchard =0xxc0，0xf9，0xa4，0xb 0，0x99，0x92，0x82，0xd8，0x80，0x 90 ；/总数量，不带小数Uchardd =0x40，0x79，0xx24，0x30，0x19，0x12，0 x02，0x78，0x00，0x 10 ；/小数，总数Void delay(uint z) /延迟函数，z值是该函数

5、的延迟ms数，例如delay(200)。大约200毫秒延迟。/delay(500)；推迟大约500毫秒。Uint x、y；for(x=z；x0；X-)for(y=110；y0；y-)；void t0 _ init()/1个50毫秒封锁TMOD=0X01TH0=(65536-50000)/256；TL0=(65536-50000)% 6；EA=1；ET0=1；TR0=1；读取Uchar read_1302(uchar add) /函数Uchar i，dateRST=0；/禁止读取和写入数据for(I=0)；i8；I)RST=1；SCLK=0；IO=add0x01add=1；SCLK=1；for(

6、I=0)；i8；I)If(IO)Date=date |0x80ElseDate=date |0x00SCLK=1；date=1；SCLK=0；RST=0；date=date/16 * 10 date；/二进制转换16-10进制IO=0；/读取数据后，IO端口必须为0。否则，85将始终显示Return date写入Voidwrite _ 1302 (ucharadd，uchardat)/函数uchar I；RST=0；/禁止读取和写入数据SCLK=0；for(I=0)；i8；I )/地址写入RST=1；/允许读取和写入数据SCLK=0；IO=add0x01add=1；SCLK=1；for(I=0

7、)；i8；I )/数据写入RST=1；/允许读取和写入数据SCLK=0；IO=dat0x01dat=1；SCLK=1；RST=0；Void init_1302() /初始化函数设置时间flag=read _ 1302(0x 81)；If(flag0x80)Write_1302(0x8e，0x 00)；/取消保护，可以读写Write_1302(write_miao，0x 56)；Write_1302(write_fen，0x 49)；Write_1302(write_shi，0x 14)；Write_1302(0x90，0x a5)；Write_1302(0x8e，0x80)；/无法启动保护、读

8、取和写入操作Void display (ucharshi，ucharfen)/显示函数If(knum=0)Snum=30Fnum=30If(knum=1)调频；Snum=30If(knum=2)SnumFnum=30If(snum=30)W=0xF7/位选择S=d 小时/10；/段代码首先检查s以查看其值是否为零。If(s=0xc0)W=0xffD=0xffd=s；/s不为零时，提供d以显示delay(5)；D=0Xff/隐藏If(miao_flag) /小数点闪烁Miao _ flag=0；W=0xFbD=DD 小时；delay(5)；D=0Xff/隐藏ElseW=0xFbD=d 小时；de

9、lay(5)；D=0XffIf(snum=60)snum=0；If(fnum=30)W=0xFdd=dfen/10；delay(5)；D=0Xff/隐藏W=0xFed=dfen；delay(5)；D=0Xff/隐藏If(fnum=60)fnum=0；Void read_sf()Miao=read _ 1302(read _ Miao)；/*if(miao！=Dmiao)Dmiao=miaoTR0=1；Miao _ flag=1； */fen=read _ 1302(read _ fen)；Shi=read _ 1302(read _ Shi)；显示器(诗，芬)；Void keystrocan

10、()/密钥扫描函数按If(s3=0) /键选择delay(10)；If(s3=0)While(！S3)显示器(诗，芬)；/添加此句子，按键不会闪烁KnumIf(knum=1)/分钟闪烁Write_1302(0x8e，0x 00)；/取消保护Write_1302(write_miao，0x 80)；If(knum=3) /时钟开始knum=0；Write_1302(write_miao，0x 00)；Write_1302(0x8e，0x80)；/开始保护If(knum=1)/分钟调整If(s1=0) /加delay(10)；If(s1=0)While(！S1)显示器(诗，芬)；/添加此句子，按键

11、不会闪烁是钢笔；If(fen=60)fen=0；Write _ 1302 (write _ fen，fen/10 * 16fen)；/1302写入/read _ SF()；/读取和显示时间If(s2=0)delay(10)；If(s2=0)While(！S2)显示器(诗，芬)；/添加此句子，按键不会闪烁钢笔是-；If(fen=-1)Fen=59Write _ 1302 (write _ fen，fen/10 * 16fen)；read _ SF()；If(knum=2)If(s1=0)delay(10)；If(s1=0)While(！S1)显示器(诗，芬)；/添加此句子，按键不会闪烁诗歌；诗歌。If(shi=24)Shi=0；Write _ 1302 (write _ Shi，Shi/10 * 16shi)；read _ SF()；If(s2=0)delay(10)；If(s2=0)While(！S2)显示器(诗，芬)；/添加此句子，按键不会闪烁诗-；If(shi=-1)Shi=23Write _ 1302 (write _ Shi，Shi/10 * 16shi)；read _ SF()；Void main()init _ 1302()；t0 _ init()；While(1)if(miao