Capture Mode

[nguyen.geo]

Nguyên văn bởi tdm

Sao khong dung duoc tieng viet nhi
ban dung thu nhe!
PIC16F877A HOAT DONG O CHE DO CAPTURE MODE
;
WAIT EQU 0x22
WAIT1 EQU 0x23
WAIT2 EQU 0x24
include <p16f877a.inc>
__CONFIG _CP_OFF & _WDT_OFF & _PWRTE_ON & _XT_OSC & _LVP_OFF
org 0x000
CLRF STATUS
; DOAN CHUONG TRINH KHOI TAO CHO CAPTURE MODE
BSF STATUS,RP0
BSF TRISC,2 ; RC2 IN-PUT CHON CHAN RC2 LAM CHAN DUA XUNG VAO
CLRF TRISB
BCF STATUS,RP0
CLRF CCP1CON ; KHOI TAO CHO CHE DO CAPTURE MODE
MOVLW .4 ; NAP GIA TRI TRUYEN VAO THANH GHI CCP1CON
MOVWF CCP1CON ; CHI KIEM TRA SUON XUNG XUONG

CLRF T1CON ; KHOI DONG CHO TIMER1
Loop
CLRF TMR1H
CLRF TMR1L
CLRF CCPR1H ; XOA THANH GHI CCPR1
CLRF CCPR1L
BCF PIR1,CCP1IF ; XOA CO NGAT DE TIEP TUC.
NOP
;CHO PHAT HIEN CANH LEN DE LAY MAU CHO CHUAN
BTFSS PIR1,CCP1IF ; DOI CCP1IF SET LEN 1
GOTO $-1
BCF PIR1,CCP1IF ; XOA CO NGAT DE TIEP TUC.
;BAT DAU LAY MAU
BSF T1CON,TMR1ON
;CHO CANH LEN LAN NUA DE LAY CA CHU KI
BTFSS PIR1,CCP1IF ; DOI CCP1IF SET LEN 1
GOTO $-1
BCF T1CON,TMR1ON
MOVF CCPR1H,0 ; DOC GIA TRI TU THANH GHI CCPR1L
MOVWF PORTB ; HIEN THI RA PORTB
CALL DELAY
MOVF CCPR1L,0 ; DOC GIA TRI TU THANH GHI CCPR1L
MOVWF PORTB ; HIEN THI RA PORTB
CALL DELAY
GOTO Loop ; LAP VO THOI HAN

DELAY ; DOAN CHUONG TRINH TAO THOI GIAN TRE
MOVLW .250
MOVWF WAIT
D1
MOVLW .250
MOVWF WAIT1
D2
MOVLW .250
MOVWF WAIT2
DECFSZ WAIT2,1
GOTO $-1
DECFSZ WAIT1,1
GOTO D2
DECFSZ WAIT,1
GOTO D1
RETURN
END

Thứ nhất rất chân thành cảm ơn anh đã giúp đỡ để em có thể lập trình cho chế độ này.
Em biết sẽ có rất nhiều người gặp phải trường hợp như em. Chính vì vậy em Post lên bài đầy đủ về Capture Mode để những người như em có thể lấy làm tài liệu tham khảo. Chương trình dưới đây đã chạy tốt các bạn coi như đây là 1 Modul cho Capture Mode :

; ************************************************** *************
; Đặt chế độ cho Capture Mode
CLRF STATUS
BSF STATUS,RP0
BSF PORTC,2 ; RC2 IN-PUT
CLRF PORTB ; PORTB OUT-PUT
BCF STATUS,RP0
CLRF CCP1CON
MOVLW .4 ; NAP GIA TRI TRUYEN VAO THANH GHI CCP1CON
MOVWF CCP1CON ; CHI KIEM TRA SUON XUNG XUONG
CLRF T1CON
LOOP
BCF PIR1,CCP1IF ; XOA CO NGAT DE TIEP TUC.
BTFSS PIR1,CCP1IF ; DOI CCP1IF SET LEN 1
GOTO $-1
CLRF TMR1H ; XOA GIA TRI TRONG THANH GHI TIMER1
CLRF TMR1L ; GIA TRI TRONG THANH GHI CCPR1x SE TU DONG XOA
BCF PIR1,CCP1IF ; XOA CO NGAT DE TIEP TUC.
BSF T1CON,TMR1ON; BAT DAU LAY MAU
BTFSS PIR1,CCP1IF ; DOI CCP1IF SET LEN 1
GOTO $-1
BCF T1CON,TMR1ON
MOVFW CCPR1H ; DOC GIA TRI TU THANH GHI CCPR1L
MOVLW PORTB ; HIEN THI RA PORTB
CALL DELAY
MOVFW CCPR1L ; DOC GIA TRI TU THANH GHI CCPR1L
MOVLW PORTB ; HIEN THI RA PORTB
CALL DELAY
GOTO LOOP

; DOAN CHUONG TRINH TAO THOI GIAN TRE
DELAY
MOVLW .250
MOVWF WAIT
D1
MOVLW .250
MOVWF WAIT1
D2
MOVLW .250
MOVWF WAIT2
DECFSZ WAIT2,1
GOTO $-1
DECFSZ WAIT1,1
GOTO D2
DECFSZ WAIT,1
GOTO D1
RETURN
END

Một lần nữa chân thành cảm ơn mọi người. Tôi đã hỏi và mọi người trả lời bây giờ tôi chưa có câu hỏi nào nhờ mọi người. Nhưng nếu ai có câu hỏi mà tôi có thể trả lời được thì tôi rất sẵn sang. Tôi làm về thiết kế mạch Analog và lập trình.. Trước đây thường lập trình cho 89C52 nay chuyển sang PIC nên còn hơi mắc.
Có gì mong anh em giúp đỡ. Chào và chúc thành công.