PIC Vietnam - View Single Post - chương trình đọc adc dùng pic 16f877a lm35

**phatcddt08a** · 21-12-2010, 11:14 PM

bai 1 :3led
chon noi luu 8bit cao tai thanh ghi adresh va 2 bit thap adresl
bai nay khong su dung ic giai ma cho led 7 doan
TITLE "MACH DO NHIET DUNG LM35 CO DO PHAN DAI TU 0 DEN 150"
PROCESSOR 16F877A
#INCLUDE<P16F877A.INC>
__CONFIG _CP_OFF & _WDT_OFF & _BODEN_OFF & _PWRTE_ON & _XT_OSC & _WRT_OFF & _LVP_OFF & _CPD_OFF
CHUC EQU 20H
COUNT1 EQU 21H
COUNTA EQU 22H
COUNTB EQU 23H
TRAM EQU 24H
ORG 0000H
BCF STATUS,6
BSF STATUS,5
CLRF TRISB
CLRF TRISE
CLRF TRISD
BSF TRISA,0
BCF STATUS,5
CLRF PORTB
CLRF PORTE
CLRF PORTD
CLRF PORTA
MAIN
CLRF TRAM
CLRF CHUC
CALL DOCADC
RLF ADRESH,1
MOVLW B'11111110'
ANDWF ADRESH,1
MOVLW D'26'
SUBWF ADRESH,0
BTFSS STATUS,0
GOTO XUAT
DECF ADRESH,1
MOVLW D'66'
SUBWF ADRESH,0
BTFSS STATUS,0
GOTO XUAT
DECF ADRESH,1
MOVLW D'105'
SUBWF ADRESH,0
BTFSS STATUS,0
GOTO XUAT2
DECF ADRESH,1
MOVLW D'145'
SUBWF ADRESH,0
BTFSS STATUS,0
GOTO XUAT
DECF ADRESH,1
XUAT2
MOVLW B'10000000'
BSF STATUS,5
SUBWF ADRESL,0
BTFSS STATUS,0
GOTO XUATDULIEU
BCF STATUS,5
MOVLW D'104'
XORWF ADRESH,0
BTFSS STATUS,2
GOTO XUATDULIEU2
GOTO XUATDULIEU
XUAT
MOVLW B'10000000'
BSF STATUS,5
SUBWF ADRESL,0
BTFSS STATUS,0
GOTO XUATDULIEU
BCF STATUS,5
MOVLW D'65'
XORWF ADRESH,0
BTFSS STATUS,2
GOTO XUATDULIEU2
XUATDULIEU
BCF STATUS,5
GOTO KIEMTRASANGTAT
XUATDULIEU2
INCF ADRESH
GOTO KIEMTRASANGTAT
KIEMTRASANGTAT
BCF STATUS,5
MOVLW D'60'
SUBWF ADRESH,0
BTFSS STATUS,0
GOTO OFF
BSF PORTD,0
GOTO TACHSO
OFF
BCF PORTD,0
TACHSO
MOVLW D'100'
SUBWF ADRESH,0
BTFSS STATUS,0
GOTO KIEMTRACHUC
INCF TRAM,1
MOVWF ADRESH
GOTO TACHSO
KIEMTRACHUC
BCF STATUS,5
MOVLW D'10'
SUBWF ADRESH,0
BTFSS STATUS,0
GOTO XUATSO
INCF CHUC,1
MOVWF ADRESH
GOTO KIEMTRACHUC
XUATSO
MOVF TRAM,W
CALL BANG
MOVWF PORTB
MOVLW B'1111110'
MOVWF PORTE
CALL DELAY
MOVF CHUC,W
CALL BANG
MOVWF PORTB
MOVLW B'11111101'
MOVWF PORTE
CALL DELAY
MOVF ADRESH,W
CALL BANG
MOVWF PORTB
MOVLW B'11111011'
MOVWF PORTE
CALL DELAY
GOTO MAIN
DOCADC
BSF STATUS,5
BSF ADCON1,3
BSF ADCON1,2
BSF ADCON1,1
BCF ADCON1,0
BCF STATUS,5
BCF ADCON0,5
BCF ADCON0,4
BCF ADCON0,3
BCF ADCON0,7
BCF ADCON0,6
BSF STATUS,5
BSF ADCON1,6
BCF ADCON1,7
BCF STATUS,5
BSF ADCON0,0
BSF ADCON0,2
LOOP1
BCF STATUS,5
BTFSC ADCON0,2
GOTO LOOP1
RETURN

