digital-diy.com

Device = 18F2550                    // Setup the device/clock information
Clock = 8
Config FOSC = INTOSCIO_EC
 
Include "ADC.bas"                   // Include the ADC.bas library
 
Dim LED as PORTC.0                  // Declare the LED pin
 
 
function Get_ADC_Sample() as word   // Function to grab the ADC sample
 
   result = ADC.Read(0)             // Grab an ADC sample from channel 0
   result = result * 2              // Scale the answer up by a factor of 2
 
end function
 
 
OSCCON = %01110110                 // Setup the internal OSC for 8Mhz
 
Input(PORTA.0)                     // Make AN0 an input
 
While True                         // Create an infinate loop
 
    High(LED)                      // Make the LED pin High
    Delayms(100 + Get_ADC_Sample)  // Delay for 0.1 seconds + the ADC result
 
    Low(LED)                       // Make the LED pin Low
    Delayms(100 + Get_ADC_Sample)  // Delay for 0.1 seconds + the ADC result
 
Wend