本帖最后由 yinqing452 于 2019-8-26 16:24 編輯
注釋：行采用74LS154+PNP三極管驅動
列采用兩個74HC595驅動!
此程序可以實現上移!下面是視頻鏈接實拍效果，請大家查看！鏈接地址：視頻祥見：http://www.tudou.com/programs/view/D0SCJyO4RBQ/
原理圖等都在附件中！
原理圖.jpg (212.96 KB, 下載次數: 36)
下載附件
2019-8-26 16:22 上傳
SDATA EQU P1.0 ;串行數據
SCLK EQU P1.1 ;移位時鐘脈沖
RCK EQU P1.2 ;輸出鎖存器控制脈沖
ORG 000H
JMP MAIN
ORG 0030H
MAIN: MOV SP,#5FH
MOV 20H,#00H
MAIN1: MOV R0,#5
MAIN2: MOV R3,#10H
MOV R1,#00H
MOV R2,20H
MAIN3: MOV DPTR,#TAB
CALL YIN
MOV A,R1
MOV P2,A
INC R1
MOV A,#0FFH
MOV P1,A
MOV R5,#6
D1: MOV R6,#100
DJNZ R6,$
DJNZ R5,D1
DJNZ R3,MAIN3
DJNZ R0,MAIN2
MOV A,20H
ADD A,#02
MOV 20H,A
CJNE A,#100,MAIN1
JMP MAIN
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
NOP
SETB RCK
NOP
CLR RCK
NOP
RET
YIN1: MOV R7,#8
D11: RLC A
MOV SDATA,C
NOP
SETB SCLK
NOP
CLR SCLK
NOP
DJNZ R7,D11
RET
;--------------------------------------------------------------
TAB:
db 22H,08H,11H,08H,11H,10H,00H,20H
db 7FH,0FEH,40H,02H,80H,04H,1FH,0E0H
db 00H,40H,01H,84H,0FFH,0FEH,01H,00H
db 01H,00H,01H,00H,05H,00H,02H,00H
db 00H,00H,00H,04H,0FFH,0FEH,00H,04H
db 08H,04H,04H,04H,02H,04H,02H,24H
db 00H,0C4H,03H,04H,0CH,04H,30H,04H
db 10H,04H,00H,44H,00H,28H,00H,10H
db 02H,00H,02H,00H,02H,08H,03H,0FCH
db 02H,00H,02H,10H,3FH,0F8H,20H,10H
db 20H,10H,20H,10H,3FH,0F0H,00H,00H
db 29H,10H,24H,0C8H,44H,44H,80H,04H
db 00H,80H,78H,84H,4FH,0FEH,50H,80H
db 50H,0A0H,61H,20H,51H,28H,4BH,0FCH
db 48H,20H,48H,20H,68H,24H,57H,0FEH
db 40H,20H,40H,20H,40H,20H,40H,20H
;--------------------------------------------------------------
END
|
QQ好友和群
QQ空間
騰訊微博
騰訊朋友
收藏
淘帖
頂
踩
