Sissejuhatus digitaaltehnikasse praktikum, AD-muunduri aruanne (0)

Ülesanne:
Analoog-digitaalmuunduri lugemine ja tulemuse väljastamine kahendkoodis
Käik:
Analoog/digitaalmuundurid (analoogsisendid) võimaldavad mõõta pinget 0-5 V. 8- bitise
muunduri korral jagatakse mõõtepiirkond 255ks osaks ning mõõdetavale pingele vastav
väärtus kirjutatakse mikrokontrolleri mälus olevasse registrisse .
AD- muundur võimaldab sisendi pinge 0-5 V muundada kahendkoodi ning sealt edasi. Kui LED-lambid on ühenduses, võimaldab kuvada need vastavalt kahendkoodile .
Programm kuvab AD-muundur väärtust seitsmesegmendilise indikaatoriga.
Plokkskeem :

Joonis 1: AD-muunduri plokkskeem
Juhtprogrammi väljatrükk:
;Mikrokontrolleri registrinimede lisamine
list p=16f877a
include "p16f877a.inc"
;Muutujate defineerimine
cblock 0x20
Pause
Pause_tmp
temp_var
endc
;Programm alates aadressist 0
org 0x00
bsf STATUS ,RP0 ;Valime mäluala 1
bcf STATUS,RP1
movlw b'00000000' ;Kogu portD on väljund
movwf TRISD
movlw b'00000000' ;Kogu portC on väljund
movwf TRISC
movlw .0
movwf ADCON1 ;PORTA seadistatakse analoogsisenditeks
movlw b'11111111' ;Kogu portA on sisend
movwf TRISA
bcf STATUS,RP0 ;Valime mäluala 0
bcf STATUS,RP1
bsf ADCON0,0 ;Käivitame A/D muunduri
wmainloop
bsf ADCON0,2 ;Alustame A/D muunduriga pinge mõõtmist
;PORTA0 sisendil. Mõõtetulemus on 10 bitine
;st. 5 volti jagatakse 1024 osaks.
;Mõõtetulemus salvestatakse registritesse
;ADRESL ja ADRESH. Registris ADRESH on
;salvestatud 8 vanemat bitti ning baidis
;ADRESL 2 noorimat bitti 10 bitisest arvust.
; Ootame kuni A/D muundur on mõõtmise lõpetanud.
oota_veidi
btfsc ADCON0,2 ; Kas mõõtmine on lõpetatud ?
goto oota_veidi ; Ootan
;Loeme ADRSEL registri sisu registrisse W
bsf STATUS,RP0 ;NB! register ADRESL paikneb mälualas 1.
bcf STATUS,RP1 ;Valime mäluala 1
movfw ADRESL ;Loeme 2 noorimat bitti registrisse W
bcf STATUS,RP0 ;Valime mäluala 0
bcf STATUS,RP1
movwf temp_var ;Salvestame ADRESL väärtuse muutujasse temp_var
movfw ADRESH ;Anname ADRESH väärtuse registrile PORTD
;(nüüd kuvatakse registri ADRESH sisu
;PORTD külge ühendatud valgusdioodidel)
movwf PORTD ;Kuvame mõõtetulemuse 3. st kuni 10. bitini
;PORTC4 ja PORTC5 külge ühendatud valgusdioodidega kuvatakse A/D
;mõõtetulemuse 1. ja 2. bitt .
bcf PORTC,4 ; Kustutame mõlemad bitid nulliks
bcf PORTC,5
btfsc temp_var,6 ; Bit test, skip if clear
bsf PORTC,4 ; Seatakse juhul kui temp_var bitt 6 on 1
btfsc temp_var,7 ; Bit test, skip if clear
bsf PORTC,5 ; Seatakse juhul kui temp_var bitt 7 on 1
clrf temp_var ; Kustutame muutuja temp_var nulliks
goto mainloop ; tagasi algusesse
end