Thông báo

**lucky2006** · 23-07-2012, 12:58

Bạn cddt061 ơi sao code náy tôi làm không chạy gì hết vậy bạn. Bạn coi lại xem có bị thiếu gì không cám ơn bạn

**CONGMINHfs** · 02-08-2012, 09:59

Đồng hồ +lịch âm dương với 89s52+ds12887 hiển matran led

cái này mình làm xong đã lâu rồi ,các bác tham khảo cho ý kiến nhé !!!
đây là sản phẩm thách thức sự kiên nhẫn của các bác đấy !!!

DOHO_MATRAN.rar

**CONGMINHfs** · 05-08-2012, 07:36

Đồng hồ +lịch âm dương với 89s52+ds12887 hiển matran led.

hình chụp hơi mờ mong quí vị thông cảm!

**nhu.ta532** · 06-08-2012, 15:10

Nguyên văn bởi cddt061 Xem bài viết

Quét thì làm sao giảm dòng cho led sáng dc, led mà sáng yếu là do thơi gian quét chưa được hợp lý thôi!
Cứ xúc tiến làm đi, có gì thắc mắc sẽ dc giải đáp!

anh có file eagle không gửi cho em với. nhìn cái trên mờ em không vẽ lại được.

**vanluan142** · 20-01-2013, 14:00

bọn này toàn giấu tài thôi

**boynghean** · 20-01-2013, 14:21

Nguyên văn bởi vanluan142 Xem bài viết

bọn này toàn giấu tài thôi

bạn nên ăn nói lịch sự,

**daohuytien** · 20-01-2013, 14:37

Nguyên văn bởi vanluan142 Xem bài viết

bọn này toàn giấu tài thôi

bạn lên diễn dàn để làm gì vậy ? mục đích của bạn chỉ là xin và ăn sẵn thôi à? tui thấy đa phần ae bỏ nhiều công sức : đọc các bài viết, đọc tài liệu, thử nghiệm.... và nhiều thứ nữa, sau rồi ae chia sẻ kiến thức qua cách thức ai chưa hiểu phần nào thì hỏi và có nhiều người trợ giúp. Như thế mới nhanh học được bạn à. mà chính câu nó của bạn toàn giấu tài thôi nghĩa là bạn rốt bạn cần phải học hỏi nhiều, nếu bạn là người tài rồi thì cũng không thể tự bạn chửi bạn được ???

**ngua con** · 15-03-2013, 16:02

"bọn này toàn giấu tài thôi "
nói nghe gét............
diễn đàn là nơi học hỏi
ở đâu có sáng tạo thì ở đó có thành công

**Nevermore** · 16-03-2013, 21:47

Nguyên văn bởi vanluan142 Xem bài viết

bọn này toàn giấu tài thôi

Tài thì mọi người không giấu...có điều bạn chưa đủ trình để hiểu đấy thôi

**chuot48** · 04-04-2013, 17:17

Xin moi người chỉ giáo cho!

Nguyên văn bởi cddt061 Xem bài viết

Cái này mình làm đã 1 năm rồi thấy chạy ổn định nên post cho mọi người coi. Thỉnh thoảng phải chỉnh vì mua phải con 12887 hàng cũ bung máy nên có lỗi tý ty

1 nét trên con 7 đoạn phần tháng bị cháy do mình thử với 12v ko qua trở

nên nó bị vậy đó, ko kiếm dc con nào to tương tự để thay nên cứ để đó.

Mạch nguyên bản của tác giả

Mình vẽ lại thì bỏ con IC cho điểu khiển từ xa, thay lại phần đệm tran......
Code nguyên bản của tác giả

Code:

;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
; P0 data led, P1 quét led ngày tháng năm,P2 quét led giờ phút giây và thứ
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

dwn		bit 	p3.3
up		bit	p3.1
mode		bit	p3.0
mode1	bit	p3.5
bell		bit	p3.4


;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
		org	000h
		jmp	main

		org	003h
		jmp	ngat_n0
	
main:		mov	r3,#0
		lcall	khoitaodallass
		lcall	delay
		mov	ie,#81h
		setb	it0
tu_dau1:	setb	bell
		mov	r2,#0

tu_dau:		lcall	doc_data	
		lcall	hex_bcd
		lcall	bcd_7doan
		lcall	hien_thi
		jb	mode,adj
		jb	mode1,adj_alr
		cjne	r2,#0,ngat_bell
		sjmp	tu_dau

