Usart + Adc

Device = 18F1320
Clock = 4 // 4MHz clock
Config OSC = INTIO2, WDT = OFF, LVP = OFF

Include "IntOsc4.bas"
Include "ADC.bas"
Include "USART.bas"
Include "convert.bas"

    
Function Get_ADC_Sample() As Float   // Function to grab the ADC sample

    result = ADC.Read(1)     //grab a voltage from channel 1 and convert it
    result = (result +1)*500
    result = result / 1024
End Function

SetBaudrate (br9600)

   
While True                         // Create an infinite loop
USART.Write ("DC Volts = ",Get_ADC_Sample ,13,10)
DelayMS (500)
        
Wend

Device = 18F1320
Clock = 4
Config OSC = INTIO2, WDT = OFF, LVP = OFF

Include "USART.bas"
Include "ADC.bas"
Include "convert.bas"

Dim ADVal As Word
// Read the AD port and scale for 0.00 - 5.00 volts...
Function ADInAsVolt() As Word
    result = (ADC.Read(1) + 1) * 500 / 1024
End Function
// Start Of Program...
OSCCON = $62    ' 4MHz internal clock
SetBaudrate (br9600)

// main program loop...
While true
    ADVal = ADInAsVolt
    USART.Write("DC Volts = ", DecToStr(ADVal / 100), ".", DecToStr(ADVal, 2), " ",13,10)
    DelayMS(500)
Wend