Giup de voi ! Mach dong ho 8051!

[thanhbinhbk0]

De muon lam mot mach dong ho dung 8051! Phan cung thi OK, nhung viet chuong trinh thi khong biet lam sao? Nghe noi quet LED gi do ko hieu? DE lam thu MOV P2,#10000001b nhung den van sang het la sao? kho wa !Hu Hu

[the_sun]

Quét led thực hiện theo nguyên tắc xuất dữ liệu trước và kích mở led sau. Lợi dụng mắt người chỉ phân biệt được dưới 24h/s do đó ta xuất ra led một cách liên tục khoảng 50h/s thì mắt sẽ cảm giác led êm, không nhấp nháy.
VD : để hiển thị số 12 thì lần lượt xuất mã số 1,mở led1,delay vài us,tắt 2 led, xuất mã số 2,mở led2,delay vài us, tiếp tục quay lại xuất mã số 1,... tùy thời gian hiển thị số 12 trong bao lâu mà lặp lại số lần cho phù hợp.

[ChuBon]

;********************** KHAI BAO BIEN THANH GHI LED ***********
;*************CAC BIEN NAP CHO LED BAY HANH*****************************
;	A      P3.0    B    P3.2      C	  P3.3	 D    P3.4
;	E      P3.5    F     P3.6     G	  P3.7

;********************* BO DINH THOI THEO GIAY ****************
	ORG	00H		; khoi dong chuong trinh o dia chi 00h
MAIN:
	MOV	TMOD,#01H	;khoi dong bo dinh thoi 0
	ACALL	THOIGIAN		

;***************** NGAT DINH THOI 0 *************************
THOIGIAN:	MOV	TH0,#HIGH(-4840) 	;tao ra chu ky quet
		MOV	TL0,#LOW(-4840)		;khoang 24 hinh/s
		SETB	TR0
		INC	R0
		CJNE    R0,#01,PHUT        	
	             SETB	P1.7			; CHAY 3 LED
		CLR	P1.6
		CLR	P1.5
		MOV     DPTR,#hienthi 
		MOV     A,R7                                   ;PHUT
	             MOVC    A,@A+DPTR         
        	             MOV     P3,A             
WAIT:		JNB	TF0,$
		CLR	TF0    
		CLR	TR0
		JMP	THOIGIAN
             	RET  
                                               
PHUT:      	CJNE    R0,#02,10GIAY 
		CLR	P1.7
		SETB	P1.6
		CLR	P1.5
	     	MOV     DPTR,#hienthi
	             MOV	A,R6                                  ;10 GIAY
	             MOVC    A,@A+DPTR          
             	MOV     P3,A    
       		JMP	WAIT
             	RET                                                       

10GIAY:   	CJNE    R0,#03,WAIT
		MOV	R0,#00H
	 	CLR	P1.7
		CLR	P1.6
		SETB	P1.5
	     	MOV     DPTR,#hienthi
	       	MOV     A,R5			;GIAY              
                          MOVC   A,@A+DPTR          
        	             MOV     P3,A  	
		JMP      WAIT
		RET
		...
				
;********PHAN NHO  GIUP BAN NHIEU ĐẤY CHO 3 LED 7 THANH  *******		
	
;hien thi led 7 thanh
hienthi:	DB	00000101B,10011111B,10100001B,10001001B
	DB      00011011B,01001001B,01000001B,10011101B
 	DB      00000001B,00001001B	
             END

[agnort]

Mình ví dụ về tăng giây tới 59 dùng kỹ thuật quét led

Mình chia sẽ với bạn thanhbinhbk0 về 1 vd như sau:

;đếm giây có sử dụng ngắt lấy timer1
org 0000h
ljmp chtrchinh

org 000bh
ljmp chtrngat

org 0030h

chtrchinh:
led equ p1 ;giải mã ra led 7 thanh
quet equ p2 ;chọn từng led để hiển thị (phương pháp quet)

mov tmod,#11h
mov dptr,#tangso

clr tf0
mov ie,#82h
mov th0,#03ch
mov tl0,#0b0h
setb tr0

main:
mov r1,#0 ;nạp vào hàng chục giây
main2: mov r0,#0 ;nạp vào đơn vị giây
main1: mov r7,#0 ;nap số đếm để hiễn thị đủ 1s

lcall gma
hthi1: lcall hienthi
cjne r7,#20,hthi1 ;xem coi có đủ 1s chưa

inc r0 ;tăng giay lên
cjne r0,#10,main1

inc r1
cjne r1,#6,main2 ;tăng gia trị chục giây lên 1 rồi nạp lại cho dv giây

ljmp main

gma:
mov a,r0
movc a,@a+dptr
mov 70h,a ;cất giá trị dv giây

mov a,r1
movc a,@a+dptr
mov 71h,a ;cất giá trị hàng chục giây
ret

hienthi:
mov quet,#0feh
mov led,70h
lcall delayquet
mov quet,#0ffh

mov quet,#0fdh
mov led,71h
lcall delayquet
mov quet,#0ffh
ret

chtrngat:
inc r7
mov th0,#03ch
mov tl0,#0b5h
clr tf0
reti

tangso:
db 0c0h,0f9h,0a4h,0b0h,099h,092h,082h,0f8h,080h,090h

delayquet:
mov th1,#high(-5000)
mov tl1,#low(-5000)
setb tr1
jnb tf1,$
clr tf1
clr tr1
ret
end

[thanhbinhbk0]

Cac Anh Co The Ghi Cho Em Code Xuat Ra Tu 1 Den 9 ? Thoi Gian Delay Bao Nhieu La Hop Ly Nhat?
Khi Quet 6 Led Thi Co Phai Trong 1 Lan Quet, Cho 1 Led Sang, 5 Led Tat , Sau Do Delay Vai Giay Roi Cho Led 2 Sang, 5 Led Khac Tat?

[thanhbinhbk0]

Cac Anh Co The Ghi Cho Em Code Xuat Ra Tu 1 Den 9 ? Thoi Gian Delay Bao Nhieu La Hop Ly Nhat?
Khi Quet 6 Led Thi Co Phai Trong 1 Lan Quet, Cho 1 Led Sang, 5 Led Tat , Sau Do Delay Vai Giay Roi Cho Led 2 Sang, 5 Led Khac Tat?