Dijital Voltmetre

Arkadaşlar merhaba bugün size kendi hazırladığım dijital voltmetreyi paylaşıcam.Mikrodenetleyici olarak pic16f876 kullanılmıştır,2x16 lcd ekran olarak lm016 kullanılmıştır,mikrodenetleyicimiz mikroelektronika şirketinin mikrobasic derleyicisi ile derlenmiştir.Devre şeması aşağıdadır;

 

Mikrodenetleyicilere kaynak hex kodunu yüklemek gerekir bunun içinde mikrobasic programını yükleyip aşağıdaki kodları derlemeniz gerekmektedir;
program voltmetre
Dim ch as char
Dim volt as word
Dim a as char[10]
main:
adcon1=$80
Trisb=0
Trisa=255
lcd_init(portb)
lcd_cmd(lcd_cursor_off)
a="Gerilim="
lcd_out(2,1,a)
do
volt=adc_read(2)
volt=volt*5
ch=(volt div 1000) mod 10
lcd_chr(2,9,48+ch)
lcd_chr(2,10,".")
ch=(volt div 100)mod 10
lcd_chr(2,11,48+ch)
ch=(volt div 10) mod 10
lcd_chr(2,12,48+ch)
loop until false
end.

Eğer farkettiyseniz ADCON komutu ile mikrodenetleyicimizin analog-dijital dönüştürücüsü aktif hale getirilmiştir.Çünkü A portuna gerilim değerleri analog olarak gelmekte ve lcd ekranda dijital olarak gösterilmektedir.Program ve devre sağlamdır,herkese başarılar.