ngat_bell:	lcall	doc_data
		mov	a,4fh
		add	a,#2
		cjne	a,#60,kt_c23
kt_c23:		jc	tiep
		mov	4fh,10h
		jmp	tu_dau

tiep:		cjne	a,10h,tu_dau

		mov	4fh,10h
		cpl	bell
		djnz	4eh,tu_dau
		mov	r0,#0ch
		movx	a,@r0
		jmp	tu_dau1

adj_alr:		jmp	set_alr
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

adj:		lcall	hien_thi
		jb	mode,adj

		mov	78h,#15
adj1:		lcall	hien_thi
		jb	mode,adj
		djnz	78h,adj1

		inc	r3
		cjne	r3,#08,loop	
		mov	r3,#0
		ljmp	tu_dau
			
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
loop:		mov	67h,#10

loop3:		mov	66h,#0afh
loop1:		lcall	doc_data
		lcall	hex_bcd
		lcall	bcd_7doan
		lcall	hien_thi

		jb	up,tang
		jb	dwn,giam1
		jb	mode,adj
		djnz	66h,loop1

		cjne	r3,#1,tatphut
		mov	34h,#0ffh
		mov	35h,#0ffh
		sjmp	tat

tatphut:		cjne	r3,#02,tatgio
		mov	32h,#0ffh
		mov	33h,#0ffh
		sjmp	tat

tatgio:		cjne	r3,#03,tatthu
		mov	30h,#0ffh
		mov	31h,#0ffh
		sjmp	tat

tatthu:		cjne	r3,#04,tatngay
		mov	36h,#0ffh
		sjmp	tat

tatngay:		cjne	r3,#05,tatthang
		mov	37h,#0ffh
		mov	38h,#0ffh
		sjmp	tat

tatthang:	cjne	r3,#06,tatnam
		mov	39h,#0ffh
		mov	3ah,#0ffh
		sjmp	tat

tatnam:		mov	3eh,#0ffh
		mov	3dh,#0ffh

tat:		mov	66h,#0afh
loop2:		lcall	hien_thi

		jb	up,tang
		jb	dwn,giam1
		jb	mode,adj2
		djnz	66h,loop2
		djnz	67h,loop3
		mov	r3,#0
		ljmp	tu_dau

adj2:		ljmp	adj

;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
giam1:		ljmp	giam
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

tang:		mov	78h,#100
tang1:		lcall	hien_thi
		djnz	78h,tang1

		cjne	r3,#01h,ss1		
		mov	r0,#04h			
		movx	a,@r0
		inc	a
		cjne	a,#24,z1
		mov	a,#0
z1:		movx	@r0,a
		jmp	loop	
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

ss1:		cjne	r3,#02h,ss2	
		mov	r0,#02h
		movx	a,@r0
		inc	a
		cjne	a,#60,z1
		mov	a,#0
		jmp	z1
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

ss2:		cjne	r3,#03,ss3
		mov	r0,#0h
		movx	a,@r0
		inc	a
		cjne	a,#060,z1
		mov	a,#0
		jmp	z1
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

ss3:		cjne	r3,#04,ss4
		mov	r0,#06h
		movx	a,@r0
		inc	a
		cjne	a,#08,z1
		mov	a,#01
		jmp	z1
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

ss4:		cjne	r3,#05,ss5
		mov	r0,#07h
		movx	a,@r0
		inc	a
		cjne	a,#032,z1
		mov	a,#00
		jmp	z1
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

ss5:		cjne	r3,#06,ss6
		mov	r0,#08h
		movx	a,@r0
		inc	a
		cjne	a,#013,z1
		mov	a,#01
		jmp	z1
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
ss6:		mov	r0,#09h
		movx	a,@r0
		inc	a
		cjne	a,#100,z1
		mov	a,#00
		jmp	z1

;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

giam:		mov	78h,#100
giam11:		lcall	hien_thi
		djnz	78h,giam11
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

		cjne	r3,#01h,sss1		
		mov	r0,#04			
		movx	a,@r0
		dec	a
		cjne	a,#0ffh,zz1
		mov	a,#23
zz1:		movx	@r0,a
		jmp	loop
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

sss1:		cjne	r3,#02h,sss2	
		mov	r0,#02h
		movx	a,@r0
		dec	a
		cjne	a,#0ffh,zz1
		mov	a,#59
		jmp	zz1
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

