找回密码
 立即注册

QQ登录

只需一步,快速开始

搜索
查看: 1509|回复: 0
打印 上一主题 下一主题
收起左侧

51单片机16*32点阵综合程序!(汇编语言)

[复制链接]
跳转到指定楼层
楼主
ID:370644 发表于 2019-8-24 11:27 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
http://www.tudou.com/programs/view/mVdgf_cHtqk/视频地址!
此程序可以实现上拉幕、下拉幕、上移、下移、间断、闪断显示等功能,绝对原创!!!!
硬件介绍:点阵列采用4颗74HC595移位锁存控制,595串行数据输入接P1.0,移位时钟接P1.1,锁存时钟接P1.2 ,行采用1颗74LS154译码器控制,控制端接P2低四位!
          SDATA  EQU  P1.0   ;串行数据输入
          SCLK   EQU  P1.1   ;移位时钟脉冲
          RCK    EQU  P1.2   ;输出锁存器控制脉冲
ORG 000H
JMP MAIN
ORG 0030H
MAIN: MOV SP,#5FH
CALL XIAO
CALL XIAO1
CALL XIAO2
CALL XIAO3
CALL XIAO4
CALL XIAO5
JMP MAIN
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;上拉幕式程序
XIAO: MOV 20H,#00H
MOV R4,#2
YUUU: CALL QINGGG
MOV A,20H
ADD A,#4
MOV 20H,A
CJNE A,#64,YUUU
MOV R0,#50
JIAN: CALL QINGGG
DJNZ R0,JIAN
YUUU1: CALL QINGGG
MOV A,20H
ADD A,#4
MOV 20H,A
CJNE A,#128,YUUU1
MOV R0,#50
JIAN2: CALL QINGGG
DJNZ R0,JIAN2
YU2223: CALL QINGGG
MOV A,20H
ADD A,#4
MOV 20H,A
CJNE A,#256,YU2223
MOV R0,#50
JIAN1: CALL QINGGG
DJNZ R0,JIAN1
DJNZ R4,YUUU
RET
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;下移拉幕式程序
XIAO1: MOV R4,#2
MOV 20H,#00H
MOV A,#00H
MOV 20H,#192
YUUU11: CALL QINGGG
MOV A,20H
ADD A,#252
MOV 20H,A
CJNE A,#128,YUUU11
MOV R0,#50
JIAN11: CALL QINGGG
DJNZ R0,JIAN11
YUUU111: CALL QINGGG
MOV A,20H
ADD A,#252
MOV 20H,A
CJNE A,#64,YUUU111
MOV R0,#50
JIAN211: CALL QINGGG
DJNZ R0,JIAN211
YU222311: CALL QINGGG
MOV A,20H
ADD A,#252
MOV 20H,A
CJNE A,#0,YU222311
MOV R0,#50
JIAN111: CALL QINGGG
DJNZ R0,JIAN111
DJNZ R4,YUUU11
RET
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;上移动
XIAO2: MOV R4,#2
MOV A,#00H
MOV 20H,#00H
YUUU22: CALL QINGG
MOV A,20H
ADD A,#4
MOV 20H,A
CJNE A,#256,YUUU22
CALL AII
DJNZ R4,YUUU22
RET
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;下移动
XIAO3: MOV R4,#2
MOV A,#00H
MOV 20H,#192
YUUU222: CALL QINGG
MOV A,20H
ADD A,#252
MOV 20H,A
CJNE A,#252,YUUU222
CALL AII
DJNZ R4,YUUU222
RET
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;闪断显示
XIAO4: MOV R4,#2
JJJJJ: MOV A,#00H
MOV 20H,#00H
YUUU2222: CALL QINGG1
MOV 20H,R2
CJNE R2,#256,YUUU2222
DJNZ R4,YUUU2222
RET
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;间断闪烁
XIAO5:
MOV A,#00H
MOV 20H,#00H
YUUU2224: CALL QINGG1
CALL AII
JJJJ: CALL QINGG1
CALL AII
MOV 20H,R2
CJNE R2,#256,YUUU2224  
RET
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;子程序
AII: PUSH PSW
CLR RS0
SETB RS1
MOV R0,#255
D12: MOV R1,#255
D13: MOV R2,#5
DJNZ R2,$
DJNZ R1,D13
DJNZ R0,D12
POP PSW
CLR RS0
CLR RS1
RET
QINGG: MOV R6,#8
CALL QINNN
RET
QINGGG: MOV R6,#2
CALL QINNN
RET
QINGG1: MOV R6,#255
CALL QINNN
RET
QINNN: MOV R3,#16
MOV R1,#00H
MOV R2,20H
MAIN3: MOV DPTR,#TAB1
CALL YIN
MOV A,R1
MOV P2,A
INC R1
MOV A,#0FFH
MOV P1,A
CALL DELAY
DJNZ R3,MAIN3
DJNZ R6,QINNN
RET
YIN: MOV A,R2
MOVC A,@A+DPTR
CPL A
CALL YIN1
INC R2
MOV A,R2
MOVC A,@A+DPTR
CPL A
CALL YIN1
INC R2
MOV A,R2
MOVC A,@A+DPTR
CPL A
CALL YIN1
INC R2
MOV A,R2
MOVC A,@A+DPTR
CPL A
CALL YIN1
INC R2
SETB RCK
NOP
CLR RCK
NOP
RET
DELAY: PUSH PSW
CLR RS1
SETB RS0
MOV R0,#3
D1: MOV R1,#50
DJNZ R1,$
DJNZ R0,D1
POP PSW
CLR RS1
CLR RS0
RET
YIN1: MOV R7,#8
D11: RLC A
MOV SDATA,C
NOP
SETB SCLK
NOP
CLR SCLK
NOP
DJNZ R7,D11
RET
  
  
;--------------------------------------------------------------
TAB:  
db 00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H
db 00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H
db 00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H
db 00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H
db 01H,00H,01H,00H,01H,00H,21H,08H,01H,00H,11H,0CH,01H,00H,09H,10H
db 41H,04H,09H,20H,41H,04H,01H,04H,41H,04H,0FFH,0FEH,41H,04H,04H,40H
db 41H,04H,04H,40H,41H,04H,04H,40H,41H,04H,04H,40H,41H,04H,08H,40H
db 41H,04H,08H,42H,7FH,0FCH,10H,42H,40H,04H,20H,3EH,00H,00H,40H,00H
db 01H,00H,04H,40H,7FH,0FCH,0FFH,0FEH,01H,00H,04H,40H,3FH,0F8H,22H,0CH
db 02H,00H,14H,70H,0FFH,0FEH,7FH,40H,04H,40H,49H,40H,08H,20H,7FH,7EH
db 1FH,0F0H,49H,48H,28H,2EH,7FH,48H,0C8H,24H,08H,48H,0FH,0E0H,0FFH,48H
db 08H,20H,08H,88H,08H,20H,08H,88H,0FH,0E0H,09H,08H,08H,20H,08H,08H
db 00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H
db 00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H
db 00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H
db 00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H

