HELP ME ! Mạch đếm sản phẩm lập trình = asem

[HOANGSON1576]

ban kiencon chỉ cần ra tiệm điện tử gần nhất mua 2 con led thu phát hồng ngoại là xong, 1 con ic 555 tạo xung, điện trở giửa chân 6 7 và 8 của ic bạn nên chọn loại 1k đến 2k, và nên bằng nhau, tụ điện tạo xung nên chọn vài chục nanofara, ok, cách mắc sơ đồ phát.
ic 555 có 8 chân, chân 1 đất, 2 nối 6, 3 ngõ ra nối vào led phat (hoặc 80xx hay 89xx), 4 bỏ, 5 tụ điện, 8 vcc5v. 6 tụ điện.
còn bác nào biết sơ đồ thu thì chỉ nha,

[VAGABOND]

các bác cho mình xin mạch điếm sản phẩm và các thông số linh kiện được ko ạ ,xin cam on.
email:lecongtany@yahoo.com

[VAGABOND]

Ý là mình xin so đồ mạch và thông số linh kiện ,mong moi nguoi giup đỡ.
email:lecongtany@yahoo.com

[DTTH]

minh đang bí phần thu phát hồng ngoại,không biết dùng con gì,lắp ráp ra sao,bạn nào có cho mình xin để gắn vào phần đếm sản phẩm
yahoomail của mình là : minhnhut_na@yahoo.com

Phần hồng ngoại bạn làm theo hình sau ,chú ý là cảm biến phải cố định chắc chắn.

http://dientuvietnam.net/forums/show...7187#post67187

[Jasura208]

Mấy bác ui,mún phân biệt 2,3 sản phẩm dính nhau thì phải làm sao?
Giúp em zới!!!

[cong1810]

em cũng đang tập tành viết code. em đang thử viết code cho 89c51 nhận xung nhịp bên ngoài rồi xuất ra led 7 đoạn . mà chương trình em viết xong rồi chạy ko đúng như mong muốn. em tìm hoài ko thấy chỗ sai đâu cả. CÁC ANH CHỈ GIÚP NHÉ.
ĐÂY LÀ ĐOẠN CODE

INCLUDE 89C51.MC
			ORG 0000H
	MAIN: 
			MOV P0,#00H
			MOV P3,#00H
			MOV TMOD,#05H	;TIME 0 CHE DO 1 VA XUNG CLOCK NGOAI
						;CAC BYTE CHUA GIA TRI OUT LED
			MOV 10H,#00H	; HANG DON VI
			MOV 11H,#00H	; HANG CHUC
			MOV 12H,#00H	; HANG TRAM
		
			SETB P3.4		; NHAN XUNG NHIP NGOAI
 AGAIN:		
 			MOV TH0,#00H
 			MOV TL0,#00H
			SETB	TR0		;CHO TIMER CHAY	
 BACK:		MOV A,TL0
 			ACALL TAO_SO	;KHOI TAO GIA TRI XUAT LED 7 DOAN
 			ACALL HIEN_THI			
			JNB TF0,BACK		
			CLR TR0			
			CLR TF0			
			SJMP AGAIN
;''''''''''''''''''''''''''''''''''''''''''''''''''''''''
TAO_SO:		MOV R5,#3		; LUU GIA TRI VAO CAC BYE 10H,11H,12H
			MOV R0,#10H
	LAP:		MOV B,#10
			DIV AB
			MOV @R0,B		; luu gia tri vao 10h,11h,12h
			INC R0
			DJNZ R5,LAP
			RET

;''''''''''''''''''''''''''''''''''''''''''''''''''''''''	
	HIEN_THI:	MOV R0,#10H
			MOV A,@R0		; LAY GIA TRI CUA BYE 10H
			ACALL CHUYEN_LED_7_DOAN
			MOV P2,A
			MOV P0,#11111110B
			CALL DELAY_4mS
;''''''''''''''''''''''''''''''''''''''''''''''''''''
			MOV R0,#11H
			MOV A,@R0
			ACALL CHUYEN_LED_7_DOAN
			MOV P2,A
			MOV P0,#11111101B
			CALL DELAY_4mS
;''''''''''''''''''''''''''''''''''''''''''''''	
			MOV R0,#12H
			MOV A,@R0
			ACALL CHUYEN_LED_7_DOAN
			MOV P2,A
			MOV P0,#11111011B
			CALL DELAY_4mS
;'''''''''''''''''''''''''''''''''''''''''''
			RET
			
			
;''''''''''''''''''''''''''''''''''''''''''''''''''''''
	DELAY_4mS:
			MOV R6,#20
	LOP1:		MOV R7,#100
			DJNZ R7,$
			DJNZ R6,LOP1
			RET
