采用AT89C2051制作的智能时钟一、智能电子钟的功能1、全日历计时。
2、12/24小时转换。
3、8路定时输出（可关/开控制）4、误差：15S+1uS5、大、小月，润年，周，自动追踪二、调校上电后，电子钟显示“1：00”。
1、8路定时时间查询按下K1键依此显示8路定时时间。
星期位显示：“H”表示：打开当前定时输出；“L” 表示：关闭当前定时输出。
此时按K2键可进行“H”、“L”的切换。
所有输出，均由蜂鸣器输出！2、显示状态的控制按下K2键可进入以下工作状态：1）12小时/ 日月交替显示。
2）12小时固定显示。
3）24小时/ 日月交替显示。
4）24小时固定显示。
3、校时按下K2键3S后，进入校时菜单。
按下K1键依次进入校时状态：分、时、天、月、年、微调系数。
此时按K2键，完成+1。
当显示“d”时，表示要调整微调系数（0-99），其值越小，时钟走时越慢。
当使用的6MHz的晶振偏差大时，应仔细调整微调系数！当显示“out”时，按K2键，即可退出！退出后，按任意键即可启动时钟。
4、设置定时时间按下K1键3S后，进入设置菜单。
按下K1键依次进入8路定时调整状态：时、分。
此时按K2键，完成+1。
当显示“out”时，按K2键，即可退出！三、原理图和PCB图下一页AT89C2051的智能时钟单片机源程序以下为AT89C2051的智能时钟的内部程序;2001.5.24;***************;all_clk1 _program 2000-10-12;***************fl_250ms bit 00hfl_500ms bit fl_250ms+1set_clk_f bit fl_500ms+1set_al4_f bit set_clk_f+1am_f bit set_al4_f+1fl_3s bit am_f+1al1_f bit fl_3s+1al2_f bit fl_3s+2al4_f bit fl_3s+4set_over bit al4_f+1ha_f bit set_over+1ha_over bit ha_f+1fl_ms_f bit ha_over+1fl_s_f bit fl_ms_f+1key_over bit fl_s_f+1;************************************************** key_data equ 08htimers equ key_data+1t_30ms equ timers+1t_20ms equ t_30ms+1t_1s equ t_20ms+1k1_data equ t_1s+1k2_data equ k1_data+1stat_work equ k2_data+1stat_led equ stat_work+1t_1ms equ stat_led+1t_20m equ t_1ms+1beep equ t_20mal1 equ beep+1al2 equ beep+2al3 equ beep+3al4 equ beep+4al5 equ beep+5al6 equ beep+6al7 equ beep+7al8 equ beep+8ret_timer equ al8+1;************************************************** sec equ 23hmin equ sec+1hhour equ min+1hday equ hour+1hmon equ day+1hyear equ mon+1hw_adj equ year+1hweek equ w_adj+1h;***************************************al1_h equ week+1hal1_m equ al1_h+1hal2_h equ al1_m+1hal2_m equ al2_h+1hal3_m equ al3_h+1hal4_h equ al3_m+1hal4_m equ al4_h+1hal5_h equ al4_m+1hal5_m equ al5_h+1hal6_h equ al5_m+1hal6_m equ al6_h+1hal7_h equ al6_m+1hal7_m equ al7_h+1hal8_h equ al7_m+1hal8_m equ al8_h+1hbeep_t equ al8_m+1frist equ beep_t+1;**************************************led1 equ frist+1led2 equ led1+1led3 equ led2+1led4 equ led3+1led5 equ led4+1sp_data equ led5+1;**************************************led_1 bit p3.5led_2 bit p3.4led_3 bit p3.3led_4 bit p3.2led_5 bit p3.1beep_f BIT P3.7key_f bit p3.0;******************************************************** t_h_100ms equ 05dh ;100 ms for 6MHzt_l_100ms equ 07fh ;c6 for 100mstimer_no equ 8d ;3c90+30d=3cb0hw_adj_dat equ 50dkey_da equ 00000110b;********************************************************* blk_led equ 20ddot_led equ 21df_led equ 22dn_led equ 23du_led equ 24dt_led equ 25db_led equ 26dd_led equ 27doRG 0000H; ;sJMP startORG 0003H; ;reti;ORG 000BH ;;ajmp t0reti ;ORG 0013Hreti ;ORG 001BH ;aJMP T1 ;ORG 0023H ;RETI; AJMP RS_485 ;;************************************** start:call clr_ramMOV SP,#sp_data ;call int_t0call timer_intcall timer_20msSTAR_BI:call clockcall week_autocall al_outCALL KEY_bordcall key_delcall set_clk_alcall key_jmpcall rebackcall led_jmpsjmp star_bi;******************************************* reback:mov a,stat_workjz reback_endjb al1_f ,ka1mov ret_timer,secsetb al1_fsjmp reback_endka1:mov a,ret_timeradd a,#05dmov b,#60ddiv abmov a,seccjne a,b,reback_endclr al1_fmov stat_work,#00d reback_end:retkey_jmp:mov a,key_datajz key_jmp_endmov ret_timer,seccjne a,#01d,kk1mov a,stat_workinc a ;k1_keycjne a,#9d,kka1mov a,#00dkka1:mov stat_work ,asjmp key_jmp_endkk1:mov a,stat_work ;k2_key jnz kk2mov a,stat_ledinc acjne a,#05d,kka2mov a,#00dkka2:mov stat_led,asjmp key_jmp_endkk2:acall all1cpl amov @r0,akey_jmp_end:retall1:mov r0,#al1mov a,stat_workdec aadd a,r0mov r0,amov a,@r0retled_jmp:;**********************************;mov stat_work,#01d;mov stat_tw,#01dmov a,stat_workjnz led_al1mov a,stat_ledacall led_t_dmov led1,weeksjmp led_jmp_endled_al1:acall all1mov led1,#f_ledjnz le_t2mov led1,#n_ledle_t2:jb fl_250ms ,le_t4mov led1,#blk_ledle_t4:acall al_ledled_jmp_end:acall ledret;*************************************time_24:mov a,houracall bcd_8mov led2,ajnz tim4mov led2,#blk_ledtim4:mov led3,bjb fl_500ms,tim1mov a,badd a,#10dmov led3,atim1:acall led_mintime_12_end:ret;***********************************led_min:mov a,minacall bcd_8jb fl_500ms ,tim2add a,#10dtim2:mov led4,amov led5,bret;*************************************date_led:mov a,monacall bcd_8mov led2,ajnz da1mov led2,#blk_ledda1:mov a,badd a,#10dmov led3,amov a,dayacall bcd_8mov led4,ajnz da2mov led4,#blk_ledda2:mov led5,bdate_led_end:ret;*************; D_8=>BCD;*************BCD_8:MOV B,#10DDIV ABRET;**************************************** LED:mov p1,#0mov dptr,#led_asc;***************************led1 mov a,led1movc a,@a+dptrmov p1,aclr led_1acall timer_1msacall timer_1ms;acall timer_1ms;acall timer_1ms;acall timer_1mssetb led_1;*************************led2 led_led2:mov a,led2movc a,@a+dptrmov p1,aclr led_2acall timer_1mssetb led_2;*************************led3 led_led3:mov a,led3movc a,@a+dptrmov p1,aclr led_3acall timer_1mssetb led_3;*************************led4 led_led4:mov a,led4movc a,@a+dptrmov p1,aclr led_4acall timer_1mssetb led_4;*************************led5 led_led5:mov a,led5movc a,@a+dptrmov p1,aclr led_5acall timer_1mssetb led_5;*************************led_end:mov p1,#0ret;************************************ ; bafhcdegled_asc:db 11101110B;0db 10001000B;1db 11000111B;2db 11001101B;3db 10101001B;4db 01101101B;5db 01101111B;6db 11001000B;7db 11101111B;8db 11101101B;9db 11111110B;0. =>10ddb 10011000B;1.db 11010111B;2.db 11011101B;3.db 10111001B;4.db 01111101B;5.db 01111111B;6.db 11011000B;7.db 11111111B;8.db 11111101B;9.DB 00000000B;BLACK=>20dDB 00010000B;dot=>21dDB 00100110b;l=>22ddB 10101011B;h=>23dDB 10101110B;u=>24dDB 00100111B;t=>25ddB 00101111B;b=>26ddB 10001111B;d=>27d; bafhcdeg;********************************** ;delay;******************************** timer_1ms:mov t_1ms,#030hr2_1:djnz t_1ms , r2_1rettimer_20ms:mov t_20m,#050dr2_2:call clockcall leddjnz t_20m , r2_2call week_autocall al_outret;############################################# ;if mon<=2 and year=4Z(0,1,2,3...);gs1=>week=mod([5/4]*year+mon_asc(mon)+day-1)/7 ;else; gs2=>week=mod([5/4]*year+mon_asc(mon)+day)/7 week_auto:mov a,YEARmov b,#05mul abmov r4,bmov r5,amov r7,#04call mul_2MOV DPTR,#MON_ASCMOV A,MONdec aMOVC A,@A+DPTRADD A,r3;*********************MOV B,DAYADD A,Bmov r3,a;r3=gs2;*******jb mon<=2 ******MOV A,MONCJNE A,#02D,WEEK_1SJMP WEEK_2WEEK_1:JC WEEK_2week_3:mov b,#07div abmov a,bsjmp week_4WEEK_2:;*****jb year=4N ******mov a,yearmov b,#04div abmov a,bjnz week_3mov a,r3dec amov b,#07div abmov a,bweek_4:MOV WEEK,ajnz week_endmov week,#07hweek_end:RETMON_ASC:DB 6d, 2d, 2d, 5d, 0d, 3d, 5d, 1d, 4d, 6d, 2d, 4d ;2002.5.5 ;r4r5/r7=r3mul_2:D457: CLR CMOV A,R4SUBB A,R7JC DV50SETB OVRETDV50: MOV R6,#8 ;；求平均值（R4R5／R7－→R3）DV51: MOV A,R5RLC AMOV R5,AMOV A,R4RLC AMOV R4,AMOV F0,CCLR CSUBB A,R7ANL C,/F0MOV R4,ADV52: CPL CMOV A,R3RLC AMOV R3,ADJNZ R6,DV51MOV A,R4 ;；四舍五入ADD A,#0;R4JC DV53SUBB A,R7JC DV54DV53: INC R3DV54: CLR OVRET;************************************************************* clr_ram:MOV R7,#78h ;MOV R0,#0bH ;CLR A ;CR: INC R0 ;MOV @R0,A ;djnz r7,cr ;CLR RAMret;************** INT_CTRLint_t0:setb et1MOV TMOD,#00010001b ;mov w_adj,#w_adj_datsetb eajmp adj_w;**********************************************al_led:mov r0,#al1_hmov a,stat_workdec arl aadd a,r0mov r0,amov a,@r0acall bcd_8mov led2,ajnz al_1mov led2,#blk_ledmov a,badd a,#10dmov led3,ainc r0mov a,@r0acall bcd_8add a,#10dmov led4,amov led5,bal_led_end:ret;******************************** set_clk_al:jnb set_clk_f,see1call set_clockclr set_clk_fsjmp see2see1:jnb set_al4_f,see2call set_al4clr set_al4_fsee2:ret;********************************* proc led_t_dled_t_d:mov dptr,#led_ord_3mov b,#02hmul abjmp @a+dptrled_ord_3: ajmp led_k0_2ajmp led_k1_2ajmp led_k2_2ajmp led_k3_2ajmp led_k4_2led_k0_2: ; timer_12 and date to led acall time_12jnb fl_3s ,lk1acall date_ledlk1:ajmp led_jmp_5_endled_k1_2: ; timer_12 to ledacall time_12ajmp led_jmp_5_endled_k2_2: ;timer_24and date to ledacall time_24jnb fl_3s ,lk2acall date_ledlk2:ajmp led_jmp_5_endled_k3_2: ;timer_24to ledacall time_24ajmp led_jmp_5_endled_k4_2: ;sec to ledmov led1,#blk_ledmov led2,#blk_ledmov led3,#dot_ledmov a,secacall bcd_8add a,#10dmov led4,amov led5,bled_jmp_5_end:retend;**************************************** proc set_al4set_al4:mov k1_data,#01dmov k2_data,#01dclr set_overacall led_alacall key_bordcall sf_keymov key_data,#0mov frist,#0set_al41:call clockcall week_autoacall led_alacall key_bordcall key_delacall key_aljnb set_over,set_al41clr amov k1_data,amov k2_data,amov key_data,amov frist,aretend;************************************** proc key_alkey_al:mov a,key_datajz key_al_endcjne a,#01d,k2_alinc k1_data ;(1-9)mov a,k1_datacjne a,#19d,key_al_endmov k1_data,#01dsjmp key_al_endk2_al:mov a,k1_datacjne a,#018d,ke2setb set_oversjmp key_al_endke2:mov r0,#al1_hdec aadd a,r0mov r0,ainc @r0acall jj_bitmov b,#24djnz ke3mov b,#60dke3:mov a,@r0div abmov a,bmov @r0,akey_al_end:retendjj_bit:mov a,k1_datamov b,#02ddiv abmov a,b ;(a=1,0)ret;********************************* led_out1:mov led2,#00hmov led3,#u_ledmov led4,#t_ledmov led5,#blk_ledmov led1,#blk_ledret;******************************** led_al:mov a,k1_datacjne a,#017d,lo1acall beep_timersjmp led_al_endlo1:cjne a,#18d,ld1acall led_out1sjmp led_al_endld1:inc amov b,#02ddiv ab;**********mov led1,a;**********dec arl amov r0,#al1_hadd a,r0mov r0,amov a,@r0acall bcd_8mov led2,ajnz ld2mov led2,#blk_ledld2:mov a,badd a,#10dmov led3,a;************************************ inc r0mov a,@r0acall bcd_8add a,#10dmov led4,amov led5,b;***************************flash bitjb fl_250ms,led_al_endacall jj_bitjnz led_al_emov led4,#blk_ledmov led5,#blk_ledsjmp led_al_endled_al_e:mov led2,#blk_ledmov led3,#blk_ledled_al_end:acall ledret;*************************************** proc set_clockset_clock:mov k1_data,#01dmov k2_data,#01dclr set_overcall led_clcall key_bordcall sf_keymov key_data,#0mov frist,#0set_al41:call clockacall week_autocall al_outacall led_clacall key_bordcall key_delacall key_cljnb set_over,set_al41;acall key_bordmov k1_data,amov k2_data,amov key_data,amov frist,aretend;************************************** proc key_clkey_cl:mov a,key_datajz key_al_endcjne a,#01d,k2_alinc k1_data ;(1-8)mov a,k1_datacjne a,#9d,key_al_endmov k1_data,#01dsjmp key_al_endk2_al:mov a,k1_datacjne a,#08d,ke2setb set_oversjmp key_al_endke2:dec amov dptr,#asc_hmovc a,@a+dptrmov b,a;********************************mov r0,#secmov a,k1_datadec aadd a,r0mov r0,ainc @r0mov a,@r0div abmov a,bmov @r0,akey_al_end:retenddb 60d,60d,24d,32d,13d,100d,100dproc led_clled_cl:mov dptr,#led_ord_3mov a,k1_datadec amov b,#02hmul abjmp @a+dptrled_ord_3: ajmp led_k0_2ajmp led_k1_2ajmp led_k2_2ajmp led_k3_2ajmp led_k4_2ajmp led_k5_2ajmp led_k6_2ajmp led_k7_2led_k0_2: ; led secmov led2,#blk_ledmov led3,#dot_ledmov a,secacall bcd_8add a,#10dmov led4,amov led5,bjb fl_250ms ,lk1mov led4,#blk_ledmov led5,#blk_ledlk1:ajmp led_jmp_5_endled_k1_2: ; led min,houracall led_hourjb fl_250ms ,lk2mov led4,#blk_ledmov led5,#blk_ledlk2:ajmp led_jmp_5_endled_k2_2: ;led min,houracall led_hourjb fl_250ms ,lk3mov led2,#blk_ledmov led3,#blk_ledlk3:ajmp led_jmp_5_endled_k3_2: ;led day,mon acall led_monjb fl_250ms ,lk4mov led4,#blk_ledmov led5,#blk_ledlk4:ajmp led_jmp_5_endled_k4_2: ; led day,mon acall led_monjb fl_250ms ,lk5mov led2,#blk_ledmov led3,#blk_ledlk5:ajmp led_jmp_5_endled_k5_2: ; led year mov led2,#2dmov led3,#0dmov a,yearacall bcd_8mov led4,amov led5,bjb fl_250ms ,lk6mov led4,#blk_ledmov led5,#blk_ledlk6:ajmp led_jmp_5_endled_k6_2: ;led w_adj mov led2,#d_ledmov led3,#blk_ledmov a,w_adjacall bcd_8mov led4,amov led5,bjb fl_250ms ,lk7mov led4,#blk_ledmov led5,#blk_ledlk7:ajmp led_jmp_5_endled_k7_2: ;led outacall led_out1led_jmp_5_end:mov led1,weekacall ledretendled_hour:mov a,houracall bcd_8mov led2,ajnz lj1mov led2,#blk_ledlj1:mov a,badd a,#10dmov led3,a;********************* mov a,minacall bcd_8add a,#10dmov led4,amov led5,bretled_mon:mov a,monjnz lj5inc monmov a,monlj5:acall bcd_8mov led2,ajnz lj2mov led2,#blk_ledlj2:mov led3,b;********************* mov a,dayjnz lj4inc daymov a,daylj4:acall bcd_8mov led4,ajnz lj3mov led4,#blk_ledmov led5,bret;********************************************al_out:jb ha_over,al_out_endmov r7,#8dmov r1,#al8_mal_ch_1:mov r0,#minmov r6,#02d ;min houral_l:mov a,@r0mov b,@r1cjne a,b ,al_chinc r0dec r1djnz r6 ,al_l;************************************************** mov a,r7dec amov r0,#al1add a,r0mov r0,amov a,@r0mov c,acc.0cpl canl c,fl_250mscpl cmov beep_f,cacall beep_outal_ch:clr cmov a,r1subb a,r6mov r1,adjnz r7,al_ch_1al_out_end:retbeep_out:jb ha_f,ba1mov beep,secsetb ha_fmov a,beepadd a,beep_tmov b,#60ddiv abmov a,seccjne a,b,beep_out_endsetb beep_fsetb ha_overclr ha_fbeep_out_end:rettimer_int:MOV T_1S,#TIMER_nomov beep_t,#15dmov year ,#01dmov mon , #011dmov day , #06dmov hour ,#13dmov min , #00dmov sec , #00dmov r7,#16mov dptr ,#al_ascmov r0,#al1_hal_read:clr amovc a,@a+dptrmov @r0,ainc r0inc dptrdjnz r7,al_readret;************************************ beep_timer:mov led1,#blk_ledmov led2,#b_ledmov led3,#blk_ledmov a,beep_tacall bcd_8mov led4,amov led5,bjb fl_250ms,ft1mov led4,#blk_ledmov led5,#blk_ledft1:rettime_12:mov dptr,#asc_12mov a,hourrl amovc a,@a+dptrmov led2,ajnz iu2mov led2,#blk_lediu2:inc dptrmov a,hourrl amovc a,@a+dptrjb fl_500ms ,iu1add a,#10diu1:mov led3,a;*************************************** min to ledacall led_mintime_24_end:retasc_12:db 11d,2d,21d,1d,21d,2d,21d,3d,21d,4d,21d,5d,21d,6d,21d,7ddb 21d,8d,21d,9d,11d,0d,11d,1ddb 1d,2d,0d,1d,0d,2d,0d,3d,0d,4d,0d,5d,0d,6d,0d,7d,0d,8d,0d,9d db 1d,0,1d,1dclock:;********************************mov a,seccjne a,#60d,clock_end;!!!!!!!!!!!!!!!!!!!!!!mov sec,#00hinc min;**********clr ha_over ;2001.5.6mov a,mincjne a,#60d,clock_endmov min,#00hmov a,hourcjne a,#24d,clock_endmov hour,#00hmov a,monxrl a,#02djnz mm_1mov dptr,#year_dmov a, yearmovc a,@a+dptrsjmp mm_2mm_1:mov a,mondec amov dptr,#mou_12movc a,@a+dptrmm_2:mov b,ainc binc day ;***************day+1 mov a,daycjne a ,b ,clck_endsjmp clck1clck_end:jc clock_endclck1:mov day,#01hinc monmov a,moncjne a,#13d ,clock_endmov mon,#01dinc yearmov a,yearcjne a,#100d ,clock_endmov year,#00dclock_end:call fl_outretmou_12:db 31d, 28d, 31d, 30d, 31d,30d db 31d, 31d, 30d,31d, 30d,31ddb 29d, 28d, 28d, 28d, 29d, 28d , 28d, 28d, 29d, 28d db 28d, 28d, 29d, 28d, 28d, 28d , 29d, 28d, 28d, 28d db 29d, 28d, 28d, 28d, 29d, 28d , 28d, 28d, 29d, 28d db 28d, 28d, 29d, 28d, 28d, 28d , 29d, 28d, 28d, 28d db 'li jie 2000.5.15';***************************************t1:push apush pswpush bclr fl_ms_fdjnz t_1s ,t1_endclr fl_s_finc seccall adj_w;********************************t1_end:pop bpop pswpop aretiadj_w:clr tr1mov a,#T_L_100msadd a, w_adj ;*******have 5 ordermov tl1 ,amov a,#T_H_100msaddc a, #00hmov th1,amov t_1s,#timer_nosetb tr1retfl_out:jb fl_ms_f ,fl_out_endsetb fl_ms_fmov a,t_1smov b,#02ddiv abmov a,bjnz to_d1cpl fl_250msmov a,t_1smov b,#04ddiv abmov a,bjnz to_d2cpl fl_500msto_d2:fl_out_end:call sec_outretsec_out:jb fl_s_f ,sec_out_endsetb fl_s_fmov a,secmov b,#07djnb fl_3s,za1mov b,#02dza1:div abmov a,bjnz sec_out_endcpl fl_3ssec_out_end:ret;********************************** key_del:mov a,key_datajnz kl_12mov a,fristjnz kl_13retkl_13:mov key_data,fristmov frist,#0clr key_overjmp sf_beepkl_12:jnb key_over,kl11mov a,t_30msadd a,#03mov b,#60ddiv abcjne a,b,key_del_endclr key_overjmp set_keykl11:mov t_30ms,secsetb key_overkey_del_end:call sf_acjne a,#key_da,sfg_12clr key_overjmp sf_beepsfg_12:mov frist,key_datamov key_data,#0ret;**************************************** key_bord:acall re_kmov a,key_datajz key_bord1_end;acall psf_key0key_bord1_end:setb key_fretset_key:mov a,key_datacjne a,#01h,set_cc1setb set_al4_fsjmp sf23set_cc1:cjne a,#02h,sf23setb set_clk_fsf23:ret;************************************sf_key:call clockcall week_autocall al_outsetb key_fcall ledcall sf_acjne a,#key_da,sf_keycall sf_beepretsf_beep:clr beep_fcall timer_20mssetb beep_fret;******************************** re_k:mov key_data,#00hmov p1,#00hmov a,p3orl a,#01111111bmov p3,aclr key_fmov a,p3setb key_fmov p1,#0ffhanl a ,#00000110bcjne a,#00000110b,you_keyre_k_end:retyou_key:call timer_20ms;call ledmov p1,#00hmov a,p3orl a,#01111111bmov p3,aclr key_fmov a,p3setb key_fmov p1,#0ffhanl a ,#key_dacjne a,#key_da,you_key1ret;sjmp re_k_endyou_key1:jb acc.1,key_kbmov key_data,#02hkey_kb:jb acc.2,sf_key0mov key_data,#01hsf_key0:retsf_a:mov p1,#00hmov a,p3orl a,#01111111bmov p3,aclr key_fmov a,p3setb key_fanl a ,#key_daretal_asc:db 06d,40d, 06d,50d, 07d,00d, 07d,10d;am 4_al db 07d,15d, 013d,40d, 13d,45d, 14d,15d;pm 4_al。
