求单片机程序要求数码管显示时间1-60显示一秒响一次
答案:2 悬赏:50
解决时间 2021-11-14 05:20
- 提问者网友:wodetian
- 2021-11-13 04:54
求单片机程序要求数码管显示时间1-60显示一秒响一次
最佳答案
- 二级知识专家网友:余生继续浪
- 2021-11-13 06:01
Count EQU 40H
TimeCount EQU 42H
BEEP EQU P3.7
;**********************************************************
ORG 0000H
JMP MAIN
ORG 000BH
JMP TIMER0
ORG 0030H
;**********************************************************
MAIN:
MOV SP,#60H
MOV TMOD,#01
SETB EA
SETB ET0
SETB TR0
MOV TH0,#4CH ;50ms定时
MOV TL0,#00H
MOV Count,#00
LOOP:
MOV A,Count
MOV B,#10
DIV AB
MOV DPTR,#TABLE
MOVC A,@A+DPTR
MOV P0,A
SETB P2.7
CLR P2.6
CALL DELAY2MS
MOV A,B
MOVC A,@A+DPTR
MOV P0,A
SETB P2.6
CLR P2.7
CALL DELAY2MS
SETB P2.7
SETB P2.6
JMP LOOP
;**********************************************************
TIMER0:
PUSH ACC
MOV TH0,#4CH
MOV TL0,#00H
INC TimeCount
MOV A,TimeCount
CJNE A,#20,T_END
MOV TimeCount,#00H
INC Count
MOV A,Count
CALL FENGM
CJNE A,#61,T_END
MOV Count,#00H
T_END:
POP ACC
RETI
;**********************************************************
DELAY2MS:
MOV R6,#04
DEL1:
MOV R7,#248
DJNZ R7,$
DJNZ R6,DEL1
RET
FENGM:
MOV R6,#50
BL2: CALL DEX1
CPL BEEP
DJNZ R6,BL2
MOV R5,#15
CALL DELAY_BL
RET
DEX1: MOV R7,#90
DE2: NOP
DJNZ R7,DE2
RET
;-------------------------------------------
DELAY_BL:
MOV R6,#10
DL1: MOV R7,#30
DJNZ R7,$
DJNZ R6,DL1
DJNZ R5,DELAY_BL
RET
DELAY:
MOV R7,#02H
DEL11:
MOV R6,#10
DEL21:
MOV R5,#50
DEL31:
NOP
NOP
DJNZ R5,DEL31
DJNZ R6,DEL21
DJNZ R7,DEL11
RET
;**********************************************************
TABLE:
DB 0C0H,0F9H,0A4H,0B0H,99H,92H,82H,0F8H
DB 80H ,90H,88H,83H,0C6H,0A1H,86H,8EH
;**********************************************************
END
TimeCount EQU 42H
BEEP EQU P3.7
;**********************************************************
ORG 0000H
JMP MAIN
ORG 000BH
JMP TIMER0
ORG 0030H
;**********************************************************
MAIN:
MOV SP,#60H
MOV TMOD,#01
SETB EA
SETB ET0
SETB TR0
MOV TH0,#4CH ;50ms定时
MOV TL0,#00H
MOV Count,#00
LOOP:
MOV A,Count
MOV B,#10
DIV AB
MOV DPTR,#TABLE
MOVC A,@A+DPTR
MOV P0,A
SETB P2.7
CLR P2.6
CALL DELAY2MS
MOV A,B
MOVC A,@A+DPTR
MOV P0,A
SETB P2.6
CLR P2.7
CALL DELAY2MS
SETB P2.7
SETB P2.6
JMP LOOP
;**********************************************************
TIMER0:
PUSH ACC
MOV TH0,#4CH
MOV TL0,#00H
INC TimeCount
MOV A,TimeCount
CJNE A,#20,T_END
MOV TimeCount,#00H
INC Count
MOV A,Count
CALL FENGM
CJNE A,#61,T_END
MOV Count,#00H
T_END:
POP ACC
RETI
;**********************************************************
DELAY2MS:
MOV R6,#04
DEL1:
MOV R7,#248
DJNZ R7,$
DJNZ R6,DEL1
RET
FENGM:
MOV R6,#50
BL2: CALL DEX1
CPL BEEP
DJNZ R6,BL2
MOV R5,#15
CALL DELAY_BL
RET
DEX1: MOV R7,#90
DE2: NOP
DJNZ R7,DE2
RET
;-------------------------------------------
DELAY_BL:
MOV R6,#10
DL1: MOV R7,#30
DJNZ R7,$
DJNZ R6,DL1
DJNZ R5,DELAY_BL
RET
DELAY:
MOV R7,#02H
DEL11:
MOV R6,#10
DEL21:
MOV R5,#50
DEL31:
NOP
NOP
DJNZ R5,DEL31
DJNZ R6,DEL21
DJNZ R7,DEL11
RET
;**********************************************************
TABLE:
DB 0C0H,0F9H,0A4H,0B0H,99H,92H,82H,0F8H
DB 80H ,90H,88H,83H,0C6H,0A1H,86H,8EH
;**********************************************************
END
全部回答
- 1楼网友:恕我颓废
- 2021-11-13 07:35
电路图贴上来,至少显示部分与单片机的接口,复位电路。
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