sss2:		cjne	r3,#03h,sss3	
		mov	r0,#0h
		movx	a,@r0
		dec	a
		cjne	a,#0ffh,zz1
		mov	a,#59
		jmp	zz1
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
	
sss3:		cjne	r3,#04h,sss4
		mov	r0,#06h
		movx	a,@r0
		dec	a
		cjne	a,#0h,zz1
		mov	a,#7
		jmp	zz1
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

sss4:		cjne	r3,#05h,sss5
		mov	r0,#07h
		movx	a,@r0
		dec	a
		cjne	a,#0ffh,zz1
		mov	a,#31
		jmp	zz1
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

sss5:		cjne	r3,#06,sss6
		mov	r0,#08h
		movx	a,@r0
		dec	a
		cjne	a,#01h,zz1
		mov	a,#12
		jmp	zz1
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

sss6:		mov	r0,#09
		movx	a,@r0
		dec	a
		cjne	a,#0ffh,zz1
		mov	a,#99
		jmp	zz1

;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
; doan ct cai dat bao thuc

set_alr:		lcall	hien_thi_alr
		jb	mode1,set_alr

set_a:		inc	r3
		cjne	r3,#4,wait
		mov	r3,#0
		ljmp	tu_dau

wait:		mov	67h,#10
wait3:		mov	66h,#0ffh
		lcall	doc_data_alr
		lcall	hex_bcd
		lcall	bcd_7doan
wait1:		lcall	hien_thi_alr

		jb	up,tang_alr
		jb	dwn,giam_alr
		jb	mode1,set_alr
		djnz	66h,wait1

		cjne	r3,#1,tatphut_alr
		mov	35h,#0ffh
		mov	34h,#0ffh
		sjmp	tat_alr

tatphut_alr:	cjne	r3,#2,tatgiay_alr
		mov	32h,#0ffh
		mov	33h,#0ffh
		sjmp	tat_alr

tatgiay_alr:	mov	31h,#0ffh
		mov	30h,#0ffh

tat_alr:		mov	66h,#0ffh
wait2:		lcall	hien_thi_alr

		jb	up,tang_alr
		jb	dwn,giam_alr
		jb	mode1,set_alr
		djnz	66h,wait2
		djnz	67h,wait3
		mov	r3,#0
		ljmp	tu_dau

;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

tang_alr:	mov	78h,#200
tang1_alr:	lcall	hien_thi_alr
		djnz	78h,tang1_alr

waitx3:	cjne	r3,#01h,ss_alr1		
		mov	r0,#05h			
		movx	a,@r0
		inc	a
		cjne	a,#24,z_alr1
		mov	a,#0
z_alr1:		movx	@r0,a
		jmp	wait	
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

ss_alr1:		cjne	r3,#2,ss_alr2
		mov	r0,#03h
		movx	a,@r0
		inc	a
		cjne	a,#60,z_alr1
		mov	a,#0
		jmp	z_alr1

ss_alr2:		mov	r0,#01h
		movx	a,@r0
		inc	a
		cjne	a,#60,z_alr1
		mov	a,#0
		jmp	z_alr1

;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

giam_alr:	mov	78h,#200
giam_alr11:	lcall	hien_thi_alr
		djnz	78h,giam_alr11
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

waity3:	cjne	r3,#01h,sss_alr1		
		mov	r0,#5			
		movx	a,@r0
		dec	a
		cjne	a,#0ffh,zz_alr1
		mov	a,#24
zz_alr1:		movx	@r0,a
		jmp	wait	
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

sss_alr1:	cjne	r3,#2,sss_alr2
		mov	r0,#03h
		movx	a,@r0
		dec	a
		cjne	a,#0ffh,zz_alr1
		mov	a,#59
		jmp	zz_alr1

sss_alr2:	mov	r0,#01h
		movx	a,@r0
		dec	a
		cjne	a,#0ffh,zz_alr1
		mov	a,#59
		jmp	zz_alr1
		
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
khoitaodallass:	mov	r0,#0bh
		mov	a,#026h
		movx	@r0,a	;cho phep chinh cai dat gio

		mov	r0,#0ah
		mov	a,#020h
		movx	@r0,a	;cho phep bo dao dong chay 

		mov	r0,#0ch
		movx	a,@r0
		ret
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
doc_data:	mov	r0,#0
		mov	r1,#10h

	x1:	movx	a,@r0
		mov	@r1,a

		inc	r0
		inc	r0
		inc	r1
		cjne	r0,#06h,x1	 

		movx	a,@r0
		mov	@r1,a

		inc	r1
		inc	r0
	
