elua/romfs/adcpoll.lua

-- Acquire ADC samples using a timer with polling for available samples

if pd.board() == "ET-STM32" then
  timer = 2
  adcchannels = {0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15}
  adcsmoothing = {4, 4, 4, 4, 16, 16, 16, 16, 32, 32, 32, 32, 64, 128, 64, 128}
else
  timer = 0
  adcchannels = {0,1,2,3}
  adcsmoothing = {4, 64, 32, 16}
end

-- Setup ADC and start sampling
for i, v in ipairs(adcchannels) do
  adc.setblocking(v,0) -- no blocking on any channels
  adc.setsmoothing(v,adcsmoothing[i]) -- set smoothing from adcsmoothing table
  adc.setclock(v, 4 ,timer) -- get 4 samples per second, per channel
end

adc.sample(adcchannels,128) -- start sampling on all channels

-- Draw static text on terminal
term.clrscr()
term.gotoxy(1,1)
term.putstr("ADC Status:")
term.gotoxy(1,3)
term.putstr(" CH   SLEN   RES")
term.gotoxy(1,#adcchannels+5)
term.putstr("Press ESC to exit.")

-- use some locals for speed
local sample = adc.sample
local getsample = adc.getsample
local samplesready = adc.samplesready
local i, v, tsample

while true do
  for i, v in ipairs(adcchannels) do
    tsample = getsample(v) -- try to get a sample
    if not (tsample == nil) then -- if we have a new sample, then update display
    	term.gotoxy(1,i+3)
    	term.putstr(string.format("ADC%02d (%03d): %04d\n", v, adcsmoothing[i], tsample))
    end
    if adc.isdone(v) == 1 then adc.sample(v,128) end -- if samples have run out, start collection again
  end
  key = term.getch( term.NOWAIT )
  if key == term.KC_ESC then break end -- exit if user hits Escape
end

term.clrscr()
term.gotoxy(1, 1)