A/D converter sample

[Paolo.T]

'Code example for 18F4458 very important setting -HS oscillator-
'Ad12.bas

DEFINE OSC 20

Define LCD_DREG PortB 'inizializza il display lcd sulla portaB'
Define LCD_DBIT 0 'inizializza il display lcd'
Define LCD_RSREG PORTB 'inizializza il display lcd'
Define LCD_RSBIT 4 'inizializza il display lcd'
Define LCD_EREG PORTB 'inizializza il display lcd'
Define LCD_EBIT 5 'inizializza il display lcd'
Define LCD_BITS 4 'modalità scrittura a 4 bit'
Define LCD_LINES 2 'display a 2 linee'
Define ADC_BITS 12

TrisA = %111111 'definisci i pin di entrata/uscita porta A'
TrisB = %00000000 'definisci i pin di entrata/uscita porta B'
TrisC = %00000000 'definisci i pin di entrata/uscita porta
TrisD = %00000000 'definisci i pin di entrata/uscita porta D'
TrisE = %001

B0 var word
B1 var word
B2 var word

Clear

ADCON0 = %00000011
ADCON1 = %00001101
ADCON2 = %10010100


Start: ADCON0 = %00000011
Pause 5
ADCON0 = %00000010
B0.HighByte = ADRESH
B0.LowByte = ADRESL
Lcdout $fe, 1
Lcdout "Test AD pic 18f"
Lcdout $fe,$c0
Lcdout "Value 12bit ",#B0
pause 25
Goto Start: