Code:
#CONFIG
__config _CONFIG1, _FEXTOSC_OFF & _RSTOSC_HFINT32 & _CLKOUTEN_OFF & _CSWEN_OFF & _FCMEN_ON
__config _CONFIG2, _MCLRE_ON & _PWRTE_OFF & _LPBOREN_OFF & _BOREN_ON & _BORV_LO & _ZCD_OFF & _PPS1WAY_OFF & _STVREN_ON & _DEBUG_OFF
__config _CONFIG3, _WDTCPS_WDTCPS_11 & _WDTE_OFF & _WDTCWS_WDTCWS_7 & _WDTCCS_LFINTOSC
__config _CONFIG4, _WRT_OFF & _SCANE_available & _LVP_OFF
__config _CONFIG5, _CP_OFF & _CPD_OFF
#ENDCONFIG
DEFINE OSC 32
DEFINE ADC_BITS 10 ' 10-bit Analog to digital
DEFINE ADC_SAMPLEUS 50 ' Set sampling time in uS
DEFINE HSER_RXREG PORTC
DEFINE HSER_RXBIT 7
DEFINE HSER_TXREG PORTC
DEFINE HSER_TXBIT 6
DEFINE HSER_RCSTA 90h ' Enable serial port & continuous receive
DEFINE HSER_TXSTA 24h ' Enable transmit, BRGH = 1
Define HSER_BAUD 115200
DEFINE HSER_CLROERR 1 ' Clear overflow automatically
DEFINE HSER_SPBRGH 0
DEFINE HSER_SPBRG 68
;--- Setup registers -----------------------------------------------------------
BAUDCON.3 = 1 ' Enable 16 bit baudrate generator
FVRCON = %10000011 ' FIXED VOLTAGE REFERENCE CONTROL REGISTER
' bit 7 FVREN: Fixed Voltage Reference Enable bit
' ---> 1 = Fixed Voltage Reference is enabled
' bit 1-0 ADFVR<1:0>: ADC FVR Buffer Gain Selection bit
' ---> 11 = ADC FVR Buffer Gain is 4x, (4.096V)(2)
ADCON0 = %10000100 ' ADC CONTROL REGISTER 0
' bit 7 ADON: ADC Enable bit
' ---> 1 = ADC is enabled
' bit 2 ADFRM0: ADC results Format/alignment Selection
' ---> 1 = ADRES and ADPREV data are right-justified
ADCON2 = %00000000 ' ADC CONTROL REGISTER 2
' bit 2-0 ADMD<2:0>: ADC Operating Mode Selection bits(1)
' ---> 000 = Basic (Legacy) mode
ADCLK = %00111111 ' ADC CLOCK SELECTION REGISTER
' bit 5-0 ADCCS<5:0>: ADC Conversion Clock Select bits
' ---> 111111 = FOSC/128
ADREF = %00000011 ' ADC REFERENCE SELECTION REGISTER
' bit 4 ADNREF: ADC Negative Voltage Reference Selection bit
' ---> 0 = VREF- is connected to AVSS
' bit 1-0 ADPREF: ADC Positive Voltage Reference Selection bits
' ---> 11 = VREF+ is connected to FVR_buffer 1
ADPCH = %00000000 ' ADC POSITIVE CHANNEL SELECTION REGISTER
' ---> 000000 = ANA0
ANSELA = %00000111 ' Pin A2 = ADC (B5K)
' Pin A1 = ADC (B5K)
' Pin A0 = ADC (voltage divider)
ANSELB = %00000000
ANSELC = %00000000
TRISA = %00000111 ' Pin A2 = ADC input 2
' Pin A1 = ADC input 1
' Pin A0 = ADC input 0
TRISB = %00000000 ' Pin B7 = ...not available, ICSPDAT
' Pin B6 = ...not available, ICSPCLK
TRISC = %11000000 ' Pin C7 = RX *** Datasheet requirement, INPUT ***
' Pin C6 = TX *** Datasheet requirement, INPUT ***
ADCinput var WORD
ADCtot var WORD
ADCcalc var WORD
ADCdiff var WORD
ADCLoop VAR BYTE
OldADC0 var WORD
OldADC1 var WORD
OldADC2 var WORD
Pause 500 ' Let PIC and LCD stabilize
ADCinput = 0 : ADCdiff = 0
OldADC0 = 9999 : OldADC1 = 9999 : OldADC2 = 9999
Mainloop:
rem ADC0, 4K7-4K7 voltage divider
adcin 0, ADCinput : Pauseus 1 ' preliminary ADCIN to establish channel used
ADCtot = 0
FOR ADCLoop = 0 TO 15 ' Load 16 ADC values
adcin 0, ADCinput : Pauseus 1
ADCtot = ADCtot + ADCinput
NEXT ADCLoop
ADCcalc = ADCtot / 16 ' Average out
if ADCcalc < oldADC0 then ' Calculate change in ADC
ADCdiff = oldadc0 - ADCcalc
else
ADCdiff = ADCcalc - oldadc0
endif
IF (ADCdiff > 2) or _ ' Check for Diff over 2 ... OR
((adccalc <> oldadc0) and _ ' ADC value changed ... AND
(adccalc = 0 or adccalc = 1023)) then ' Reached end of rotation
hserout [ "OldADC0:", DEC4 oldadc0, " ", _
" ", _
"ADCin:", DEC4 ADCcalc, " ", _
"Diff:", dec4 ADCdiff, " ", _
"Sum:", Dec5 ADCtot, 10]
while TXSTA.1 = 0 ' Check TRMT bit
wend
oldADC0 = ADCcalc
endif
rem ADC1, B5K pot
adcin 0, ADCinput : Pauseus 1 ' preliminary ADCIN to establish channel used
ADCtot = 0
FOR ADCLoop = 0 TO 15 ' Load 16 ADC values
adcin 1, ADCinput : Pauseus 1
ADCtot = ADCtot + ADCinput
NEXT ADCLoop
ADCcalc = ADCtot / 16 ' Average out
if ADCcalc < oldADC1 then ' Calculate change in ADC
ADCdiff = oldadc1 - ADCcalc
else
ADCdiff = ADCcalc - oldadc1
endif
IF (ADCdiff > 2) or _ ' Check for Diff over 2 ... OR
((adccalc <> oldadc1) and _ ' ADC value changed ... AND
(adccalc = 0 or adccalc = 1023)) then ' Reached end of rotation
hserout [ " ", _
"OldADC1:", DEC4 oldadc1, " ", _
" ", _
"ADCin:", DEC4 ADCcalc, " ", _
"Diff:", dec4 ADCdiff, " ", _
"Sum:", Dec5 ADCtot, 10]
while TXSTA.1 = 0 ' Check TRMT bit
wend
oldADC1 = ADCcalc
endif
rem ADC2, B5K pot
adcin 2, ADCinput : Pauseus 1 ' preliminary ADCIN to establish channel used
ADCtot = 0
FOR ADCLoop = 0 TO 15 ' Load 16 ADC values
adcin 2, ADCinput : Pauseus 1
ADCtot = ADCtot + ADCinput
NEXT ADCLoop
ADCcalc = ADCtot / 16 ' Average out
if ADCcalc < oldADC2 then ' Calculate change in ADC
ADCdiff = oldadc2 - ADCcalc
else
ADCdiff = ADCcalc - oldadc2
endif
IF (ADCdiff > 2) or _ ' Check for Diff over 2 ... OR
((adccalc <> oldadc2) and _ ' ADC value changed ... AND
(adccalc = 0 or adccalc = 1023)) then ' Reached end of rotation
hserout [ " ", _
"OldADC2:", DEC4 oldadc2, " ", _
"ADCin:", DEC4 ADCcalc, " ", _
"Diff:", dec4 ADCdiff, " ", _
"Sum:", Dec5 ADCtot, 10]
while TXSTA.1 = 0 ' Check TRMT bit
wend
oldADC2 = ADCcalc
endif
GOTO Mainloop
end
Bookmarks