BANG
ADDWF PCL,1
RETLW B'11000000'
RETLW B'11111001'
RETLW B'10100100'
RETLW B'10110000'
RETLW B'10011001'
RETLW B'10010010'
RETLW B'10000010'
RETLW B'11111000'
RETLW B'10000000'
RETLW B'10010000'
DELAY
MOVLW D'10'
MOVWF COUNT1
LOOP2
MOVLW D'199'
MOVWF COUNTA
MOVLW D'1'
MOVWF COUNTB
LOOP0
DECFSZ COUNTA,1
GOTO $+2
DECFSZ COUNTB,1
GOTO LOOP0
DECFSZ COUNT1,1
GOTO LOOP2
RETURN

END

bai2 :2 led
chon noi luu 8bit thap tai thanh ghi adresl va 2 bit cao adresh

PROCESSOR 16F877A
#INCLUDE<P16F877A.INC>
__CONFIG _CP_OFF & _WDT_OFF & _BODEN_OFF & _PWRTE_ON & _XT_OSC & _WRT_OFF & _LVP_OFF & _CPD_OFF
CHUC EQU 20H
COUNT1 EQU 21H
COUNTA EQU 22H
COUNTB EQU 23H
TAM EQU 24H
DONVI EQU 25H
ORG 0000H
BCF STATUS,6
BSF STATUS,5
CLRF TRISB
CLRF TRISE
BSF TRISA,0
BCF STATUS,5
CLRF PORTB
CLRF PORTE
CLRF PORTA
MAIN
CLRF CHUC
CALL DOCADC
RLF ADRESH,1
MOVLW B'11111110'
ANDWF ADRESH,1
MOVLW D'26'
SUBWF ADRESH,0
BTFSS STATUS,0
GOTO XUAT
DECF ADRESH,1
MOVLW D'66'
SUBWF ADRESH,0
BTFSS STATUS,0
GOTO XUAT
DECF ADRESH,1
XUAT
MOVLW B'10000000'
BSF STATUS,5
SUBWF ADRESL,0
BTFSS STATUS,0
GOTO TACHSO
BCF STATUS,5
MOVLW D'65'
XORWF ADRESH,0
BTFSS STATUS,2
INCF ADRESH
TACHSO
BCF STATUS,5
MOVLW D'10'
SUBWF ADRESH,0
BTFSS STATUS,0
GOTO XUATSO
INCF CHUC,1
MOVWF ADRESH
GOTO TACHSO
XUATSO
MOVF CHUC,W
CALL BANG
MOVWF PORTB
MOVLW B'11111110'
MOVWF PORTE
CALL DELAY
MOVF ADRESH,W
CALL BANG
MOVWF PORTB
MOVLW B'11111101'
MOVWF PORTE
CALL DELAY
GOTO MAIN
DOCADC
BSF STATUS,5
BSF ADCON1,3
BSF ADCON1,2
BSF ADCON1,1
BCF ADCON1,0
BCF STATUS,5
BCF ADCON0,5
BCF ADCON0,4
BCF ADCON0,3
BCF ADCON0,7
BCF ADCON0,6
BSF STATUS,5
BSF ADCON1,6
BCF ADCON1,7
BCF STATUS,5
BSF ADCON0,0
BSF ADCON0,2
LOOP1
BCF STATUS,5
BTFSC ADCON0,2
GOTO LOOP1
RETURN

BANG
ADDWF PCL,1
RETLW B'11000000'
RETLW B'11111001'
RETLW B'10100100'
RETLW B'10110000'
RETLW B'10011001'
RETLW B'10010010'
RETLW B'10000010'
RETLW B'11111000'
RETLW B'10000000'
RETLW B'10010000'
DELAY
MOVLW D'10'
MOVWF COUNT1
LOOP2
MOVLW D'199'
MOVWF COUNTA
MOVLW D'1'
MOVWF COUNTB
LOOP0
DECFSZ COUNTA,1
GOTO $+2
DECFSZ COUNTB,1
GOTO LOOP0
DECFSZ COUNT1,1
GOTO LOOP2
RETURN

END

