Đừ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
-
bởi Ng.Phuong.5Vấn đề cũ: khi in mạch ra pdf và bấm chọn Keep Drill Holes Open, in ra thì pdf trắng đen các lỗ chân linh kiện như nhau. Mặc dù có linh kiện phần Drill là 1mm, có linh kiện thì là 3mm. Cho em hỏi cách sửa phần này ở Orcad 9.2 với ạ.
Mấy con...-
Channel: Cadence ORCAD
hôm nay, 19:44 -
-
Trả lời cho Cần tư vấn cải thiện chất âm thanh loa SoNy.bởi viettinhBác nói đúng quá. Cơ mà muốn mua hàng chính hãng, hàng thương hiệu mà tai lại hợp hàng tầu mới khổ chứ.
Đang tính mua cái loa tầu nữa cột đằng sau loa này, Loa sony chỉ để hát nhép thôi, có dc k các bác ...-
Channel: Điện thanh
hôm nay, 18:12 -
-
Trả lời cho Cần tư vấn cải thiện chất âm thanh loa SoNy.bởi nguyendinhvanTheo tôi thì khi hpj sản xuất ra cái loa đó, đã có nhiều chuyên gia kỹ thuật hiệu chỉnh, tính toán các phần tử kỹ lưỡng rồi.
Bây giờ tính toán hiệu chỉnh lại cần có đội ngũ tương đương với nhà sản xuất.
Cách đơn giản...-
Channel: Điện thanh
hôm nay, 00:04 -
-
Trả lời cho Sửa bộ nguồn DC 60V 45Abởi mèomướpDạ cháu có ý tốt muốn động viên chú ấy ngâm cứu khoa học thôi ạ. Về phần kiểm tra dao động thì chú ấy chưa biết thì sẽ tìm hiểu được là cần những gì ạ, chắc chắn là khi hướng dẫn phần ấy các cô chú nào đó sẽ lưu ý cần loại sò công suất ra tránh cháy nổ rồi ạ....
-
Channel: Điện tử công suất
Hôm qua, 19:02 -
-
Trả lời cho Sửa bộ nguồn DC 60V 45Abởi tuyennhanChủ thớt hỏi có kiểm tra được dao động mà không cấp nguồn thì rõ trình ở mức nào mà mèo còn xúi ngâm cứu nữa ác vậy ....
-
Channel: Điện tử công suất
Hôm qua, 15:43 -
-
Trả lời cho Cần tư vấn cải thiện chất âm thanh loa SoNy.bởi tuyennhanLoa bass đấu trực tiếp không qua phân tần để thành loa toàn dải xem có thoát tiếng khộng , nếu không thoát cần phải sửa lại mạch cs hay âm sắc nếu đủ trình còn nếu thoát ca hay nhưng chưa vừa ý vì bass kém chăc thì đấu lại như cũ và đấu thêm loa mid treble bên ngoài .
-
Channel: Điện thanh
Hôm qua, 15:28 -
-
Trả lời cho Cần tư vấn cải thiện chất âm thanh loa SoNy.bởi mèomướpDạ loa tép bé xíu như ngón chân cái thôi ạ. Thiếu gì chỗ để đâu. Quan trọng là gắn thêm nó loa nghe ok hay ko thôi ạ...
-
Channel: Điện thanh
Hôm qua, 11:44 -
-
Trả lời cho Cần tư vấn cải thiện chất âm thanh loa SoNy.bởi viettinhNó không phải cái loa rời. Chả nhẽ đèo thêm 2 con loa tép ngoài thì kỳ lắm....
-
Channel: Điện thanh
Hôm qua, 09:45 -
-
Trả lời cho Cần tư vấn cải thiện chất âm thanh loa SoNy.bởi mèomướpDạ chú mua thêm loa tép nối tiếp qua con tụ rồi mắc vào cùng loa trung là được ạ...
-
Channel: Điện thanh
07-01-2025, 19:53 -
-
Trả lời cho Tìm datasheet linh kiện điện tử.bởi mèomướpDạ cháu hỏi bạn cháu thì bạn ấy trả lời như thế này ạ. Cháu cũng hông bít có đúng hông nữa ạ
Linh kiện điện tử với mã "943BA" và "W58BAL" là một loại cầu chì tự động (circuit breaker) do TE Connectivity sản...-
Channel: Điện tử dành cho người mới bắt đầu
07-01-2025, 19:50 -
Comment