受人之托，部分完成任务51单片机
题目：可控节能开关
一，设计任务：设计并制作一可控节能开关（220v5A),能实现任意时钟设置，在24小时内可任意设置通断。考虑工艺和成本核算。（该开关用于家用电路，一方面可以实现工作时间长短设置，另一方面也可实现避开峰电期而在谷电期工作，达到节能节电效果）
二，设计要求
1，基本要求（1）实现任意时钟设置；（2）自动实现24小时内通，断功能；（3）实现通断转换报警设置（4）工艺流程编制和成本核算
2，发挥部分（1）实现开关接通与断开分别显示。（2）实现任意时刻接通以及接通时间长短设置（精确于分）。（3）能实现上述未提及的其他功能。
电路图：
注：实际电路图我们呢将数码管改成四个，精确到分即可，数码管分别接了单片机52的p2.3 p2.2 p2.1 p2.0 口 ，键盘分别接52的p1.0 p1.1 p1.2 p1.3口，52的p0.0 p0.1 p0.2 p0.3分别接芯片的A B C D ，图中的芯片74LS47改用了4511，并且想在按钮处加入一个控制按钮。图中按钮与单片机52之间的连接线上分别接了1k的电阻并统一接+5伏电源，去掉按钮左边的电阻和接地装置！
程序.txt------------------------------------
org 0000h
jmp start
org 0Bh
jmp tim0
;*******************
;系统参数初始化
;********************
start:mov sp, #70h ;设置堆栈在70H
mov 28h, #00 ;显示寄存器初值为00
mov 2bh, #00 ;"分"寄存器的初值为00
mov 2ch, #00 ;"秒"寄存器的初值为00
mov tmod, #01h ;为工作方式1
mov th0, #high(65536-4000) ;计时中断为4000微妙
mov tl0, #low(65536-4000)
setb et0 ;中断使能
setb ea
mov r4, #250 ;中断250次
setb tr0
;***********************
;时间调整子程序
;**********************
loop: jb p0.0, n2 ;判P0.0是否按下
call delay1 ;消除抖动
mov a, 2ch ;将秒的值载入累加器
add a, #01 ;累加器加1
da a ;十进制调整
mov 2ch, a
cjnz a , #60 n1 ;秒是否等于60,不等转移
mov 2ch, #00 ;秒清零
n1: jnb p0.0 , $ ;放开跳转
call delay1
n2: jb p0.1, n4 ;判P0.1是否按下
call delay1 ;消除抖动
mov a, #2bh ;将分的值载入累加器
add a, #01 ;累加器加1
da a ;十进制调整
mov 2bh,a
cjnz a,#60h n3 ;分是否等于60,不等转移
mov 2bh,00h ;分清零
n3: jnb p0.1,$ ;放开跳转
call delay1
n4: jb p0.2, loop ;判P0.1是否按下
call delay1 ;消除抖动
mov a , 2ah ;将时的值载入累加器
add a, #01 ;累加器加1
da a ;十进制调整
mov 2ah, a
jnb p0.5, n6
cjnz a,#24 n5 ;时是否等于24,不等转移
jmp n5
n6: cjnz a,#12 n5
mov #2ah, 00h ;时清零
n5: jnb p0.2, $ ;放开跳转
call delay
jmp loop
；*****************************
；中断子程序
；****************************
tim0: mov th0, #high(65536-4000) ;
mov tl0, #low(65536-4000)
push acc
push psw
djnz r4, x2
mov r4, #250
call clock
call disp
x2: call scan
pop psw
pop acc
reti
;**************************
;扫描子程序
；***********************
scan: mov r0, #28h ;(28h)为扫描指针
inc @r0 ；扫描指针加1
cjne @r0, #6,x3 ；扫描完6个显示器？不是调x3
mov @r0, #0 ；是则指针为零
x3: mov a, @r0 ;扫描指针载入A
add a, #20h ;a加常数20H=个时间显示区地址
mov r1, a
mov a , @r0
swap a ;高底半字节互换
orl a , @r1 ;a=a或@r1;;;;;SJMP $ ; 原地踏步 =LOOP:SJMP LOOP
mov p1, a
ret
;**************************
;计时子程序
；**************************
clock: mov a, #2ch
add a, #1
da a
mov 2ch, a
cjne a, #60 x4
mov a, #00
mov a, 2bh
add, a, #1
da a
mov 2bh, a
cjne a, #60 x4
mov 2bh, #00
mov a, 2ah
add a, #1
da a
mov 2ah, a
jnb p0.5, n6
cjnz a,#24 x4 ;时是否等于24,不等转移
mov 2ah, #00
n6: cjnz a,#12 x4
mov 2ah, #00
x4: ret
;***********************************
;显示子程序
；**********************************
disp: mov r1, #20
mov a, 2ch //2ch里有秒
mov b, #10
div ab ; c=a,a=a/b and b=c%b
mov @r1,b ;将b写入显存，b为秒的个位
inc r1 ；r1增加1;找到a的地址
mov @r1,a；将a写入显存，a为秒的十位
inc r1 找到分的个位
mov a,2bh //2bh分
mov b,#10h
div ab ;将a分离，新a为a的前半部分
mov @r1,b b入分的个位
inc r1
mov @r1,a a入分的十位
inc r1
mov a,2ah //2ah时
mov b,#10
div ab
mov @r1,b
inc r1
mov @r1,a
ret
；***********************
；时间间隔显示点程序
；********************
disp1:
dsp: clr p2.2
call delay2
cpl p2.2
jmp dsp
ret
;*****************************
;闹钟设置子程序
;*****************************
naozhong: jnb,p
;*************************
;整点报时子程序
;************************
fmz:
z1: mov a, #2ch ;将秒存于累加器
cjnz a, #00 z1 ;判断秒是否为零,不等跳Z1
z2: mov a, #2bh ;将分存于累加器
cjnz a, #00 z2 ;判断秒是否为零,不等跳Z2
mov r3, #5 ;给R3一个值
c1: clr p1.7 ;p1.7清零
call delay2 ;延时0.5秒
cpl p1.7 ;取反
djnz r3,c1 ; 循环5次
clr p1.7
call delay2 ;延时0.5秒
setb p1.7
call delay2 ;延时1秒
call delay2
clr p1.7 ;清零
ret
;*************************
;延时子程序
；***********************
delay1: mov r6,#10 ;延时5ms
d1: mov r7,#248
djnz r7,$
djnz r6,d1
ret
delay2: mov r5, #5 ;延时0.5s
d2: mov r6, #100
d3: mov r7, #248
djnz r7, $
djnz r6, d3
djnz r7, d2
ret
程序.txt------------------------
new 程序.txt--------------
;*************************
;与另一较早文档相比，改变了显示模块中的部分 disp部分，删除秒的表达，并假设分的地址为20 ，以适应文档要求的“数码管改成四个 ;”
;改变了时间调整中的p00 p01 p02 为p10 p11 p12,似乎这样更加符合文档要求“键盘分别接52的p1.0 p1.1 p1.2 p1.3”
;***************************
org 0000h
jmp start
org 0Bh
jmp tim0
;*******************
;系统参数初始化
;********************
start:mov sp, #70h ;设置堆栈在70H
mov 28h, #00 ;显示寄存器初值为00
mov 2bh, #00 ;"分"寄存器的初值为00
mov 2ch, #00 ;"秒"寄存器的初值为00
mov tmod, #01h ;为工作方式1
mov th0, #high(65536-4000) ;计时中断为4000微妙
mov tl0, #low(65536-4000)
setb et0 ;中断使能
setb ea
mov r4, #250 ;中断250次
setb tr0
;***********************
;时间调整子程序
;**********************
loop: jb p1.0, n2 ;判P0.0是否按下
call delay1 ;消除抖动
mov a, 2ch ;将秒的值载入累加器
add a, #01 ;累加器加1
da a ;十进制调整
mov 2ch, a
cjnz a , #60 n1 ;秒是否等于60,不等转移
mov 2ch, #00 ;秒清零
n1: jnb p1.0 , $ ;放开跳转
call delay1
n2: jb p1.1, n4 ;判P0.1是否按下
call delay1 ;消除抖动
mov a, #2bh ;将分的值载入累加器
add a, #01 ;累加器加1
da a ;十进制调整
mov 2bh,a
cjnz a,#60h n3 ;分是否等于60,不等转移
mov 2bh,00h ;分清零
n3: jnb p1.1,$ ;放开跳转
call delay1
n4: jb p1.2, loop ;判P0.1是否按下
call delay1 ;消除抖动
mov a , 2ah ;将时的值载入累加器
add a, #01 ;累加器加1
da a ;十进制调整
mov 2ah, a
jnb p0.5, n6
cjnz a,#24 n5 ;时是否等于24,不等转移
jmp n5
n6: cjnz a,#12 n5
mov #2ah, 00h ;时清零
n5: jnb p1.2, $ ;放开跳转
call delay
jmp loop
;*****************************
;中断子程序
;****************************
tim0: mov th0, #high(65536-4000) ;
mov tl0, #low(65536-4000)
push acc
push psw
djnz r4, x2
mov r4, #250
call clock
call disp
x2: call scan
pop psw
pop acc
reti
;**************************
;扫描子程序
;***********************
scan: mov r0, #28h ;(28h)为扫描指针
inc @r0 ;扫描指针加1
cjne @r0, #6,x3 ;扫描完6个显示器？不是调x3
mov @r0, #0 ;是则指针为零
x3: mov a, @r0 ;扫描指针载入A
add a, #20h ;a加常数20H=个时间显示区地址
mov r1, a
mov a , @r0
swap a ;高底半字节互换
orl a , @r1 ;a=a或@r1;;;;;SJMP $ ; 原地踏步 =LOOP:SJMP LOOP
mov p1, a
ret
;**************************
;计时子程序
;**************************
clock: mov a, #2ch
add a, #1
da a
mov 2ch, a
cjne a, #60 x4
mov a, #00
mov a, 2bh
add, a, #1
da a
mov 2bh, a
cjne a, #60 x4
mov 2bh, #00
mov a, 2ah
add a, #1
da a
mov 2ah, a
jnb p0.5, n6
cjnz a,#24 x4 ;时是否等于24,不等转移
mov 2ah, #00
n6: cjnz a,#12 x4
mov 2ah, #00
x4: ret
;***********************************
;显示子程序
;**********************************
disp: mov r1, #20;分个位地址;或许分的地址应该为22
mov a,2bh ;2bh分
mov b,#10h
div ab ;将a分离，新a为a的前半部分
mov @r1,b ; b入分的个位
inc r1
mov @r1,a ; a入分的十位
inc r1
mov a,2ah ;2ah时
mov b,#10
div ab
mov @r1,b
inc r1
mov @r1,a
ret
;***********************
;时间间隔显示点程序
;********************
disp1:
dsp: clr p2.2
call delay2
cpl p2.2
jmp dsp
ret
;*****************************
;闹钟设置子程序
;*****************************
naozhong: jnb,p
;*************************
;整点报时子程序
;************************
fmz:
z1: mov a, #2ch ;将秒存于累加器
cjnz a, #00 z1 ;判断秒是否为零,不等跳Z1
z2: mov a, #2bh ;将分存于累加器
cjnz a, #00 z2 ;判断秒是否为零,不等跳Z2
mov r3, #5 ;给R3一个值
c1: clr p1.7 ;p1.7清零
call delay2 ;延时0.5秒
cpl p1.7 ;取反
djnz r3,c1 ; 循环5次
clr p1.7
call delay2 ;延时0.5秒
setb p1.7
call delay2 ;延时1秒
call delay2
clr p1.7 ;清零
ret
;*************************
;延时子程序
;***********************
delay1: mov r6,#10 ;延时5ms
d1: mov r7,#248
djnz r7,$
djnz r6,d1
ret
delay2: mov r5, #5 ;延时0.5s
d2: mov r6, #100
d3: mov r7, #248
djnz r7, $
djnz r6, d3
djnz r7, d2
ret
new程序.txt-----------------
一，设计任务：设计并制作一可控节能开关（220v5A),能实现任意时钟设置，在24小时内可任意设置通断。考虑工艺和成本核算。（该开关用于家用电路，一方面可以实现工作时间长短设置，另一方面也可实现避开峰电期而在谷电期工作，达到节能节电效果）
二，设计要求
1，基本要求（1）实现任意时钟设置；（2）自动实现24小时内通，断功能；（3）实现通断转换报警设置（4）工艺流程编制和成本核算
2，发挥部分（1）实现开关接通与断开分别显示。（2）实现任意时刻接通以及接通时间长短设置（精确于分）。（3）能实现上述未提及的其他功能。
电路图：
注：实际电路图我们呢将数码管改成四个，精确到分即可，数码管分别接了单片机52的p2.3 p2.2 p2.1 p2.0 口 ，键盘分别接52的p1.0 p1.1 p1.2 p1.3口，52的p0.0 p0.1 p0.2 p0.3分别接芯片的A B C D ，图中的芯片74LS47改用了4511，并且想在按钮处加入一个控制按钮。图中按钮与单片机52之间的连接线上分别接了1k的电阻并统一接+5伏电源，去掉按钮左边的电阻和接地装置！
程序.txt------------------------------------
org 0000h
jmp start
org 0Bh
jmp tim0
;*******************
;系统参数初始化
;********************
start:mov sp, #70h ;设置堆栈在70H
mov 28h, #00 ;显示寄存器初值为00
mov 2bh, #00 ;"分"寄存器的初值为00
mov 2ch, #00 ;"秒"寄存器的初值为00
mov tmod, #01h ;为工作方式1
mov th0, #high(65536-4000) ;计时中断为4000微妙
mov tl0, #low(65536-4000)
setb et0 ;中断使能
setb ea
mov r4, #250 ;中断250次
setb tr0
;***********************
;时间调整子程序
;**********************
loop: jb p0.0, n2 ;判P0.0是否按下
call delay1 ;消除抖动
mov a, 2ch ;将秒的值载入累加器
add a, #01 ;累加器加1
da a ;十进制调整
mov 2ch, a
cjnz a , #60 n1 ;秒是否等于60,不等转移
mov 2ch, #00 ;秒清零
n1: jnb p0.0 , $ ;放开跳转
call delay1
n2: jb p0.1, n4 ;判P0.1是否按下
call delay1 ;消除抖动
mov a, #2bh ;将分的值载入累加器
add a, #01 ;累加器加1
da a ;十进制调整
mov 2bh,a
cjnz a,#60h n3 ;分是否等于60,不等转移
mov 2bh,00h ;分清零
n3: jnb p0.1,$ ;放开跳转
call delay1
n4: jb p0.2, loop ;判P0.1是否按下
call delay1 ;消除抖动
mov a , 2ah ;将时的值载入累加器
add a, #01 ;累加器加1
da a ;十进制调整
mov 2ah, a
jnb p0.5, n6
cjnz a,#24 n5 ;时是否等于24,不等转移
jmp n5
n6: cjnz a,#12 n5
mov #2ah, 00h ;时清零
n5: jnb p0.2, $ ;放开跳转
call delay
jmp loop
；*****************************
；中断子程序
；****************************
tim0: mov th0, #high(65536-4000) ;
mov tl0, #low(65536-4000)
push acc
push psw
djnz r4, x2
mov r4, #250
call clock
call disp
x2: call scan
pop psw
pop acc
reti
;**************************
;扫描子程序
；***********************
scan: mov r0, #28h ;(28h)为扫描指针
inc @r0 ；扫描指针加1
cjne @r0, #6,x3 ；扫描完6个显示器？不是调x3
mov @r0, #0 ；是则指针为零
x3: mov a, @r0 ;扫描指针载入A
add a, #20h ;a加常数20H=个时间显示区地址
mov r1, a
mov a , @r0
swap a ;高底半字节互换
orl a , @r1 ;a=a或@r1;;;;;SJMP $ ; 原地踏步 =LOOP:SJMP LOOP
mov p1, a
ret
;**************************
;计时子程序
；**************************
clock: mov a, #2ch
add a, #1
da a
mov 2ch, a
cjne a, #60 x4
mov a, #00
mov a, 2bh
add, a, #1
da a
mov 2bh, a
cjne a, #60 x4
mov 2bh, #00
mov a, 2ah
add a, #1
da a
mov 2ah, a
jnb p0.5, n6
cjnz a,#24 x4 ;时是否等于24,不等转移
mov 2ah, #00
n6: cjnz a,#12 x4
mov 2ah, #00
x4: ret
;***********************************
;显示子程序
；**********************************
disp: mov r1, #20
mov a, 2ch //2ch里有秒
mov b, #10
div ab ; c=a,a=a/b and b=c%b
mov @r1,b ;将b写入显存，b为秒的个位
inc r1 ；r1增加1;找到a的地址
mov @r1,a；将a写入显存，a为秒的十位
inc r1 找到分的个位
mov a,2bh //2bh分
mov b,#10h
div ab ;将a分离，新a为a的前半部分
mov @r1,b b入分的个位
inc r1
mov @r1,a a入分的十位
inc r1
mov a,2ah //2ah时
mov b,#10
div ab
mov @r1,b
inc r1
mov @r1,a
ret
；***********************
；时间间隔显示点程序
；********************
disp1:
dsp: clr p2.2
call delay2
cpl p2.2
jmp dsp
ret
;*****************************
;闹钟设置子程序
;*****************************
naozhong: jnb,p
;*************************
;整点报时子程序
;************************
fmz:
z1: mov a, #2ch ;将秒存于累加器
cjnz a, #00 z1 ;判断秒是否为零,不等跳Z1
z2: mov a, #2bh ;将分存于累加器
cjnz a, #00 z2 ;判断秒是否为零,不等跳Z2
mov r3, #5 ;给R3一个值
c1: clr p1.7 ;p1.7清零
call delay2 ;延时0.5秒
cpl p1.7 ;取反
djnz r3,c1 ; 循环5次
clr p1.7
call delay2 ;延时0.5秒
setb p1.7
call delay2 ;延时1秒
call delay2
clr p1.7 ;清零
ret
;*************************
;延时子程序
；***********************
delay1: mov r6,#10 ;延时5ms
d1: mov r7,#248
djnz r7,$
djnz r6,d1
ret
delay2: mov r5, #5 ;延时0.5s
d2: mov r6, #100
d3: mov r7, #248
djnz r7, $
djnz r6, d3
djnz r7, d2
ret
程序.txt------------------------
new 程序.txt--------------
;*************************
;与另一较早文档相比，改变了显示模块中的部分 disp部分，删除秒的表达，并假设分的地址为20 ，以适应文档要求的“数码管改成四个 ;”
;改变了时间调整中的p00 p01 p02 为p10 p11 p12,似乎这样更加符合文档要求“键盘分别接52的p1.0 p1.1 p1.2 p1.3”
;***************************
org 0000h
jmp start
org 0Bh
jmp tim0
;*******************
;系统参数初始化
;********************
start:mov sp, #70h ;设置堆栈在70H
mov 28h, #00 ;显示寄存器初值为00
mov 2bh, #00 ;"分"寄存器的初值为00
mov 2ch, #00 ;"秒"寄存器的初值为00
mov tmod, #01h ;为工作方式1
mov th0, #high(65536-4000) ;计时中断为4000微妙
mov tl0, #low(65536-4000)
setb et0 ;中断使能
setb ea
mov r4, #250 ;中断250次
setb tr0
;***********************
;时间调整子程序
;**********************
loop: jb p1.0, n2 ;判P0.0是否按下
call delay1 ;消除抖动
mov a, 2ch ;将秒的值载入累加器
add a, #01 ;累加器加1
da a ;十进制调整
mov 2ch, a
cjnz a , #60 n1 ;秒是否等于60,不等转移
mov 2ch, #00 ;秒清零
n1: jnb p1.0 , $ ;放开跳转
call delay1
n2: jb p1.1, n4 ;判P0.1是否按下
call delay1 ;消除抖动
mov a, #2bh ;将分的值载入累加器
add a, #01 ;累加器加1
da a ;十进制调整
mov 2bh,a
cjnz a,#60h n3 ;分是否等于60,不等转移
mov 2bh,00h ;分清零
n3: jnb p1.1,$ ;放开跳转
call delay1
n4: jb p1.2, loop ;判P0.1是否按下
call delay1 ;消除抖动
mov a , 2ah ;将时的值载入累加器
add a, #01 ;累加器加1
da a ;十进制调整
mov 2ah, a
jnb p0.5, n6
cjnz a,#24 n5 ;时是否等于24,不等转移
jmp n5
n6: cjnz a,#12 n5
mov #2ah, 00h ;时清零
n5: jnb p1.2, $ ;放开跳转
call delay
jmp loop
;*****************************
;中断子程序
;****************************
tim0: mov th0, #high(65536-4000) ;
mov tl0, #low(65536-4000)
push acc
push psw
djnz r4, x2
mov r4, #250
call clock
call disp
x2: call scan
pop psw
pop acc
reti
;**************************
;扫描子程序
;***********************
scan: mov r0, #28h ;(28h)为扫描指针
inc @r0 ;扫描指针加1
cjne @r0, #6,x3 ;扫描完6个显示器？不是调x3
mov @r0, #0 ;是则指针为零
x3: mov a, @r0 ;扫描指针载入A
add a, #20h ;a加常数20H=个时间显示区地址
mov r1, a
mov a , @r0
swap a ;高底半字节互换
orl a , @r1 ;a=a或@r1;;;;;SJMP $ ; 原地踏步 =LOOP:SJMP LOOP
mov p1, a
ret
;**************************
;计时子程序
;**************************
clock: mov a, #2ch
add a, #1
da a
mov 2ch, a
cjne a, #60 x4
mov a, #00
mov a, 2bh
add, a, #1
da a
mov 2bh, a
cjne a, #60 x4
mov 2bh, #00
mov a, 2ah
add a, #1
da a
mov 2ah, a
jnb p0.5, n6
cjnz a,#24 x4 ;时是否等于24,不等转移
mov 2ah, #00
n6: cjnz a,#12 x4
mov 2ah, #00
x4: ret
;***********************************
;显示子程序
;**********************************
disp: mov r1, #20;分个位地址;或许分的地址应该为22
mov a,2bh ;2bh分
mov b,#10h
div ab ;将a分离，新a为a的前半部分
mov @r1,b ; b入分的个位
inc r1
mov @r1,a ; a入分的十位
inc r1
mov a,2ah ;2ah时
mov b,#10
div ab
mov @r1,b
inc r1
mov @r1,a
ret
;***********************
;时间间隔显示点程序
;********************
disp1:
dsp: clr p2.2
call delay2
cpl p2.2
jmp dsp
ret
;*****************************
;闹钟设置子程序
;*****************************
naozhong: jnb,p
;*************************
;整点报时子程序
;************************
fmz:
z1: mov a, #2ch ;将秒存于累加器
cjnz a, #00 z1 ;判断秒是否为零,不等跳Z1
z2: mov a, #2bh ;将分存于累加器
cjnz a, #00 z2 ;判断秒是否为零,不等跳Z2
mov r3, #5 ;给R3一个值
c1: clr p1.7 ;p1.7清零
call delay2 ;延时0.5秒
cpl p1.7 ;取反
djnz r3,c1 ; 循环5次
clr p1.7
call delay2 ;延时0.5秒
setb p1.7
call delay2 ;延时1秒
call delay2
clr p1.7 ;清零
ret
;*************************
;延时子程序
;***********************
delay1: mov r6,#10 ;延时5ms
d1: mov r7,#248
djnz r7,$
djnz r6,d1
ret
delay2: mov r5, #5 ;延时0.5s
d2: mov r6, #100
d3: mov r7, #248
djnz r7, $
djnz r6, d3
djnz r7, d2
ret
new程序.txt-----------------