Code:
DEFINE ADC_BITS 10
DEFINE ADC_CLOCK 3
DEFINE ADC_SAMPLEUS 50
number VAR word
CMCON = 7 ' Comparators off
ANSEL = %00000001 ' GPIO.0 A/D in, rest digital
ADCON0.7 = 1 ' Right justify for 10-bit
GPIO = %00000000 ' Initialize outputs
TRISIO = %00000001 ' GPIO.0 = input, rest outputs
PAUSE 100
Loop:
ADCIN 0, number ' (0-1023)
IF (number > 0) AND (number < 400) Then
GPIO = %00000010
'GPIO.1=1
'GPIO.2=0
'GPIO.4=0
EndIF
IF (number > 401) AND (number < 800) Then
GPIO = %00000100
'GPIO.1=0
'GPIO.2=1
'GPIO.4=0
EndIF
IF (number > 801) AND (number < 1024) Then
GPIO = %00010000
'GPIO.1=0
'GPIO.2=0
'GPIO.4=1
EndIF
number = 0
GoTo loop
Bookmarks