input and save input

Should be something more like this

function ADInAsVolt() as word
result = ADC.Read(0)
end function
Select ADInAsVolt()

Click to expand...

JonSea said:

Ignore the first 3 lines in what Burt posted. You don't want the readings in volts, as I explained above.


Delete those 3 lines (and insert NOTHING IN THEIR PLACE) and change line 4 to

Select Read(AN0)

The rest is perfect.

Click to expand...

ADC.Read(An0) is pretty fricken' clear and easy.

Click to expand...

{
*****************************************************************************
* Name : UNTITLED.BAS *
* Author : [select VIEW...EDITOR OPTIONS] *
* Notice : Copyright (c) 2017 [select VIEW...EDITOR OPTIONS] *
* : All Rights Reserved *
* Date : 12/21/2017 *
* Version : 1.0 *
* Notes : *
* : *
*****************************************************************************
}
DEVICE = 18f2420
CLOCK = 8
INCLUDE "InternalOscillator.bas"
INCLUDE "SetDigitalIO.bas"
'INCLUDE "math.bas"
INCLUDE "adc.bas"
INCLUDE "Utils.bas"
'include "convert.bas"
DIM adval AS WORD
DIM adval1 AS WORD
DIM x AS BYTE
DIM position AS WORD
DIM Led0 AS PORTC.0
DIM Led1 AS PORTC.1
DIM Led2 AS PORTC.2
DIM Led3 AS PORTC.3
DIM Led4 AS PORTC.4
DIM Led5 AS PORTC.5
DIM Led6 AS PORTC.6
DIM Led7 AS PORTC.7
DIM Led8 AS PORTB.0
DIM Led9 AS PORTB.1
DIM led10 AS portb.2
DIM Player1 AS BOOLEAN
DIM Player2 AS BOOLEAN
DIM Player3 AS BOOLEAN
DIM Player4 AS BOOLEAN
DIM Player5 AS BOOLEAN
DIM Player6 AS BOOLEAN
DIM Player7 AS BOOLEAN
DIM Player8 AS BOOLEAN
DIM Player9 AS BOOLEAN
DIM Player10 AS BOOLEAN
DIM Player11 AS BOOLEAN
DIM Pos(11) AS WORD
FUNCTION Get_ADC_Sample() AS WORD // Function to grab the ADC sample for player position
result = ADC.Read(0)*500/1024 // Grab an ADC sample from channel 0
END FUNCTION
Player1 = false
Player2 = false
Player3 = false
Player4 = false
Player5 = false
Player6 = false
Player7 = false
Player8 = false
Player9 = false
Player10=false
INPUT (porta.0)
OUTPUT (PORTB.0)
OUTPUT (PORTB.1)
OUTPUT (portb.2)
OUTPUT (PORTC.0)
OUTPUT (PORTC.1)
OUTPUT (PORTC.2)
OUTPUT (PORTC.3)
OUTPUT (PORTC.4)
OUTPUT (PORTC.5)
OUTPUT (PORTC.6)
OUTPUT (PORTC.7)
PORTB.0=0
PORTB.1=0
portb.2=0
PORTC.0=0
PORTC.1=0
PORTC.2=0
PORTC.3=0
PORTC.4=0
PORTC.5=0
PORTC.6=0
PORTC.7=0
SetAllDigital
WHILE true
'For x = 0 To 9
'Pos(x) = 0
position = Get_ADC_Sample
DELAYMS(500)
position = Get_ADC_Sample
SELECT position
CASE <25 Player10 = false led10=1 DELAYMS(1000) led10=0 DELAYMS(1000)// No player

CASE <51 Player11 = true Led0=1 DELAYMS(1000) Led0=0 DELAYMS(1000)

CASE <153 Player1 = true Led1=1 DELAYMS(1000) Led1=0 DELAYMS(1000)

CASE <204 Player2 = true Led2=1 DELAYMS(1000) Led2=0 DELAYMS(1000)

CASE <255 Player3 = true Led3=1 DELAYMS(1000) Led3=0 DELAYMS(1000)

CASE <308 Player4 = true Led4=1 DELAYMS(1000) Led4=0 DELAYMS(1000)

CASE <355 Player5 = true Led5=1 DELAYMS(1000) Led5=0 DELAYMS(1000)

CASE <460 Player6 = true Led6=1 DELAYMS(1000) Led6=0 DELAYMS(1000)

CASE <500 Player7 = true Led7=1 DELAYMS(1000) Led7=0 DELAYMS(1000)

CASE <535 Player8 = true Led8=1 DELAYMS(500) Led8=0 DELAYMS(500)

CASE >1000 Player9 = true Led9=1 DELAYMS(1000) Led9=0 DELAYMS(1000)




END SELECT // need to indicate when player pos is done
WEND

Click to expand...

MrDEB said:

...As for the FUNCTION I tried with and without the +1 *500/1023 and both work the same or that's what it appears....

Click to expand...