x2:		movx	a,@r0
		mov	@r1,a
		inc	r0
		inc	r1
		cjne	r0,#0ah,x2
		ret
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
doc_data_alr:	mov	r0,#01h
		movx	a,@r0
		mov	10h,a

		mov	r0,#03h
		movx	a,@r0
		mov	11h,a

		mov	r0,#05h
		movx	a,@r0
		mov	12h,a
		ret

;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
hex_bcd:	mov	r0,#10h
		mov	r1,#20h

hb:		mov	a,@r0
		mov	b,#10
		div	ab
		mov	@r1,b
		inc	r1
		mov	@r1,a

		inc	r0
		inc	r1
		cjne	r0,#13h,hb

		mov	26h,13h		; thu

		mov	r0,#014h
		mov	r1,#27h

hb1:		mov	a,@r0
		mov	b,#10
		div	ab
		mov	@r1,a
		inc	r1
		mov	@r1,b

		inc	r0
		inc	r1
		cjne	r0,#17h,hb1
		ret

;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

bcd_7doan:	mov	dptr,#900h
		mov	r0,#20h
		mov	r1,#30h ;chua cac ma data
		
x3:		mov	a,@r0 	;lay giay
		movc	a,@a+dptr
		mov	@r1,a

		inc	r0
		inc	r1
		cjne	r0,#2dh,x3
		
		mov	3dh,3bh
		mov	3eh,3ch

		mov	3bh,#0a4h
		mov	3ch,#0c0h

		mov	a,36h
		cjne	a,#0f9h,exit3
		mov	36h,#0c6h
		
exit3:		ret

;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
hien_thi:	mov	r0,#30h
		mov	a,#0feh

ht:		mov	p0,@r0
		mov	p1,a
		lcall	delay
		mov	p1,#0ffh

		inc	r0
		rl	a
		cjne	a,#0feh,ht
	
ht1:		mov	p0,@r0
		mov	p2,a
		lcall	delay
		mov	p2,#0ffh
		inc	r0
		rl	a
		cjne	a,#07fh,ht1
		ret
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

hien_thi_alr:	mov	r0,#30h
		mov	a,#0feh

ht11:		mov	p0,@r0
		mov	p1,a
		lcall	delay
		mov	p1,#0ffh

		inc	r0
		rl	a
		cjne	a,#0bfh,ht11
		ret
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
ngat_n0:	mov	4fh,10h
		mov	4eh,#6
		mov	r2,#1
		clr	bell
		reti

;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

delay:		mov	7fh,#100
		djnz	7fh,$
		ret

;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx	
	org	900h

db	0c0h,0f9h,0a4h,0b0h,99h,92h,82h,0f8h,80h,90h
	end

Do lười vè SCh nên chỉ vẽ pcb

, sch coi lại của tác giả nhé, đây là PCB mạch điều khiển có chỉnh sửa cho phù hợp:
Một con 89 góc phải phía dưới định làm mạch nhạc bài "A time for us" mỗi khi đổ chuông, nhưng thất bại nên để trống đó!

Toàn làm rời và kết nối các module lại với nhau.

Module giờ phút giây

Module ngày tháng

Module năm

Mình dùng mấy con led 7 thanh to to, 5v ko sáng dc nên chơi điện 12V và qua ít trở 100R hạn dòng, các khóa đóng mở cho led sáng dc ghép darlington

Code của mình khi thay đổi, sửa chữa đâu đó, và bớt phần ko cần thiết ( cài giờ đổ chuông) để phù hợp!

Code:

;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
; P0 data led, P1 quét led ngày tháng năm,P2 quét led giờ phút giây và thứ
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

dwn		bit 	p3.3
up		bit	p3.4
mode		bit	p3.2
mode1	bit	p3.0
bell		bit	p3.1


;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
		org	000h
		jmp	main

		org	003h
		jmp	ngat_n0
	
main:		mov	r3,#0
		lcall	khoitaodallass
		lcall	delay
		mov	ie,#81h
		setb	it0
tu_dau1:	setb	bell
		mov	r2,#0

