How Do I Use The Analog Pins In Pic 16f877a With MikroBasic

program Gen_Test


dim adc_rd as word
dim str_x as string [20]

        
main:

'   Main program

    ADCON1 = 0x00          ' Configure AN2 pin as analog
    TRISA  = 0xFF            ' PORTA is input

    UART1_Init(4800)         ' initialize UART module
    Delay_ms(100)

    UART1_Write_Text("Ok")              

 while TRUE


     adc_rd = ADC_Read(2)    ' get ADC value from 2nd channel
     WordToStr(adc_rd,str_x)
     UART1_Write_Text(str_x)              
     Delay_ms(5000)

 wend


end.

program ADC_Test
dim ADC_Rd as word
main:
     TRISA = $FF 'PORTA assigned as input
     TRISB = 0 'PORTB assigned as output
     PORTB = 0
     while true
          ADC_Rd = ADC_Read(2) 'Read Channel 2
          PORTB = ADC_Rd >> 2 'Send 8 bit data to PORTB
     wend
end.