Proton BASIC Compiler - PIC18F1320 - Using ADC - 10 bits


  • PicŪ Basic


  • PIC18F1320 - Using ADC - 10 bits

    PHP Code:
    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 justified20TADFosc/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 
    This article was originally published in forum thread: PIC18F1320 - Using ADC - 10 bits started by Dick Barton View original post
  • Recent Activity

    fanie-643

    18F47K40 Port B issue

    Thread Starter: geoff_c

    Im having a problem with Port B on the 18F47K40. This is the first time Ive used a micro with the PPS so im guessing i missed something simple. Port...

    fanie Today, 01:07 Go to last post
    kuhrig-602

    ADC buffer into array or direct access as array?

    Thread Starter: kuhrig

    Hi, how can I access an internal 26 word ADC buffer as an array without addressing each single buffer into an array? Or can I somehow point an...

    kuhrig Yesterday, 17:49 Go to last post