;''''''''''''''''''''''''''''''''''''''''''''''''''''		
	CHUYEN_LED_7_DOAN:
			MOV DPTR,#TABLE	; chua ma chuyen sang led 7 doan
			MOVC A,@A+DPTR
			RET
	
		TABLE:
				DB 09H,BDH,13H,91H,A5H,C1H,41H,9DH,01H,81H,09H
			END

;bài của bác HUEDN cao quá, em chưa tiếp thu nổi.hic





Chú ý: Lần sau bạn nên viết source trong tag code để người đọc dễ quan sát hơn.

[cong1810]

đoạn code trên em chỉ đếm tối đa là 255 . tại chưa có ý tưởng cho giải việc xuất led cho thanh ghi TH . bác nào làm code này rồi thì share cho em với . hay ý tưởng thôi cũng được. thanks nhiều!!!

[chipmickey]

đoạn code trên em chỉ đếm tối đa là 255 . tại chưa có ý tưởng cho giải việc xuất led cho thanh ghi TH . bác nào làm code này rồi thì share cho em với . hay ý tưởng thôi cũng được. thanks nhiều!!!

nếu bạn dùng ngắt ngoài để xử lý thì chương trình chính bạn chỉ nên quét led mà thôi ( ỏe đây giới hạn 3 led nhé). bạn dùng 3 ô nhớ để chứ nội dung của 3 led này giả sử như 7F (LED1),7E(LED2),7D(LED3) .... tương ứng với hàng đơn vị, chục, trăm. trong chương trình chính chỉ cần quét led, khi có ngắt tức là có sản phẩm đi qua cảm biến thì bạn thực hiẹn công việc sau:

CLR EA ;cấm ngắt
INC LED1 ; tăng giá trị của hàng đơn vị lên 1
CJNE LED1,#10,THOAT ;kiểm tra hàng đơn vị đến 10 chưa, nếu chưa thì thoát về chwowng trình chính.
MOV LED1,#0 ;nếu bằng 10 thì nạp cho LED1 về 0
INC LED2 ;sau đó tăng giá trị của LED2 lên
CJNE LED2,#10,THOAT ;kiểm tra hàng chục đến 10 chưa, nếu chưa thì thoát về chwowng trình chính.
MOV LED2,#0 ;nếu bằng 10 thì nạp cho LED2 về 0
INC LED3 ;sau đó tăng giá trị của LED3 lên
CJNE LED3,#10,THOAT ;kiểm tra hàng trăm đến 10 chưa, nếu chưa thì thoát về chwowng trình chính.
MOV LED3.#0
..............
THOAT: SETB EA
RETI
cứ tiếp tục như thế cho đến khi nào hết led thì thôi do bạn chỉ giới hạn có 3 led nên mình chỉ cần viết tới đó mà thôi. với cách này bạn có thể quét đến cả trăm con luôn. còn một vấn đề cần quan tâm là mức tác động của các ngắt ngoài thường là ở mwcs thấp, bạn nên thiết kế phần cứng cho tương thích. chúc bạn thành công

[Jasura208]

Mấy anh ơi,giúp em zới!!!
Đang làm đề tài đếm sản phẩm,thầy yêu cầu phải nhập được chiều dài sản phẩm từ bàn phím,em viết code nhưng mô phỏng bằng protues ko chạy được,mấy anh giúp em zới:
----------------------------------------------------------------
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> >>>>>>>>>>>
; Nhap N la so co 1 chu so thong qua M va N
; ---> sau nay phat trien tinh len N co nhieu chu so
; Khi nao nhan ENTER thi moi hien thi ra LED
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> >>>>>>>>>>>
;-------------------------------------------------------------------------------
; MA TRAN PHIM:
; Bo tri, gom 16 nut:
; 0 1 2 3
; 4 5 6 7
; 8 9
; RESET Clear All <- BP ENTER
;0 = R0C0 4 = R1C0 8 = R2C0
;1 = R0C1 5 = R1C1 9 = R2C1
;2 = R0C2 6 = R1C2
;3 = R0C3 7 = R1C3
; ENTER = R3C3 : thpat nhap
; n = Row*4 + Col
;--------------------------------------------------------------------------------
;************************************************* **********************
; Các Port:
; - P0 chon led
; - P2 ghi du lieu ra led (giu ma hinh)
; - P1&P3 noi voi ma tran phím (Chi dùng 8 bit=4 ra (Col)+4 vào (Row))
; * P1.0-3: 4 ngõ ra (Col) - output
; * P3.0-3: 4 ngõ vào (Row) - input
;************************************************* **********************ORG 0h
MAIN:
MOV 40h,#0 ; Cho N=0
MOV 41h,#0 ; Cho M=0
MOV 42h,#0 ; ROW=0
NHAP_PHIM:
MOV 43h,#0 ; COL=0
MOV P1,#0FEh ; P1.0=0 --> Col=0
MOV R0,#4 ; Có 4 cot
KIEMTRA:
MOV A,P3 ; Input vào A
CJNE A,#0FFh,CO_PHIM_AN
NO_PRESS_KEY: ; Ko co phim an
INC 43h ; Tang gia tri cua COL
MOV A,P1 ; A<--P1
RL A ; Quay trái A
MOV P1,A ; Chuyen P1<--A
; Nham quay trái P1, chon COL tiep theo
DJNZ R0,KIEMTRA ; Giam va nhay toi KIEMTRA neu R0 chua bang 0
LJMP NHAP_PHIM ; Neu ko co phim an thi quay lai cho den khi nao co phim an moi thoi
CO_PHIM_AN:
MOV 42h,#0 ; ROW=0
CJNE A,#11110111b,B1 ; Xét xem có phai phím nhan nam o ROW=3?
MOV 42h,#3 ; ROW=3
B1:
CJNE A,#11111011b,B2 ; ROW=2?
MOV 42h,#2
B2:
CJNE A,#11111101b,PHIM
MOV 42h,#1 ; ROW=1
PHIM:
MOV A,42h ; A<--ROW
MOV B,#4
MUL AB
ADD A,43h ; A=ROW*4+COL
;--------------------------------------
; khoan cat vao trong N=[40h]
;--------------------------------------
XETDK:
CJNE A,#15,TINH_N
ENTER:
LJMP XUAT
TINH_N:
MOV 40h,#0 ; Gan lai cho N=0
MOV 41h,A
MOV A,40h
MOV B,#10
MUL AB
ADD A,41h

MOV 40h,A
LJMP NHAP_PHIM
XUAT:
MOV DPTR,#LED

MOV A,40h
MOVC A,@A+DPTR
MOV P2,A

MOV P0,#0FEh

SJMP XUAT
;-----------------------------------------------------------------------------------------------------------
LED: DB 0FCh, 60h, 0DAh, 0F2h, 66h, 0B6h, 0BEh, 0E0h, 0FEh, 0F6h
;-----------------------------------------------------------------------------------------------------------
END

[Jasura208]

Còn cái này nữa,em mô phỏng bằng Proteus lúc chạy được,lúc chạy ko được,mấy anh giúp em với!!!
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> >>>>>>>>>>>
; Nhap N co 2 chu so, gap ENTER dung viec nhap; hien thi ra LED ung voi gia tri cua N
; Nham kiem tra xem nhap vao co dung la N co 2 chu so thi 8051 nhan dung ko?
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> >>>>>>>>>>>
;-------------------------------------------------------------------------------
; MA TRAN PHIM:
; Bo tri, gom 16 nut:
; 0 1 2 3
; 4 5 6 7
; 8 9
; RESET Clear All <- BP ENTER
;0 = R0C0 4 = R1C0 8 = R2C0
;1 = R0C1 5 = R1C1 9 = R2C1
;2 = R0C2 6 = R1C2
;3 = R0C3 7 = R1C3
; ENTER = R3C3 : thpat nhap
; n = Row*4 + Col
;--------------------------------------------------------------------------------
;************************************************* **********************
; Các Port:
; - P0 chon led
; - P2 ghi du lieu ra led (giu ma hinh)
; - P1&P3 noi voi ma tran phím (Chi dùng 8 bit=4 ra (Col)+4 vào (Row))
; * P1.0-3: 4 ngõ ra (Col) - output
; * P3.0-3: 4 ngõ vào (Row) - input
;************************************************* **********************
ORG 0h
MAIN:
MOV 40h,#0 ; Cho N=0
MOV 41h,#0 ; Cho M=0 (bien trung gian)
MOV 42h,#0 ; ROW=0
NHAP_PHIM:
MOV 43h,#0 ; COL=0
MOV P1,#0FEh ; P1.0=0 --> Col=0
MOV R0,#4 ; Có 4 cot
KIEMTRA:
MOV A,P3 ; Input vào A
CJNE A,#0FFh,CO_PHIM_AN
NO_PRESS_KEY: ; Ko co phim an
INC 43h ; Tang gia tri cua COL
MOV A,P1 ; A<--P1
RL A ; Quay trái A
MOV P1,A ; Chuyen P1<--A
; Nham quay trái P1, chon COL tiep theo
DJNZ R0,KIEMTRA ; Giam va nhay toi KIEMTRA neu R0 chua bang 0
LJMP NHAP_PHIM ; Neu ko co phim an thi quay lai cho den khi nao co phim an moi thoi
;----------------------------------------------------------
; Chi khi nao co phim an moi xuong duoc toi day
;----------------------------------------------------------
CO_PHIM_AN:
MOV 42h,#0 ; ROW=0
CJNE A,#11110111b,B1 ; Xét xem có phai phím nhan nam o ROW=3?
MOV 42h,#3 ; ROW=3
B1:
CJNE A,#11111011b,B2 ; ROW=2?
MOV 42h,#2
B2:
CJNE A,#11111101b,PHIM
MOV 42h,#1 ; ROW=1
PHIM:
MOV A,42h ; A<--ROW
MOV B,#4
MUL AB
ADD A,43h ; A=ROW*4+COL
;--------------------------------------
; khoan cat vao trong N=[40h]
;--------------------------------------
XETDK:
CJNE A,#15,TINH_N ; Khi A khac 15 thi tinh toan va luu lai bien N
ENTER:
LJMP XUAT
TINH_N:
;mov 40h,#0
MOV 41h,A
MOV A,40h
MOV B,#10
MUL AB
ADD A,41h

MOV 40h,A
LJMP NHAP_PHIM ; Why khi goi len LJMP nay gia tri cua 40h da bi thay doi? (tinh toan va luu vao 40h bi sai)
; Khi nhap N chi gom 1 chu so thi hoan toan dung
;---------------------------------------
XUAT:
MOV DPTR,#LED
; Mov 40h,#0 ; Neu co dong lenh nay thi se hien thi ra Led so N co 1 chu so ung voi phim vua nhap truoc phim Enter --> dung
; Bo ra, nham luu vao so N co nhieu hon 1 chu so thi lai ko hien thi duoc
MOV A,40h
MOV B,#10
DIV AB
MOV R0,B
MOV R1,A
HIENTHI:
MOV P0,#0FEh

MOV A,R0
MOVC A,@A+DPTR
MOV P2,A
; Neu hien thi them: MOV P0,#0FDh
;
; MOV A,R1
; MOVC A,@A+DPTR
; MOV P2,A
; thi ket qua lai sai!
SJMP HIENTHI
;-----------------------------------------------------------------------------------------------------------
LED: DB 0FCh, 60h, 0DAh, 0F2h, 66h, 0B6h, 0BEh, 0E0h, 0FEh, 0F6h
;-----------------------------------------------------------------------------------------------------------
END

[Jasura208]

mail của em nè:Voquocnhat@gmail.com

[Jasura208]

Có bác nào cho em xin sơ đồ mạch đếm sản phẩm không?
Em đang bí chỗ kết nối với ma trận phím(16 phím).
Email của em là Voquocnhat@gmail.com
Giúp em với!!!

[GA`CONTAPBOI]

Mấy bác chỉ giúp. Thằng em viết đoạn code VO CUNG DON GIAN sau, nhưng nó lại chạy ko đúng.
Nếu thực hiện chỉ ở hàm LAN1 thì nó hiển thị ra led đúng
Nhưng chạy qua LAN2 thì nó hiển thị ko đúng
Em chạy mô phỏng bằng Proteus

code
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> >>>>>>>>>>>>>>>>>>>>>>>>
; Chuong trinh hien thi ra 2 led 1 so co 2 chu so duoc luu trong o nho 60
; Nhung sao khi tinh toan thi lai ko hien thi duoc
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> >>>>>>>>>>>>>>>>>>>>>>>>
ORG 0h
MAIN:
MOV 60,#0
MOV R0,#7
MOV R1,#9
LAN1:
MOV A,60
MOV B,#10
MUL AB
ADD A,R0
MOV 60,A
LAN2:
MOV A,60
MOV B,#10
MUL AB
ADD A,R1
MOV A,60
CHIA:
MOV A,60
MOV B,#10
DIV AB
MOV R2,A
MOV R3,B
GOI:
MOV DPTR,#LED
MOV R7,#01111111b
MOV A,R3
CALL HIENTHI
MOV A,R2
CALL HIENTHI
LJMP GOI
HIENTHI:
MOV P2,#00h
MOV P0,#0FFh
MOVC A,@A+DPTR
MOV P2,A
MOV A,R7
RL A
MOV R7,A
MOV P0,A
RET
;-------------------------------------------------------------------------LED: DB 0FCh, 60h, 0DAh, 0F2h, 66h, 0B6h, 0BEh, 0E0h, 0FEh, 0F6h
;-------------------------------------------------------------------------END

Mong mấy bác chỉ giúp thằng em với. đ/c mail: tqk261@yahoo.com.vn
Bác nào muốn lấy mạch mô phỏng thì liên hệ với thằng em nhe!

[hongbang]

gúp mình lập trình đếm số người dùng mạch thu phát hồng ngoại đưa vào chân int0

[hongbang]

giúp em với

gúp mình lập trình đếm số người dùng mạch thu phát hồng ngoại đưa vào chân int0

8951 xuất ra led 7 đoạn