*****giriş ve çıkışları tanıtımı*****
trısa=%00001111 'porta giriş olarak ayarlandı
trısb=0 '2*16 lcd bağlı çıkış olarak ayarlandı
'*****lcd tanımlamaları*****
defıne lcd_dreg portb 'lcd data bacakları portb'ye bağlı
defıne lcd_dbıt 4 'lcd data bacakları portb.4 bağlı
defıne lcd_ereg portb 'lcd enable pini portb'ye bağlı
defıne lcd_ebıt 3 'lcd enable pini portb.3 bağlı
defıne lcd_rsreg portb 'lcd rs pini portb'ye bağlı
defıne lcd_rsbıt 2 'lcd rs pini portb.2 bağlı
defıne lcd_bıts 4 'lcd 4 bıt bağlı
defıne lcd_lınes 4 'lcd 20*4
'rw pini toprağa bağladık dolayısıyla bı pin gerekli komut yazmaya gerek yoktur.
'*****adc tanımlamaları*****
defıne adc_bıts 10 'adc 10 bit
defıne adc_clock 0
defıne adc_sampleus 50 'örnekleme zamanı 50 mikrosaniye
adc_deger var word 'adc_deger 16 bit word cinsinden tanımlama
adc_deger1 var word 'adc_deger 16 bit word cinsinden tanımlama
adc_deger2 var word 'adc_deger 16 bit word cinsinden tanımlama
adc_deger3 var word 'adc_deger 16 bit word cinsinden tanımlama
adcon1=%10000010 '10 bitlik adc için gerekli değer
basla:
Adcın 0,adc_deger 'an0 kanalından adc degerını oku
lcdout $fe,1 'lcd içeriğini temizle
lcdout "adc_deger ",dec adc_deger
adcın 1,adc_deger1 'an1 kanalından adc degerını oku
lcdout $fe,$c0 'lcd içeriğini temizle
lcdout "adc_deger1 ",dec adc_deger1
adcın 2,adc_deger2 'an2 kanalından adc degerını oku
lcdout $fe,$94 'lcd içeriğini temizle
lcdout "adc_deger2 ",dec adc_deger2
adcın 3,adc_deger3 'an3 kanalından adc degerını oku
lcdout $fe,$d4 'lcd içeriğini temizle
lcdout "adc_deger3 ",dec adc_deger3
pause 500
goto basla
end