• 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

    joesaliba-353

    Pulse counter memory problem

    Thread Starter: amod

    Please tell me my faults.My pulse counter memory does not store.When i switch on device after 5 second ,memory exist by after 30 seconds it is washed...

    joesaliba Yesterday, 18:33 Go to last post