Feszültség- és ellenállásmérés.

A program "magja" lényegében már szerepel a RS232 A/D feldolgozás PC-vel (16F873) címmel, a lényegesebb változás a PC oldalán van. A letölhető verzióban csak az AN0 cstornát használhatod és más beállításra sincs módod. Az 'M' a másodpercenkénti mérés számát adja, míg a 'T' az ehhez tartozó mérési és kommunikációs időt. Jelen formájában a program és az áramkör kizálólag 5 V maximális feszültség mérésére használható!

A második program ellenállásmérésre használható, a program 150 k referenciaellenállással számol:

Bekötni csak az RxD,TxD és GND vonalakat kell, a többi nincs használva.

Áramkör: RS232 kapcsolat és analóg jel illesztése (16F873)
Letöltés: analog.zip (243 kB)
Letöltés: resist.zip (246 kB)

 

 


; PIC16F873 4MHz ; ANALÓG CSATORNÁK FELDOLGOZÁSA PC-VEL II. ; JErvin © 2005 list P = 16F873 include "P16f873.inc" ADCH EQU 0x020 ; AKTÍV AD-PORT BANK0: MACRO BCF STATUS, RP0 BCF STATUS, RP1 ENDM BANK1: MACRO BSF STATUS, RP0 BCF STATUS, RP1 ENDM ; ; VEKTOROK ; ORG 0x0000 GOTO START ORG 0x0004 RETFIE ; ; PORTOK ÉS ANALÓG BEÁLLÍTÁSOK ; START: BANK0 CLRF PORTA ; PORTOK TÖRLÉSE CLRF PORTB CLRF PORTC BANK1 CLRF TRISB ; PORTB MIND KIMENETRE MOVLW 0x80 ; PORTC RC0..RC6/TX KIMENETRE RC7/RX-BEMENETRE MOVWF TRISC ; SET MOVLW 0x2F ; PORTA ANALÓG BEMENTRE MOVWF TRISA ; SET MOVLW b'10000010' ; JOBBRA IGAZÍTÁS, MINDEN ANALÓG, VREF A TÁP MOVWF ADCON1 ; SET BANK0 MOVLW B'00000001' ; FOSC/2, AKTÍVCSATORNA RA0 , BEKAPCS. MOVWF ADCON0 ; SET ; ;KOMMUNIKÁCIÓ BEÁLLÍTÁSA ; BANK1 MOVLW 0x19 ; 9600 BAUD MOVWF SPBRG ; SET BSF TXSTA, BRGH ; HIGH SPEED BSF TXSTA, TXEN ; ADÁS ENGED BANK0 BSF RCSTA, CREN ; VÉTEL ENGED BSF RCSTA, SPEN ; SOROS PORT ENGED MOVLW b'00000000' ; MÉRÉS OFF MOVWF ADCH ; AKTÍV AD-PORT ; ; FOPROGRAM ; FOPROG: BCF RCSTA, OERR ; RÁFUTÁSI HIBA TÖRLÉSE BTFSS PIR1, RCIF ; VAN VÉTEL? (ÚJ AD-PORT?) GOTO MERES ; HA NINCS, MÉRÉSRE MOVFW RCREG ; VEVŐREGISZTER KIOLVASÁSA MOVWF ADCH ; ÚJ AD-PORT TÁROLÁSA MERES: MOVFW ADCH ; ADPORT == 0 BTFSC STATUS, Z ; AKKOR GOTO FOPROG ; MÉRÉS OFF MOVWF ADCON0 ; SET A PC-ROL KAPOTT AKTÍVCSATORNA BSF ADCON0, GO ; AD START BTFSC ADCON0, GO ; A/D KÉSZ ? GOTO $-1 ; HA NEM, VISSZA MOVLW 'S' ; ADATCSOMAG KEZDET KÜLDÉS CALL SEND ; MOVFW ADRESH ; AD EREDMÉNY HI-BYTE CALL SEND ; KÜLDÉS BANK1 MOVFW ADRESL ; AD EREDMÉNY LO-BYTE BANK0 CALL SEND ; KÜLDÉS MOVLW 'E' ; ADATCSOMAG VÉGE KÜLDÉS CALL SEND GOTO FOPROG ; MÉG, MÉG... SEND: BTFSS PIR1, TXIF ; TX PUFFER ÜRES? GOTO $-1 ; HA NEM, VÁRAKOZÁS MOVWF TXREG ; KÜLDÉS RETURN END