| Analog in :
|
 |
| code:
DEFINE OSC 4 ADCvar VAR WORD TRISA
= %11111111 input
PORTB.0 main:
if portb.0 = 1 then ' if the switch is closed on pin RB0
else |
Analog in
Analog in :
potentiometer controlls the Green LED
Green LED lights up when ADCvar > 500
code:
DEFINE OSC 4
DEFINE ADC_BITS 10
DEFINE ADC_CLOCK 3
DEFINE ADC_SAMPLEUS 50ADCvar VAR WORD
TRISA = %11111111
ADCON1 = %10000010input PORTB.0
OUTPUT PORTD.1
OUTPUT PORTD.2main:
ADCIN 0, ADCvar ' Read channel 0 to adval
high PORTD.1
pause 500
low PORTD.1
pause 500if portb.0 = 1 then ' if the switch is closed on pin RB0
low portd.0 ' set pin RD1 lowelse
high portd.0 ' set RD1 high
endif
if (ADCvar > 500) then ' if the switch is closed on pin RB0
high portd.2 ' set pin RD1 low
else
low portd.2
endif
Serout2 PORTC.6, 16468, [DEC ADCvar, 13, 10] ' print it to serial out,
' with linefeed and carriage return (10, 13)
goto main