tu_dau:		lcall	doc_data	
		lcall	hex_bcd
		lcall	bcd_7doan
		lcall	hien_thi
		jnb	mode,adj
		jnb	mode1,adj_alr
		cjne	r2,#0,ngat_bell
		sjmp	tu_dau

ngat_bell:	lcall	doc_data
		mov	a,4fh
		add	a,#2
		cjne	a,#60,kt_c23
kt_c23:		jc	tiep
		mov	4fh,10h
		jmp	tu_dau

tiep:		cjne	a,10h,tu_dau

		mov	4fh,10h
		cpl	bell
		djnz	4eh,tu_dau
		mov	r0,#0ch
		movx	a,@r0
		jmp	tu_dau1

adj_alr:		jmp	set_alr
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

adj:		lcall	hien_thi
		jnb	mode,adj

		mov	78h,#15
adj1:		lcall	hien_thi
		jnb	mode,adj
		djnz	78h,adj1

		inc	r3
		cjne	r3,#08,loop	
		mov	r3,#0
		ljmp	tu_dau
			
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
loop:		mov	67h,#10

loop3:		mov	66h,#0afh
loop1:		lcall	doc_data
		lcall	hex_bcd
		lcall	bcd_7doan
		lcall	hien_thi

		jnb	up,tang
		jnb	dwn,giam1
		jnb	mode,adj
		djnz	66h,loop1

		cjne	r3,#1,tatphut
		mov	34h,#0ffh
		mov	35h,#0ffh
		sjmp	tat

tatphut:		cjne	r3,#02,tatgio
		mov	32h,#0ffh
		mov	33h,#0ffh
		sjmp	tat

tatgio:		cjne	r3,#03,tatthu
		mov	30h,#0ffh
		mov	31h,#0ffh
		sjmp	tat

tatthu:		cjne	r3,#04,tatngay
		mov	36h,#0ffh
		sjmp	tat

tatngay:		cjne	r3,#05,tatthang
		mov	37h,#0ffh
		mov	38h,#0ffh
		sjmp	tat

tatthang:	cjne	r3,#06,tatnam
		mov	39h,#0ffh
		mov	3ah,#0ffh
		sjmp	tat

tatnam:		mov	3eh,#0ffh
		mov	3dh,#0ffh

tat:		mov	66h,#0afh
loop2:		lcall	hien_thi

		jnb	up,tang
		jnb	dwn,giam1
		jnb	mode,adj2
		djnz	66h,loop2
		djnz	67h,loop3
		mov	r3,#0
		ljmp	tu_dau

adj2:		ljmp	adj

;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
giam1:		ljmp	giam
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

tang:		mov	78h,#100
tang1:		lcall	hien_thi
		djnz	78h,tang1

		cjne	r3,#01h,ss1		
		mov	r0,#04h			
		movx	a,@r0
		inc	a
		cjne	a,#24,z1
		mov	a,#0
z1:		movx	@r0,a
		jmp	loop	
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

ss1:		cjne	r3,#02h,ss2	
		mov	r0,#02h
		movx	a,@r0
		inc	a
		cjne	a,#60,z1
		mov	a,#0
		jmp	z1
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

ss2:		cjne	r3,#03,ss3
		mov	r0,#0h
		movx	a,@r0
		inc	a
		cjne	a,#060,z1
		mov	a,#0
		jmp	z1
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

ss3:		cjne	r3,#04,ss4
		mov	r0,#06h
		movx	a,@r0
		inc	a
		cjne	a,#08,z1
		mov	a,#01
		jmp	z1
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

ss4:		cjne	r3,#05,ss5
		mov	r0,#07h
		movx	a,@r0
		inc	a
		cjne	a,#032,z1
		mov	a,#00
		jmp	z1
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

ss5:		cjne	r3,#06,ss6
		mov	r0,#08h
		movx	a,@r0
		inc	a
		cjne	a,#013,z1
		mov	a,#01
		jmp	z1
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
ss6:		mov	r0,#09h
		movx	a,@r0
		inc	a
		cjne	a,#100,z1
		mov	a,#00
		jmp	z1

;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

giam:		mov	78h,#100
giam11:		lcall	hien_thi
		djnz	78h,giam11
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

		cjne	r3,#01h,sss1		
		mov	r0,#04			
		movx	a,@r0
		dec	a
		cjne	a,#0ffh,zz1
		mov	a,#23
zz1:		movx	@r0,a
		jmp	loop
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

