dengiaothong

[vohuynh]

minh mới làm xong đèn giao thong chay rất tốt,bạn nào muôn lam thi lay file asm ne:

4.Chương trình assembly:

$mod51
org 0000h
MOV P0,#0FFH
MOV P1,#0FFH
MOV P2,#0FFH
XANH EQU 25H
DO EQU 29H
;*************
;P0.6 XANH 1
;P0.4 VANG 1
;P0.7 DO 1
;P0.3 D0 2
;P0.2 XANH 2
;P0.5 VANG 2



;*****************
main:
MOV do,#1dH ;29
MOV xanh,#19H ;25
CLR P0.6
CLR P0.3
CLR P0.1
SETB P0.2
SETB P0.4
SETB P0.5
SETB P0.7
SETB P0.0
LCALL HIEN_THI
T2:
DEC XANH
DEC DO
MOV A,DO
MOV R1,XANH
DEC A
DEC R1
LCALL HIEN_THI
CJNE A,#00H,T2
CJNE R1,#00H,T2
MOV XANH,#00H
DEC DO
LCALL HIEN_THI
MOV XANH,#03H
SETB P0.6
CLR P0.3
CLR P0.1
SETB P0.2
CLR P0.4
SETB P0.5
SETB P0.7
CLR P0.0
LCALL HIEN_THI
T3:
DEC XANH
MOV R1,XANH
DEC DO
MOV A,DO
LCALL HIEN_THI
CJNE A,#00H,T3
CJNE R1,#00H,T3
MOV XANH,#1dH ;27
MOV DO,#19H ;25
CLR P0.2
CLR P0.7
CLR P0.0
SETB P0.1
SETB P0.3
SETB P0.4
SETB P0.5
SETB P0.6
LCALL HIEN_THI
T4:
DEC XANH
DEC DO
MOV A,XANH
MOV R1,DO
DEC A
DEC R1
LCALL HIEN_THI
CLR P0.2
CLR P0.7
CLR P0.0
SETB P0.1
SETB P0.3
SETB P0.4
SETB P0.5
SETB P0.6
CJNE A,#00H,T4
CJNE R1,#00H,T4


;********************
MOV DO,#00H
DEC XANH
LCALL HIEN_THI
MOV DO,#03H
CLR P0.3
CLR P0.5
CLR P0.0
SETB P0.1
SETB P0.2
SETB P0.3
SETB P0.4
CLR P0.7
LCALL HIEN_THI
T6:
DEC DO
MOV R1,DO
DEC XANH
MOV A,XANH
LCALL HIEN_THI
CJNE A,#00H,T6
CJNE R1,#00H,T6
LJMP MAIN
;**********************
HIEN_THI:
MOV R5,#5
D2: MOV R6,#200
D3: MOV R7,#250
MOV A,XANH
MOV B,#0AH
DIV AB
MOV R0,A
SETB P2.0
SETB P2.1
LCALL GIAI_MA
MOV R3,#50
CLR P2.0
SETB P2.1
DJNZ R3,$
SETB P2.0
SETB P2.1
MOV R0,B
LCALL GIAI_MA
MOV R3,#50
SETB P2.0
CLR P2.1
DJNZ R3,$
SETB P2.0
SETB P2.1


MOV A,DO
MOV B,#0AH
DIV AB
MOV R0,A
SETB P2.2
SETB P2.3
LCALL GIAI_MA
MOV R3,#50
CLR P2.2
SETB P2.3
DJNZ R3,$
SETB P2.2
SETB P2.3
MOV R0,B
LCALL GIAI_MA
MOV R3,#50
CLR P2.3
SETB P2.2
DJNZ R3,$
SETB P2.2
SETB P2.3
DJNZ R7,$
DJNZ R6,D3
DJNZ R5,D2
RET
;******************************
GIAI_MA:
CJNE r0,#00h,S1
mov p1,#00000101b
RET
S1:
CJNE r0,#01h,S2
mov p1,#10011111b
RET
S2:
CJNE r0,#02h,S3
mov p1,#00100011b
RET
S3:
CJNE R0,#03h,S4
mov p1,#00001011b
RET
S4:
CJNE r0,#04h,S5
mov p1,#10011001b
RET
S5:
CJNE r0,#05h,S6
mov p1,#01001001b
RET
S6:
CJNE r0,#06h,S7
mov p1,#01000001b
RET
S7:
CJNE r0,#07h,S8
mov p1,#00011111b
RET
S8:
CJNE r0,#08h,S9
mov p1,#000000001b
RET
S9:
CJNE r0,#09h,vo
mov p1,#00001001b
vo:
RET
;*********************************
END

[lephvantuyen]

khong co mach dien tu dung 89s52 ha cac bac
mach ke noi cu the a!

[dinh_namviet]

sao may cai nay ko co ai tham gia vay. lap trinh PCL ban co the post len duoc hem

[vukhuong73]

cam on ban nhung ma minh chua thay mach den giao thong dau
co the pót len ko?
hoac gui vao mail:vukhuong73144@gmail.com cho minh ko?