Bài tập Led chạy hai bên vào ra

[tanlienthuan]

Hệ thống quảng cáo SangNhuong.com

Bài tập Led chạy hai bên vào ra

[video=youtube_share;O3NfAR3oZLQ]http://youtu.be/O3NfAR3oZLQ[/video]

$MOD51
ORG 00H
MAIN:
MOV R1,#00H
MOV DPTR,#DATABASE
LOOP1:
MOV A,R1
MOVC A,@A+DPTR
MOV P0,A
LCALL DELAY
INC R1
CJNE R1,#8,LOOP1
SJMP MAIN
DELAY:
PUSH 00H
MOV R0,#250
MOV TMOD,#01H
LOOP2:
MOV TH0,#HIGH(-15000)
MOV TL0,#LOW(-15000)
SETB TR0
JNB TF0,$
CLR TR0
CLR TF0
DJNZ R0,LOOP2
POP 00H
RET
DATABASE:
DB 0FFH,7EH,0BDH,0DBH,0E7H,0DBH,0BDH,7EH
END

Vào ra hai bên (có đệm đảo)

[video=youtube_share;dyYTuWXR1FA]http://youtu.be/dyYTuWXR1FA[/video]

$MOD51
ORG 00H
MAIN:
MOV R1,#00H
MOV DPTR,#DATABASE
LOOP1:
MOV A,R1
MOVC A,@A+DPTR
MOV P0,A
LCALL DELAY
INC R1
CJNE R1,#8,LOOP1
SJMP MAIN
DELAY:
PUSH 00H
MOV R0,#100
MOV TMOD,#01H
LOOP2:
MOV TH0,#HIGH(-5000)
MOV TL0,#LOW(-5000)
SETB TR0
JNB TF0,$
CLR TR0
CLR TF0
DJNZ R0,LOOP2
POP 00H
RET
DATABASE:
DB 00H,81H,42H,024H,18H,24H,42H,81H ;CO DEM DAO
END

Thêm mạch có đệm đảo

Link Mediafire