bai cua ban su dung thanh ghi adresl ma ban chua chon bank dung cho no du ban co dich khong loi thi chuong trinh no cung khong chay dc adresl la so bank1
tuc chon bank 1 truoc khi su dung adresl

21-12-2010, 11:14 PM	#4
phatcddt08a Đệ tử 5 túi Tham gia ngày: Dec 2010 Bài gửi: 101 :	tham khao bai minh viet nhe ban bai 1 :3led chon noi luu 8bit cao tai thanh ghi adresh va 2 bit thap adresl bai nay khong su dung ic giai ma cho led 7 doan TITLE "MACH DO NHIET DUNG LM35 CO DO PHAN DAI TU 0 DEN 150" PROCESSOR 16F877A #INCLUDE<P16F877A.INC> __CONFIG _CP_OFF & _WDT_OFF & _BODEN_OFF & _PWRTE_ON & _XT_OSC & _WRT_OFF & _LVP_OFF & _CPD_OFF CHUC EQU 20H COUNT1 EQU 21H COUNTA EQU 22H COUNTB EQU 23H TRAM EQU 24H ORG 0000H BCF STATUS,6 BSF STATUS,5 CLRF TRISB CLRF TRISE CLRF TRISD BSF TRISA,0 BCF STATUS,5 CLRF PORTB CLRF PORTE CLRF PORTD CLRF PORTA MAIN CLRF TRAM CLRF CHUC CALL DOCADC RLF ADRESH,1 MOVLW B'11111110' ANDWF ADRESH,1 MOVLW D'26' SUBWF ADRESH,0 BTFSS STATUS,0 GOTO XUAT DECF ADRESH,1 MOVLW D'66' SUBWF ADRESH,0 BTFSS STATUS,0 GOTO XUAT DECF ADRESH,1 MOVLW D'105' SUBWF ADRESH,0 BTFSS STATUS,0 GOTO XUAT2 DECF ADRESH,1 MOVLW D'145' SUBWF ADRESH,0 BTFSS STATUS,0 GOTO XUAT DECF ADRESH,1 XUAT2 MOVLW B'10000000' BSF STATUS,5 SUBWF ADRESL,0 BTFSS STATUS,0 GOTO XUATDULIEU BCF STATUS,5 MOVLW D'104' XORWF ADRESH,0 BTFSS STATUS,2 GOTO XUATDULIEU2 GOTO XUATDULIEU XUAT MOVLW B'10000000' BSF STATUS,5 SUBWF ADRESL,0 BTFSS STATUS,0 GOTO XUATDULIEU BCF STATUS,5 MOVLW D'65' XORWF ADRESH,0 BTFSS STATUS,2 GOTO XUATDULIEU2 XUATDULIEU BCF STATUS,5 GOTO KIEMTRASANGTAT XUATDULIEU2 INCF ADRESH GOTO KIEMTRASANGTAT KIEMTRASANGTAT BCF STATUS,5 MOVLW D'60' SUBWF ADRESH,0 BTFSS STATUS,0 GOTO OFF BSF PORTD,0 GOTO TACHSO OFF BCF PORTD,0 TACHSO MOVLW D'100' SUBWF ADRESH,0 BTFSS STATUS,0 GOTO KIEMTRACHUC INCF TRAM,1 MOVWF ADRESH GOTO TACHSO KIEMTRACHUC BCF STATUS,5 MOVLW D'10' SUBWF ADRESH,0 BTFSS STATUS,0 GOTO XUATSO INCF CHUC,1 MOVWF ADRESH GOTO KIEMTRACHUC XUATSO MOVF TRAM,W CALL BANG MOVWF PORTB MOVLW B'1111110' MOVWF PORTE CALL DELAY MOVF CHUC,W CALL BANG MOVWF PORTB MOVLW B'11111101' MOVWF PORTE CALL DELAY MOVF ADRESH,W CALL BANG MOVWF PORTB MOVLW B'11111011' MOVWF PORTE CALL DELAY GOTO MAIN DOCADC BSF STATUS,5 BSF ADCON1,3 BSF ADCON1,2 BSF ADCON1,1 BCF ADCON1,0 BCF STATUS,5 BCF ADCON0,5 BCF ADCON0,4 BCF ADCON0,3 BCF ADCON0,7 BCF ADCON0,6 BSF STATUS,5 BSF ADCON1,6 BCF ADCON1,7 BCF STATUS,5 BSF ADCON0,0 BSF ADCON0,2 LOOP1 BCF STATUS,5 BTFSC ADCON0,2 GOTO LOOP1 RETURN BANG ADDWF PCL,1 RETLW B'11000000' RETLW B'11111001' RETLW B'10100100' RETLW B'10110000' RETLW B'10011001' RETLW B'10010010' RETLW B'10000010' RETLW B'11111000' RETLW B'10000000' RETLW B'10010000' DELAY MOVLW D'10' MOVWF COUNT1 LOOP2 MOVLW D'199' MOVWF COUNTA MOVLW D'1' MOVWF COUNTB LOOP0 DECFSZ COUNTA,1 GOTO $+2 DECFSZ COUNTB,1 GOTO LOOP0 DECFSZ COUNT1,1 GOTO LOOP2 RETURN END bai2 :2 led chon noi luu 8bit thap tai thanh ghi adresl va 2 bit cao adresh PROCESSOR 16F877A #INCLUDE<P16F877A.INC> __CONFIG _CP_OFF & _WDT_OFF & _BODEN_OFF & _PWRTE_ON & _XT_OSC & _WRT_OFF & _LVP_OFF & _CPD_OFF CHUC EQU 20H COUNT1 EQU 21H COUNTA EQU 22H COUNTB EQU 23H TAM EQU 24H DONVI EQU 25H ORG 0000H BCF STATUS,6 BSF STATUS,5 CLRF TRISB CLRF TRISE BSF TRISA,0 BCF STATUS,5 CLRF PORTB CLRF PORTE CLRF PORTA MAIN CLRF CHUC CALL DOCADC RLF ADRESH,1 MOVLW B'11111110' ANDWF ADRESH,1 MOVLW D'26' SUBWF ADRESH,0 BTFSS STATUS,0 GOTO XUAT DECF ADRESH,1 MOVLW D'66' SUBWF ADRESH,0 BTFSS STATUS,0 GOTO XUAT DECF ADRESH,1 XUAT MOVLW B'10000000' BSF STATUS,5 SUBWF ADRESL,0 BTFSS STATUS,0 GOTO TACHSO BCF STATUS,5 MOVLW D'65' XORWF ADRESH,0 BTFSS STATUS,2 INCF ADRESH TACHSO BCF STATUS,5 MOVLW D'10' SUBWF ADRESH,0 BTFSS STATUS,0 GOTO XUATSO INCF CHUC,1 MOVWF ADRESH GOTO TACHSO XUATSO MOVF CHUC,W CALL BANG MOVWF PORTB MOVLW B'11111110' MOVWF PORTE CALL DELAY MOVF ADRESH,W CALL BANG MOVWF PORTB MOVLW B'11111101' MOVWF PORTE CALL DELAY GOTO MAIN DOCADC BSF STATUS,5 BSF ADCON1,3 BSF ADCON1,2 BSF ADCON1,1 BCF ADCON1,0 BCF STATUS,5 BCF ADCON0,5 BCF ADCON0,4 BCF ADCON0,3 BCF ADCON0,7 BCF ADCON0,6 BSF STATUS,5 BSF ADCON1,6 BCF ADCON1,7 BCF STATUS,5 BSF ADCON0,0 BSF ADCON0,2 LOOP1 BCF STATUS,5 BTFSC ADCON0,2 GOTO LOOP1 RETURN BANG ADDWF PCL,1 RETLW B'11000000' RETLW B'11111001' RETLW B'10100100' RETLW B'10110000' RETLW B'10011001' RETLW B'10010010' RETLW B'10000010' RETLW B'11111000' RETLW B'10000000' RETLW B'10010000' DELAY MOVLW D'10' MOVWF COUNT1 LOOP2 MOVLW D'199' MOVWF COUNTA MOVLW D'1' MOVWF COUNTB LOOP0 DECFSZ COUNTA,1 GOTO $+2 DECFSZ COUNTB,1 GOTO LOOP0 DECFSZ COUNT1,1 GOTO LOOP2 RETURN END bai cua ban su dung thanh ghi adresl ma ban chua chon bank dung cho no du ban co dich khong loi thi chuong trinh no cung khong chay dc adresl la so bank1 tuc chon bank 1 truoc khi su dung adresl thay đổi nội dung bởi: phatcddt08a, 21-12-2010 lúc 11:24 PM.