sss1:		cjne	r3,#02h,sss2	
		mov	r0,#02h
		movx	a,@r0
		dec	a
		cjne	a,#0ffh,zz1
		mov	a,#59
		jmp	zz1
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

sss2:		cjne	r3,#03h,sss3	
		mov	r0,#0h
		movx	a,@r0
		dec	a
		cjne	a,#0ffh,zz1
		mov	a,#59
		jmp	zz1
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
	
sss3:		cjne	r3,#04h,sss4
		mov	r0,#06h
		movx	a,@r0
		dec	a
		cjne	a,#0h,zz1
		mov	a,#7
		jmp	zz1
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

sss4:		cjne	r3,#05h,sss5
		mov	r0,#07h
		movx	a,@r0
		dec	a
		cjne	a,#0ffh,zz1
		mov	a,#31
		jmp	zz1
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

sss5:		cjne	r3,#06,sss6
		mov	r0,#08h
		movx	a,@r0
		dec	a
		cjne	a,#01h,zz1
		mov	a,#12
		jmp	zz1
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

sss6:		mov	r0,#09
		movx	a,@r0
		dec	a
		cjne	a,#0ffh,zz1
		mov	a,#99
		jmp	zz1

;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
; doan ct cai dat bao thuc

set_alr:		lcall	hien_thi_alr
		jb	mode1,set_alr

set_a:		inc	r3
		cjne	r3,#4,wait
		mov	r3,#0
		ljmp	tu_dau

wait:		mov	67h,#10
wait3:		mov	66h,#0ffh
		lcall	doc_data_alr
		lcall	hex_bcd
		lcall	bcd_7doan
wait1:		lcall	hien_thi_alr

		jnb	up,tang_alr
		jnb	dwn,giam_alr
		jnb	mode1,set_alr
		djnz	66h,wait1

		cjne	r3,#1,tatphut_alr
		mov	35h,#0ffh
		mov	34h,#0ffh
		sjmp	tat_alr

tatphut_alr:	cjne	r3,#2,tatgiay_alr
		mov	32h,#0ffh
		mov	33h,#0ffh
		sjmp	tat_alr

tatgiay_alr:	mov	31h,#0ffh
		mov	30h,#0ffh

tat_alr:		mov	66h,#0ffh
wait2:		lcall	hien_thi_alr

		jnb	up,tang_alr
		jnb	dwn,giam_alr
		jnb	mode1,set_alr
		djnz	66h,wait2
		djnz	67h,wait3
		mov	r3,#0
		ljmp	tu_dau

;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

tang_alr:	mov	78h,#200
tang1_alr:	lcall	hien_thi_alr
		djnz	78h,tang1_alr

waitx3:	cjne	r3,#01h,ss_alr1		
		mov	r0,#05h			
		movx	a,@r0
		inc	a
		cjne	a,#24,z_alr1
		mov	a,#0
z_alr1:		movx	@r0,a
		jmp	wait	
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

ss_alr1:		cjne	r3,#2,ss_alr2
		mov	r0,#03h
		movx	a,@r0
		inc	a
		cjne	a,#60,z_alr1
		mov	a,#0
		jmp	z_alr1

ss_alr2:		mov	r0,#01h
		movx	a,@r0
		inc	a
		cjne	a,#60,z_alr1
		mov	a,#0
		jmp	z_alr1

;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

giam_alr:	mov	78h,#200
giam_alr11:	lcall	hien_thi_alr
		djnz	78h,giam_alr11
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

waity3:	cjne	r3,#01h,sss_alr1		
		mov	r0,#5			
		movx	a,@r0
		dec	a
		cjne	a,#0ffh,zz_alr1
		mov	a,#24
zz_alr1:		movx	@r0,a
		jmp	wait	
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

sss_alr1:	cjne	r3,#2,sss_alr2
		mov	r0,#03h
		movx	a,@r0
		dec	a
		cjne	a,#0ffh,zz_alr1
		mov	a,#59
		jmp	zz_alr1

sss_alr2:	mov	r0,#01h
		movx	a,@r0
		dec	a
		cjne	a,#0ffh,zz_alr1
		mov	a,#59
		jmp	zz_alr1
		
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
khoitaodallass:	mov	r0,#0bh
		mov	a,#026h
		movx	@r0,a	;cho phep chinh cai dat gio

		mov	r0,#0ah
		mov	a,#020h
		movx	@r0,a	;cho phep bo dao dong chay 

		mov	r0,#0ch
		movx	a,@r0
		ret
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
doc_data:	mov	r0,#0
		mov	r1,#10h

	x1:	movx	a,@r0
		mov	@r1,a

		inc	r0
		inc	r0
		inc	r1
		cjne	r0,#06h,x1	 

		movx	a,@r0
		mov	@r1,a

		inc	r1
		inc	r0
	
x2:		movx	a,@r0
		mov	@r1,a
		inc	r0
		inc	r1
		cjne	r0,#0ah,x2
		ret
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
doc_data_alr:	mov	r0,#01h
		movx	a,@r0
		mov	10h,a

		mov	r0,#03h
		movx	a,@r0
		mov	11h,a

		mov	r0,#05h
		movx	a,@r0
		mov	12h,a
		ret

;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
hex_bcd:	mov	r0,#10h
		mov	r1,#20h

hb:		mov	a,@r0
		mov	b,#10
		div	ab
		mov	@r1,b
		inc	r1
		mov	@r1,a

		inc	r0
		inc	r1
		cjne	r0,#13h,hb

		mov	26h,13h		; thu

		mov	r0,#014h
		mov	r1,#27h

hb1:		mov	a,@r0
		mov	b,#10
		div	ab
		mov	@r1,a
		inc	r1
		mov	@r1,b

		inc	r0
		inc	r1
		cjne	r0,#17h,hb1
		ret

;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

bcd_7doan:	mov	dptr,#900h
		mov	r0,#20h
		mov	r1,#30h ;chua cac ma data
		
x3:		mov	a,@r0 	;lay giay
		movc	a,@a+dptr
		mov	@r1,a

		inc	r0
		inc	r1
		cjne	r0,#2dh,x3
		
		mov	3dh,3bh
		mov	3eh,3ch

		mov	3bh,#0a4h
		mov	3ch,#0c0h

		mov	a,36h
		cjne	a,#0f9h,exit3
		mov	36h,#0c6h
		
exit3:		ret

;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
hien_thi:	mov	r0,#30h


ht:	mov	p0,@r0
		setb 	p2.0
		lcall	delay
		mov	p2,#0
		
		inc	r0
		mov	p0,@r0
		setb 	p2.1
		lcall	delay
		mov	p2,#0
		
		inc	r0
		mov	p0,@r0
		setb 	p2.2
		lcall	delay
		mov	p2,#0
				
		inc	r0
		mov	p0,@r0
		setb 	p2.3
		lcall	delay
		mov	p2,#0
		
		inc	r0
		mov	p0,@r0
		setb 	p2.4
		lcall	delay
		mov	p2,#0
		
		inc	r0
		mov	p0,@r0
		setb 	p2.5
		lcall	delay
		mov	p2,#0

		inc	r0
		mov	p0,@r0
		setb 	p2.6
		lcall	delay
		mov	p2,#0
					
ht1:	inc	r0
		mov	p0,@r0
		setb	p1.0
		lcall	delay
		mov	p1,#0
		
		inc	r0
		mov	p0,@r0
		setb	p1.1
		lcall	delay
		mov	p1,#0
		
		inc	r0
		mov	p0,@r0
		setb	p1.2
		lcall	delay
		mov	p1,#0
		
		inc	r0
		mov	p0,@r0
		setb	p1.3
		lcall	delay
		mov	p1,#0
		
		inc	r0
		mov	p0,@r0
		setb	p1.4
		lcall	delay
		mov	p1,#0
		
		inc	r0
		mov	p0,@r0
		setb	p1.5
		lcall	delay
		mov	p1,#0
		
		inc	r0
		mov	p0,@r0
		setb	p1.6
		lcall	delay
		mov	p1,#0
		
		inc	r0
		mov	p0,@r0
		setb	p1.7
		lcall	delay
		mov	p1,#0
		
		ret
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

hien_thi_alr:	mov	r0,#30h
		mov	a,#0feh
		cpl	a

ht11:		mov	p0,@r0
		mov	p1,a
		lcall	delay
		mov	p1,#0ffh

		inc	r0
		rl	a
		cjne	a,#0bfh,ht11
		ret
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
ngat_n0:	mov	4fh,10h
		mov	4eh,#6
		mov	r2,#1
		clr	bell
		reti

;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

delay:		mov	7fh,#100
		djnz	7fh,$
		ret

;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx	
	org	900h