TAB1:
db 00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H
db 00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H
db 00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H
db 00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H

db 01H,00H,04H,40H,7FH,0FCH,0FFH,0FEH,01H,00H,04H,40H,3FH,0F8H,22H,0CH
db 02H,00H,14H,70H,0FFH,0FEH,7FH,40H,04H,40H,49H,40H,08H,20H,7FH,7EH
db 1FH,0F0H,49H,48H,28H,2EH,7FH,48H,0C8H,24H,08H,48H,0FH,0E0H,0FFH,48H
db 08H,20H,08H,88H,08H,20H,08H,88H,0FH,0E0H,09H,08H,08H,20H,08H,08H

db 01H,00H,01H,00H,01H,00H,21H,08H,01H,00H,11H,0CH,01H,00H,09H,10H
db 41H,04H,09H,20H,41H,04H,01H,04H,41H,04H,0FFH,0FEH,41H,04H,04H,40H
db 41H,04H,04H,40H,41H,04H,04H,40H,41H,04H,04H,40H,41H,04H,08H,40H
db 41H,04H,08H,42H,7FH,0FCH,10H,42H,40H,04H,20H,3EH,00H,00H,40H,00H
db 00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H
db 00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H
db 00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H
db 00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H



;--------------------------------------------------------------
         END

分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享淘帖 顶 踩
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

手机版|小黑屋|51黑电子论坛 |51黑电子论坛6群 QQ 管理员QQ:125739409;技术交流QQ群281945664

Powered by 单片机教程网

快速回复 返回顶部 返回列表