Đừng post bài hai lần và làm ơn post bài có dấu . Cooloo
Thông báo
Collapse
No announcement yet.
Làm mạch đồng hồ điện tử
Collapse
X
-
dong ho so
Dvgiay Equ 70h
Chgiay Equ 71h
Dvphut Equ 72h
Chphut Equ 73h
Dvgio Equ 74h
Chgio Equ 75h
Bdn Equ 10h
Org 00h
Jmp Main
Org 0bh
Jmp Ngat_t0
Main:
Mov Tmod,#01h
Mov Th0,#high(-50000)
Mov Tl0,#low(-50000)
Mov Ie,#82h
Setb Tr0
Mov 70h,#0
Mov 71h,#0
Mov 72h,#0
Mov 73h,#0
Mov 74h,#0
Mov 75h,#0
Mov Bdn,#0
Tieptuc:
Call Bcd_7doan
Ht:
Call Hienthi
Mov A,bdn
Cjne A,#20,ht
Mov Bdn,#0
Mov A,dvgiay
Cjne A,#10,tieptuc
Mov Dvgiay,#0
Inc Chgiay
Cjne A,#6,tieptuc
Mov Chgiay,#0
Inc Dvphut
Cjne A,#10,tieptuc
Mov Dvphut,#0
Inc Chphut
Cjne A,#6,tieptuc
Mov Chphut,#0
Inc Dvgio
Mov A,dvgio
Cjne A,#4,tiep
Mov A,chgio
Cjne A,#2,tiep
Jmp Main
Tiep:
Mov A,dvgio
Cjne A,#10,tieptuc
Mov Dvgio,#0
Inc Chgio
Jmp Tieptuc
;********************** Chuong Trinh Con *********************
Bcd_7doan:
Mov Dptr,#0500h
Mov R0,#70h
Mov R1,#60h
Ht1: Mov A,@r0
Movc A,@a+dptr
Mov @r1,a
Inc R0
Inc R1
Cjne R0,#76h,ht1
Ret
;chuong Trinh Hien Thi
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Hienthi:
Mov R0,#60h
Mov A,#0feh
Ht2: Mov P0,@r0
Mov P1,a
Lcall Delay
Mov P1,#0ffh
Inc R0
Rl A
Cjne A,#0bfh,ht2
Ret
;chuong Trinh Thi Hoan Thoi Gian
;xxxxxxxxxxxxxxxxxxxxxxxxxxxx
Delay:
Mov 7fh,#50
Djnz 7fh,$
Ret
;************** Chuong Trinh Ngat ********************
Ngat_t0:
Push Acc
Inc Bdn
Mov A,bdn
Cjne A,#20,tiep11
Inc Dvgiay
Tiep11: Mov Th0,#high(-50000)
Mov Tl0,#low(-50000)
Clr Tf0
Pop Acc
Reti
;tra Cuu Bang
;xxxxxxxxxxxxxxxxxxxxxxxxxxxx
Org 500h
Db 0c0h, 0f9h, 0a4h, 0b0h, 99h,92h, 82h, 0f8h, 80h, 90h
End
Comment
-
mình cũng có 1 code để share đây. cái này chạy thử ổn định rùi. còn phần cứng thì 6 con led 7 đoạn catot chung.6 con A1015, 6 điện trở vài chục k + 6 con vài trăm. 89c51 là ok.
INCLUDE 89C51.MC
ORG 0000H
JMP MAIN
ORG 000BH
JMP IRS_T0
ORG 0030H
MAIN:
MOV IE,#82H
MOV 10H,#0 ; XU LY GIAY
MOV 11H,#0 ; XU LY PHUT
MOV 12H,#0 ; XU LY GIO
MOV TMOD,#01H; TIMER 0 MOD 1
MOV 26H,#20; 20*50000 = 1S
SETB TF0 ; EP NGAT
LOOP:
CALL TAO_MA
CALL HIEN_THI
JMP LOOP
;............................................
IRS_T0:
CLR TR0 ; DUNG TIMER
MOV TH0,#3CH
MOV TL0,#0B0H
DEC 26H
MOV A,26H
CJNE A,#0,EXIT
MOV 26H,#20
CALL DEM_THOI_GIAN
EXIT:
SETB TR0
RETI
;,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
TAO_MA:
CALL TM_GIAY
CALL TM_PHUT
CALL TM_GIO
TM_GIAY:
MOV A,10H
CALL BINTOBCD8
MOV R4,A
ANL A,#0FH
CALL XUAT_LED
MOV 18H,A
MOV A,R4
SWAP A
ANL A, #0FH
CALL XUAT_LED
MOV 17H,A
RET
TM_PHUT:
MOV A,11H
CALL BINTOBCD8
MOV R4,A
ANL A,#0FH
CALL XUAT_LED
MOV 1AH,A
MOV A,R4
SWAP A
ANL A, #0FH
CALL XUAT_LED
MOV 19H,A
RET
TM_GIO:
MOV A,12H
CALL BINTOBCD8
MOV R4,A
ANL A,#0FH
CALL XUAT_LED
MOV 1CH,A
MOV A,R4
SWAP A
ANL A, #0FH
CALL XUAT_LED
MOV 1BH,A
RET
;...........................................
BINTOBCD8:
MOV B,#10
DIV AB
SWAP A
ADD A,B ; TAO DANG MA BCD DE XUAT LED
RET
;...........................................
XUAT_LED:
MOV DPTR,#TABLE
MOVC A,@A+DPTR
RET
TABLE:
DB 09H,0BDH,13H,91H,A5H,C1H,61H,9DH,01H,85H
;.............................................
DEM_THOI_GIAN:
MOV R0,#10H
INC @R0
CJNE @R0,#60,LOOP1
MOV @R0,#0
INC R0
INC @R0
CJNE @R0,#60,LOOP1
MOV @R0,#0
INC R0
INC @R0
CJNE @R0,#12,LOOP1
MOV 10H,#0
MOV 11H,#0
MOV 12H,#0
LOOP1:
RET
;...............................................
HIEN_THI:
MOV P1,18H
MOV P0,#11011111B
CALL DELAY
MOV P1,17H
MOV P0,#11101111B
CALL DELAY
MOV P1,1AH
MOV P0,#11110111B
CALL DELAY
MOV P1,19H
MOV P0,#11111011B
CALL DELAY
MOV P1,1CH
MOV P0,#1111101B
CALL DELAY
MOV P1,1BH
MOV P0,#11111110B
CALL DELAY
RET
;.............................................
DELAY:
MOV R0,#20
LOOP2: MOV R1,#50
DJNZ R1,$
DJNZ R0,LOOP2
RET
END
Comment
-
Nguyên văn bởi cong1810 Xem bài viếtmình cũng có 1 code để share đây. cái này chạy thử ổn định rùi. còn phần cứng thì 6 con led 7 đoạn catot chung.6 con A1015, 6 điện trở vài chục k + 6 con vài trăm. 89c51 là ok.
INCLUDE 89C51.MC
ORG 0000H
JMP MAIN
ORG 000BH
JMP IRS_T0
ORG 0030H
MAIN:
MOV IE,#82H
MOV 10H,#0 ; XU LY GIAY
MOV 11H,#0 ; XU LY PHUT
MOV 12H,#0 ; XU LY GIO
MOV TMOD,#01H; TIMER 0 MOD 1
MOV 26H,#20; 20*50000 = 1S
SETB TF0 ; EP NGAT
LOOP:
CALL TAO_MA
CALL HIEN_THI
JMP LOOP
;............................................
IRS_T0:
CLR TR0 ; DUNG TIMER
MOV TH0,#3CH
MOV TL0,#0B0H
DEC 26H
MOV A,26H
CJNE A,#0,EXIT
MOV 26H,#20
CALL DEM_THOI_GIAN
EXIT:
SETB TR0
RETI
;,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
TAO_MA:
CALL TM_GIAY
CALL TM_PHUT
CALL TM_GIO
TM_GIAY:
MOV A,10H
CALL BINTOBCD8
MOV R4,A
ANL A,#0FH
CALL XUAT_LED
MOV 18H,A
MOV A,R4
SWAP A
ANL A, #0FH
CALL XUAT_LED
MOV 17H,A
RET
TM_PHUT:
MOV A,11H
CALL BINTOBCD8
MOV R4,A
ANL A,#0FH
CALL XUAT_LED
MOV 1AH,A
MOV A,R4
SWAP A
ANL A, #0FH
CALL XUAT_LED
MOV 19H,A
RET
TM_GIO:
MOV A,12H
CALL BINTOBCD8
MOV R4,A
ANL A,#0FH
CALL XUAT_LED
MOV 1CH,A
MOV A,R4
SWAP A
ANL A, #0FH
CALL XUAT_LED
MOV 1BH,A
RET
;...........................................
BINTOBCD8:
MOV B,#10
DIV AB
SWAP A
ADD A,B ; TAO DANG MA BCD DE XUAT LED
RET
;...........................................
XUAT_LED:
MOV DPTR,#TABLE
MOVC A,@A+DPTR
RET
TABLE:
DB 09H,0BDH,13H,91H,A5H,C1H,61H,9DH,01H,85H
;.............................................
DEM_THOI_GIAN:
MOV R0,#10H
INC @R0
CJNE @R0,#60,LOOP1
MOV @R0,#0
INC R0
INC @R0
CJNE @R0,#60,LOOP1
MOV @R0,#0
INC R0
INC @R0
CJNE @R0,#12,LOOP1
MOV 10H,#0
MOV 11H,#0
MOV 12H,#0
LOOP1:
RET
;...............................................
HIEN_THI:
MOV P1,18H
MOV P0,#11011111B
CALL DELAY
MOV P1,17H
MOV P0,#11101111B
CALL DELAY
MOV P1,1AH
MOV P0,#11110111B
CALL DELAY
MOV P1,19H
MOV P0,#11111011B
CALL DELAY
MOV P1,1CH
MOV P0,#1111101B
CALL DELAY
MOV P1,1BH
MOV P0,#11111110B
CALL DELAY
RET
;.............................................
DELAY:
MOV R0,#20
LOOP2: MOV R1,#50
DJNZ R1,$
DJNZ R0,LOOP2
RET
ENDhãy cố gắng dù vướn phải thất bại!!!!!!!!
Comment
-
Nguyên văn bởi nghia_tdh21 Xem bài viếtBạn đang làm đồ án môn học à? Mình đang có đề tài này, để mình gửi cho.
Mong được sự chiếu cố và quan tâm của Bác. Thanks nhìu cực nhìu!!
Email em nè Bác: tranvanlong1588@gmail.com
Ngày đêm ngóng chờ Mail của Bác
Comment
-
Gấp ! Gấp !
tớ cũng đang làm mạch đồng hồ điện tử . nhưng ko đc làm bằng VDK . sắp phải nộp rùi . bạn nào có mạch nguyên lý send cho tớ với luckystar.hy@gmail.com . thanks !
Comment
-
Ai biết thiết kế mạch số có bộ đếm k đếm = 64 thì gửi cho em cả sơ đồ lắp ráp và nguyên lý hoạt động qua đia chỉ gmail : phamhuutruong@gmail.com.Cảm ơn nhiều!---->Ahoang<----
Comment
-
Đây là code của đồng hồ báo giờ do LÊ DUY PHI viết và được đăng trên website:
www.duyphi.phpnet.us
Chương trình đã được test rất kỹ và chạy thử nghiệm thành công.
Chú ý: Dùng Xtal phải đúng loại: 11.0592Mhz
SOURCE CODE CỦA CHƯƠNG TRÌNH:
ORG 0000H
SJMP MAIN
;-------------NGAT DO TIMER
ORG 03H
LJMP NGAT_PHUT
;-------------NGAT PHUT
ORG 0BH
LJMP NGAT_TIMER0
;-------------NGAT GIO
ORG 13H
LJMP NGAT_GIO
;-------------VAO PRO MAIN
MAIN:
MOV SP,#30H ; NHAP DIA CHI BAT DAU CHUONG TRINH
;KHOI DONG SAU KHI BAT NGUON "TURN ON POWER"
MOV 12H,#00H
MOV 13H,#00H
MOV 14H,#00H
MOV 15H,#00H
MOV 16H,#00H
MOV 17H,#00H
MOV IE,#10000111B ;KHOI TAO NGAT CHO PHEP INT0_INT1_TO
MOV TMOD,#01H
MOV TL0,#LOW(-9216) ;XTAL11.0592 =>Tclk = 12/11.0592 = 1,08507uS
MOV TH0,#HIGH(-9216) ; 9216x(100lan)x[Thoigianmay(12/11.0592)]=1s OK!chinh xac 99.99%
SETB TR0
SETB IT0
SETB IT1
LAP:
CALL HIEN_THI
CALL KIEM_TRA1S
SJMP LAP
;**********************************************
HIEN_THI:
;----HIEN THI DATA LEN CAC LED-----------
MOV DPTR,#BANG_MA_LED
MOV P0,#11111110B
MOV A,17H
MOVC A,@A+DPTR
MOV P2,A
LCALL DELAY1
mov p2,#0ffh; Chong nhieu
MOV P0,#11111101B
MOV A,16H
MOVC A,@A+DPTR
MOV P2,A
LCALL DELAY1
mov p2,#0ffh ; Chong Nhieu
MOV P0,#11111011B
MOV A,15H
MOVC A,@A+DPTR
MOV P2,A
LCALL DELAY1
mov p2,#0ffh ;Chong Nhieu
MOV P0,#11110111B
MOV A,14H
MOVC A,@A+DPTR
MOV P2,A
LCALL DELAY1
mov p2,#0ffh ;Chong Nhieu
MOV P0,#11101111B
MOV A,13H
MOVC A,@A+DPTR
MOV P2,A
LCALL DELAY1
mov p2,#0ffh ;Chong Nhieu
MOV P0,#11011111B
MOV A,12H
;KIEM TRA -DE TAT MO LED CH
CJNE A,#0,MOLED_CH ; Neu CH khac 0 thi Nhay den MOLED_CH
; Neu CH la 0 thi tat led CH
MOV P2,#0ffh ; Xoa Led CH khi no la so:"0"
LCALL DELAY1
MOV P2,#0ffh ;Chong Nhieu
LJMP THOAT_HIENTHI
;---- MOLED_CH--------
MOLED_CH:
MOVC A,@A+DPTR
MOV P2,A
LCALL DELAY1
MOV P2,#0FFH ;Chong Nhieu
THOAT_HIENTHI:
RET
;************************************************* ***
KIEM_TRA1S:
;-----KIEM TRA XEM DU 1s CHUA ?-------------
CJNE R2,#100,KET_THUC
MOV R2,#00H
INC 17H
MOV A,17H
CJNE A,#10,KET_THUC
MOV 17H,#00
INC 16H
MOV A,16H
CJNE A,#6,KET_THUC
MOV 16H,#00
INC 15H
MOV A,15H
CJNE A,#10,KET_THUC
MOV 15H,#00
INC 14H
MOV A,14H
CJNE A,#6,KET_THUC
MOV 14H,#00
INC 13H
MOV A,13H
CJNE A,#03,TANG_DVH_LEN_10
;--NEU LA 3 THI KTRA TIEP----
MOV A,12H
CJNE A,#01,KET_THUC ; DUNG DVH LA 3 VA CH KHONG LA 1 THI NHAY TOI CP DE CP=0
MOV 12H,#00H
MOV 13H,#01H
LJMP KET_THUC
;----TANG DVH LEN 10 KHI NO KHONG PHAI LA S0 3----------
TANG_DVH_LEN_10:
CJNE A,#10,KET_THUC
MOV 13H,#00
INC 12H
KET_THUC:
RET
;************************************************* **************
;----- DELAY----------
DELAY1:
MOV R7,#10H
DJNZ R7,$
RET
;************************************************* **************
;CHUONG TRINH CON NGAT TIMER0
NGAT_TIMER0:
INC R2 ;tre 1us
MOV TL0,#LOW(-9216) ;XTAL11.0592 =>Tclk = 12/11.0592 = 1,08507uS
MOV TH0,#HIGH(-9216) ; 9216x(100lan)x[Thoigianmay(12/11.0592)]=1s OK!chinh xac 99.99%
SETB TR0
RETI
;************************************************* **************
;CHUONG TRINH CON NGAT INTO
NGAT_PHUT:
MOV IE,#80H
INC 15H
MOV A,15H
CJNE A,#10,THOAT1
MOV 15H,#0H
INC 14H
MOV A,14H
CJNE A,#6,THOAT1
MOV 14H,#0H
THOAT1:
MOV IE,#87H
RETI
;CHUONG TRINH CON NGAT INT1
NGAT_GIO:
MOV IE,#80H
INC 13H
MOV A,13H
CJNE A,#03,NGAT_11
MOV A,12H
CJNE A,#1,THOAT2
MOV 12H,#0H
MOV 13H,#1
LJMP THOAT2
NGAT_11:
CJNE A,#10,THOAT2
MOV 13H,#0
MOV 12H,#1
SJMP THOAT2
THOAT2:
MOV IE,#87H
RETI
;*********************************************
BANG_MA_LED:
DB 10000000B;0
DB 11001111B
DB 00100100B
DB 00000110B
DB 00001011B
DB 00010010B
DB 00010000B
DB 11000111B
DB 00000000B
DB 00000010B;9
END
Comment
-
híc, em mới nhận cái đề tài mạch đồng hồ hẹn giờ bật tắt thiết bị điện,
bác nào biết chỉ em với, thank u nha... possionevil@yahoo.com
Comment
Bài viết mới nhất
Collapse
-
Trả lời cho Xin hỏi về màn hình laptopbởi yname11Ok , thanks bác đã chỉ...
-
Channel: Thiết bị điện tử cá nhân
hôm nay, 15:06 -
-
bởi nguyendinhvanSau bao năm nghiên cứu cái dtvn. Tôi phát hiện công thức này. Các anh em xem đúng bao nhiêu phần trăm nhé !
Chập thì thay. Cháy thì tháo
Làm thì láo. Báo thì hay
May thì khoe. Rủi thì bỏ
Thành tích nhỏ. Báo thành to
Làm cho có. Báo chi li
Sai cả li. Báo...-
Channel: Tâm tình dân kỹ thuật
hôm nay, 00:35 -
-
Trả lời cho Xin hỏi về màn hình laptopbởi yname11có chắc ko b, màn lcd phải có cao áp mới sáng, màn led thì ko có, ko có cáp chuyển đổi thì lắp thế nào đc ??...
-
Channel: Thiết bị điện tử cá nhân
Hôm qua, 22:31 -
-
Trả lời cho Xin hỏi về màn hình laptopbởi mèomướpDạ ý chú là màn oled ấy ạ. Cùng chuẩn lvds cùng độ phân giải thì cắm được ạ. Còn nó mà khác thì hơi khó vì oled các điểm ảnh nó tự phát sáng chứ ko dùng đèn nền như lcd. Cháu chỉ biết đến vậy thôi ạ. Chú muốn nghịch phải tự tìm hiểu kỹ trước khi mua thôi, khó mà ông thợ nào tư vấn vụ này...
-
Channel: Thiết bị điện tử cá nhân
Hôm qua, 22:14 -
-
Trả lời cho Tự làm máy đo Cuộn cảmbởi bacthoHay đấy bạn ạ. Đây có thể hiểu là máy đo cuộn dây. Tiện đây xin cho hỏi bạn có hiểu rõ về máy nạp rôm pcb 45 của hãng thiên minh không giúp mình cách cài fw của nó với vì mình vừa được anh bạn cho nhưng lại không biết cài fw nên chưa dùng được. Nếu có thể thì bạn giúp mình với...
-
Channel: Điện tử dành cho người mới bắt đầu
Hôm qua, 21:48 -
-
Trả lời cho Xin hỏi về màn hình laptopbởi yname11màn của mình là LCD , giờ m muốn mua màn LED để thay thế (ko muốn dùng màn LCD nữa) , lên muốn hỏi xem có cáp chuyển đổi nào có thể cắm đc màn LED vào ko , tất nhiên phải có cùng số chân pin với màn cũ rồi . VD: màn cũ là lcd mỏng , 40 pin...
-
Channel: Thiết bị điện tử cá nhân
Hôm qua, 21:43 -
-
Trả lời cho các bạn giúp mình về file HEX với!!!bởi bacthoBạn vào trang phuclanshop.com ,tìm đến góc kỹ thuật. Tác giả vương khánh hưng nói rất rõ về điều bạn tìm...
-
Channel: Vi điều khiển họ 8051
Hôm qua, 21:21 -
-
Trả lời cho Xin hỏi về màn hình laptopbởi mèomướpDạ màn hình lcd đều có thể lai cấy cho nhau được hết ạ. Các loại cáp, bo mạch chuyển đổi lvds rất nhìu, với dòng sony còn phải nhổ cả chip nhớ của main cũ đưa lên gỗ thì mới lắp sang máy khác đc, chưa kể các bệnh về màu... ngay cả...
-
Channel: Thiết bị điện tử cá nhân
Hôm qua, 20:43 -
-
Trả lời cho Xin hỏi về màn hình laptopbởi yname11Màn của e là LCD , e muốn thay thế bằng màn led thì có cáp chuyển đổi nào thực hiện đc việc đó ko nhỉ, nếu có bác mách e với....
-
Channel: Thiết bị điện tử cá nhân
Hôm qua, 16:34 -
Comment