Proton BASIC Compiler - PIC18F1320 - Using ADC - 10 bits


  • PicŪ Basic


  • PIC18F1320 - Using ADC - 10 bits

    [PHP]
    PIC18F1320 to transmit data read by AN0 to PC at 115K,8N1 using the on chip EUSART


    Device 18F1320 ' Produce code for a 18F1320
    ' Config file
    ' Using 10Mhz Crystal - set PLL x 4 (40Mhz internal clock)
    ' MCLR disabled
    '
    XTAL = 40 ' 40 Mhz Int Osc
    WATCHDOG = OFF '
    '
    '
    '
    'Baud Rate setup
    Declare HSERIAL_BAUD 115200 ' 115200 baud
    Declare HSERIAL_RCSTA 010000 ' Sets the respective PICmicro hardware register RCSTA
    Declare HSERIAL_TXSTA 100100 ' Sets the respective PICmicro hardware register TXSTA
    Declare HSERIAL_CLEAR On ' Clear the overflow error bit before commencing a read
    '
    '
    '
    ' ADC Setup
    '-------------
    Declare ADIN_STIME 150 ' Settling time 150uS
    ADCON0 = 000001 ' Chan Select AN0
    ADCON1 = 111110 ' AN0 Analogue
    ADCON2 = 111110 ' Right justified, 20TAD, Fosc/64
    '
    ' Declare variables
    '---------------------
    Dim ADCVALUE As Word ' ADC reading
    '
    'Setup Ports
    '-------------
    TRISA = 000011 ' Set up IO PortA
    TRISB = 111101 ' Set up IO PortB
    '
    '
    '
    ReadADC:
    ADCVALUE = ADIn 0 ' Read ADC Chan 0
    HSerOut [DEC4 ADCVALUE, ","] ' Send
    GoTo ReadADC ' Loop for ever
    '
    '
    End
    [/PHP]
    This article was originally published in forum thread: PIC18F1320 - Using ADC - 10 bits started by Dick Barton View original post