cam on cac bac ha
Thông báo
Collapse
No announcement yet.
Mạch đèn giao thông
Collapse
X
-
Mach den giao thong su dung IC 555 va 4017
Nếu đây là đồ án số thì mình có. CÒn nếu là VDK thì mình chưa làm. Bạn nào cần có thể liên lạc với mình. Mình gửi cho!
p/s: Mail: haphonganh89@gmail.com
Comment
-
Đây là đèn giao dung vi điều khiển 8051, mình đưa lên cho mọi người xem để có thêm đề tài nghiên cứu.
cod:
;phan cung:giai ma led 7 bang chuong trinh
;p1.0,p1.1,p1.2>>den xanh1, vang1, do1.
;p1.3,p1.4,p1.5>>den xanh2, vang2 , do2.
;quet led
;donvi1 p2.0
;chuc1 p2.1
;donvi2 p2.2
;chuc2 p2.3.
;data p0
;------------------------------------------------------------------
$MOD51
ORG 0000H
XANH1 BIT P1.0 ;khai bao qui uoc dat ten
VANG1 BIT P1.1
DO1 BIT P1.2
XANH2 BIT P1.3
VANG2 BIT P1.4
DO2 BIT P1.5
LJMP MAIN ;nhay qua ngat
ORG 000BH ;khai bao dia chi ngat time o
LJMP MODEN
ORG 0030H ;dia chi bat dau chuong trinh chinh
MAIN:
MOV R6,#0
CLR XANH1
SETB DO1
CLR VANG1
SETB XANH2
CLR VANG2
CLR DO2
MAIN1: ; duong a duoc di, duong b dung
MOV DPTR,#MA
MOV 62H,#04H
MOV 60H,#09H
MOV 63H,#07H
MOV 61H,#06H
ljmp run1
MOV 62H,#00H
ljmp run1
MOV 60H,#00H
ljmp run1
run1:
LCALL STAR
INC 60H
MOV A,60H
CJNE A,#10,go3
MOV 60H,#00H
ljmp go2
go3:
INC 62H
MOV A,62H
CJNE A,#10,run1
MOV 62H,#00H
ljmp go1
go2:
INC 61H
INC 62H
MOV A,61H
CJNE A,#10,run1
ljmp MAIN2
go1:
INC 63H
mov a,63h
cjne a,#10,run1
MOV 63H,#09H
MOV 62H,#05H
ljmp run1
MAIN2: ; duong b duoc di duong a dung
MOV DPTR,#MA
MOV 62H,#09H
MOV 60H,#04H
MOV 63H,#06H
MOV 61H,#07H
ljmp run12
MOV 62H,#00H
ljmp run12
MOV 60H,#00H
ljmp run12
run12:
cjne r6,#62,tiep ;so sanh lap lai chuong trinh
ljmp main
tiep:
LCALL STAR
INC 60H
MOV A,60H
CJNE A,#10,go32
MOV 60H,#00H
ljmp go22
go32:
INC 62H
MOV A,62H
CJNE A,#10,run12
MOV 62H,#00H
ljmp go12
go22:
INC 61H
INC 62H
MOV A,61H
CJNE A,#10,run12
LJMP run12
go12:
INC 63H
mov a,63h
cjne a,#10,run12
LJMP run12
;ket thuc chuong trinh chính
;8888888888888888888888888888888888888888888888888 88888888888888888888888888888888
MODEN: ; doan chuong trinh cua ngat
CJNE R6,#27,SOSANH1
LJMP CHUYENDEN1
SOSANH1:
CJNE R6,#32,SOSANH2
LJMP CHUYENDEN2
SOSANH2:
CJNE R6,#58,DAOHOANG
LJMP CHUYENDEN3
CHUYENDEN1:
CLR XANH1
SETB DO1
CLR VANG1
CLR XANH2
SETB VANG2
CLR DO2
SJMP DAOHOANG
CHUYENDEN2:
SETB XANH1
CLR DO1
CLR VANG1
CLR XANH2
CLR VANG2
SETB DO2
SJMP DAOHOANG
CHUYENDEN3:
CLR XANH1
CLR DO1
SETB VANG1
MOV 61H,#09H
MOV 60H,#05H
CLR XANH2
CLR VANG2
SETB DO2
DAOHOANG:
RETI
;8888888888888888888888888888888888888888888888888 888888888888888888888888888888888
STAR: ;chuong trinh con hien thi led 7 doan
PUSH ACC
PUSH 00H
PUSH 01H
MOV R2,#50
INC R6
LOOP1:
MOV R1,#11101110b
MOV R0,#60H
DISH:
MOV A,@R0
MOVC A,@A+DPTR
MOV P0,A
MOV P2,R1
LCALL DELAY
MOV P2,#0ffH
INC R0
MOV A,R1
RL A
MOV R1,A
CJNE R0,#64H,DISH
DJNZ R2,LOOP1
MOV R2,#10
POP 01H
POP 00H
POP ACC
RET
;8888888888888888888888888888888888888888888888888 88888888888888888888888888888
DELAY: ;DELAY 10000MS= 0.01S
MOV TMOD,#01H
MOV TH0,#HIGH(-5000)
MOV TL0,#LOW(-5000)
SETB TR0
MOV IE,#82H
JNB TF0,$
CLR TR0
CLR TF0
RET
;8888888888888888888888888888888888888888888888888 888888888888888888888888888888
MA: ;ma led 7 doan
db 6fh,7fh,07h,7dh,6dh,66h,4fh,5bh,06h,3fh
END
Comment
Bài viết mới nhất
Collapse
-
Trả lời cho cách làm led Hao Quang.có pro nào biết k nhỉ ???bởi StatusHello! I'm from Kazakhstan. Can anyone share the HEX file with me? The download link in post 50 doesn't work.
-
Channel: Vi điều khiển họ 8051
hôm nay, 00:05 -
-
bởi mylinhattChào anh em cơ khí,
Trong quá trình tư vấn đầu tư thiết bị cho xưởng, mình gặp rất nhiều câu hỏi kiểu: “Nên mua máy phay CNC cũ để tiết kiệm, chọn máy mới phổ thông cho yên tâm, hay cố gắng lên máy chất lượng cao để làm hàng khó?”. Thực tế, đây không phải câu hỏi chỉ về...-
Channel: Máy công cụ
Hôm qua, 13:38 -
-
Trả lời cho Vấn đề về tốc độ quaybởi nguyendinhvanSử dụng động cơ servor, hoặc lắp thêm một cái encoder vào động cơ bước. Encoder sẽ kiểm soát động cơ có quay hoặc đứng im.
-
Channel: Điện tử truyền hình
14-12-2025, 19:50 -
-
bởi Andrea14Chào mọi người,
Tôi muốn mô phỏng sự thay đổi các mùa bằng cách từ từ nghiêng một quả địa cầu 16 inch bằng một động cơ bước nhỏ. Một động cơ bước khác sẽ quay quả địa cầu theo thời gian thực. Hệ thống truyền động...-
Channel: Điện tử truyền hình
12-12-2025, 12:42 -

Comment