Week 3 Lighting up LEDs one by one!

By turning pot, LEDs turns on one by one.

Chip Programming

DEFINE OSC 4
include "modedefs.bas"
DEFINE ADC_BITS 10
DEFINE ADC_SAMPLEUS 50
ADCvar VAR WORD
TRISA = %11111111
ADCON1 = %10000010
Pause 500
output portb.7
output portb.6
output portb.5
output portb.4
output portb.3

low portb.7
low portb.6
low portb.5
low portb.4
low portb.3

main:
ADCIN 0, ADCvar
serout2 PORTC.6, 16468, [DEC ADCvar, 13, 10]
If ADCvar=>10
then
high portb.7
else
low portb.7
endif
if ADCvar=>200
then
high portb.6
else
low portb.6
endif
If ADCvar>=400
then
high portb.5
else
low portb.5
endif
if ADCvar>=600
then
high portb.4
else
low portb.4
endif
If ADCvar>=800
then
high portb.3
else
low portb.3
endif


GoTo main