db	0c0h,0f9h,0a4h,0b0h,99h,92h,82h,0f8h,80h,90h
	end

P/S: Cái này ko phải do mình viết ra, mình chỉ vẽ lại phần cứng, sửa code cho phù hợp với phần cứng mình thiết kế mà thôi (chủ yếu là sửa phần nút bấm với phần hiển thị). Các bạn có thể tham khảo file gốc để thay đổi phù hợp hơn

Thân

Tôi gà mờ lắm ,đừng cười tôi nhé vì tôi không phải công dân điện tử đâu! Xin phép hỏi bạn: trong đồng hồ lịch vạn niên thì thạch anh nằm ở đâu?có phải cái màu trắng(vỏ nhôm) hình trụ to gần bằng đầu đũa nằm cạnh IC không vậy bạn?Bạn chỉ giùm nhé ...và "ngắn mạch" nghĩa là sao ? bạn giúp mình với .Đông hồ của tôi cũng bị hỏng như của các bạn,đã đem đi chữa nhiều thợ mà vẫn không chỉnh được.Tôi mong các bạn am tường về điện tử mách nước cho tôi với nhé.Nếu bạn nào nhiệt tình giúp đỡ xin gửi Email cho tôi-Xuanvu3@gmail.com.Xin cảm ơn!

**chuot48** · 04-04-2013, 17:38

Tôi gà mờ lắm ,đừng cười tôi nhé vì tôi không phải công dân điện tử đâu! Xin phép hỏi bạn: trong đồng hồ lịch vạn niên thì thạch anh nằm ở đâu?có phải cái màu trắng(vỏ nhôm) hình trụ to gần bằng đầu đũa nằm cạnh IC không vậy bạn?Bạn chỉ giùm nhé ...và "ngắn mạch" nghĩa là sao ? bạn giúp mình với .Đông hồ của tôi cũng bị hỏng như của các bạn,đã đem đi chữa nhiều thợ mà vẫn không chỉnh được.Tôi mong các bạn am tường về điện tử mách nước cho tôi với nhé.Nếu bạn nào nhiệt tình giúp đỡ xin gửi Email cho tôi-Xuanvu3@gmail.com.Xin cảm ơn!

**ngvtrieu** · 05-05-2013, 19:05

sao mình nạp file hex vào tets trên proteus ko thấy chạy, báo lỗi?

**khongthenga** · 09-06-2013, 17:44

em đang định làm làm 1 cái lịch vạn niên mà chưa pít làm thế nào.bác nào có mạch và code ko cho e xin cái

**nguyennam889** · 13-06-2013, 02:06

Nguyên văn bởi khongthenga Xem bài viết

em đang định làm làm 1 cái lịch vạn niên mà chưa pít làm thế nào.bác nào có mạch và code ko cho e xin cái

mạch này mình nhặt nhạnh đc trên diễn đàn, ngâm kíu thử xem sao Download File: donghovn.rar - UpFile.me

**nguyennam889** · 13-06-2013, 02:18

Nguyên văn bởi chuot48 Xem bài viết

Tôi gà mờ lắm ,đừng cười tôi nhé vì tôi không phải công dân điện tử đâu! Xin phép hỏi bạn: trong đồng hồ lịch vạn niên thì thạch anh nằm ở đâu?có phải cái màu trắng(vỏ nhôm) hình trụ to gần bằng đầu đũa nằm cạnh IC không vậy bạn?Bạn chỉ giùm nhé ...và "ngắn mạch" nghĩa là sao ? bạn giúp mình với .Đông hồ của tôi cũng bị hỏng như của các bạn,đã đem đi chữa nhiều thợ mà vẫn không chỉnh được.Tôi mong các bạn am tường về điện tử mách nước cho tôi với nhé.Nếu bạn nào nhiệt tình giúp đỡ xin gửi Email cho tôi-Xuanvu3@gmail.com.Xin cảm ơn!

thạch anh như các hạ mô tả cũng giống với khái niệm thạch anh của tại hạ
ngắn mạch là hiện tượng hai mức điện áp (vì 1 lý do nào đó: ngoại lực, hoàn cảnh ...) chạm chập vào nhau mà R = 0 , dòng điện lúc đó sẽ tăng đến vô cùng gây hỏng cầu chì hoặc cháy nổ mạch điện

Thông báo

Đồng hồ lịch vạn niên với 89c51 và DS12887

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Về tác giả

Bài viết mới nhất