16F1938 de ADC Kullanımı

[elektro77]

Aşağıdaki kodlar yeni kullanmaya başladığım bir pic olan 16F1938 de ADC okuma örneğidir.
Belki bu pici kullanmak isteyenler olur diye bir örnek olması açısından simülasyonu ile birlikte buraya bırakıyorum. (Aslında bu konuyu üye projelerine yada daha uygun bir bölüme ekleseydim iyi olurdu ama değiştiremiyorum.)

#config
        __config _CONFIG1, _FOSC_XT
        __config _CONFIG2, _PLLEN_OFF & _LVP_OFF

#endconfig
'----------------------------------------------------------------------------------
OSCCON =%01101000 '4 MHz
TRISA =1 'HEPSİ GİRİŞ
TRISB =0 'HEPSİ ÇIKIŞ
TRISC =0 'HEPSİ ÇIKIŞ
OPTION_REG.7 = 1 ;PULLUPLAR İPTAL
ANSELA = 1'PORT A ADC ETKİN
ANSELB = 0'PORT B ADC DEVRE DIŞI,HEPSİ DİJİTAL I/0
ADCON1 = %11000000; 10 BİT ADC
'------------------------
Define  ADC_BITS     10   ' Set number of bits in result
Define  ADC_CLOCK    4    ' Set clock source Fosc/4
Define  ADC_SAMPLEUS 50   ' Set sampling time in uS
HAM Var Word
'----------------------------
Define LCD_DREG  PORTC
Define LCD_DBIT  4
Define LCD_RSREG PORTC
Define LCD_RSBIT 0
Define LCD_EREG  PORTC
Define LCD_EBIT  1

Lcdout $fe, 1:PAUSE 200 
'*******************************************************************************
BASLA:
    Adcin 0, HAM         
    Lcdout $fe, 1          
    Lcdout "HAM: ", DEC HAM 
Pause 100              
Goto BASLA          

End