mirror of
https://github.com/elua/elua.git
synced 2025-01-25 01:02:54 +08:00
42ff856578
- new addition to the PIO module: now you can use pin ranges in PIO expressions. For example: gpio.PA_3_6_DIR = gpio.OUTPUT -- make pins 3-6 from PORTA outputs gpio.PB_0_30_PULL = gpio.PULLUP -- activate pullups on all but the last pin of PORTB gpio.PB_3_6 = 11 -- set value 10 (1011) to pins 3-6 of PB (so PB.6 == 1, PB.5 == 0, PB.4 == 1, PB.3 == 1 ) value = gpio.PB_2_9 -- read the value of pins 2-9 of PB into 'value' Of course, one can still specify a single pin instead of a range. This is still tested, but seems to work fine for now. - romfs/ samples updated to work with the new module name and syntax - small fix to buf.c (in the BUF_MOD_INCR macro).
133 lines
3.4 KiB
Lua
133 lines
3.4 KiB
Lua
-------------------------------------------------------------------------------
|
|
-- eLua Morse Demo
|
|
--
|
|
-- Dado Sutter sep 2008
|
|
-------------------------------------------------------------------------------
|
|
|
|
local pwmid, tmrid, ledpin
|
|
if pd.board() == "EK-LM3S8962" or pd.board() == "EK-LM3S6965" then
|
|
pwmid, tmrid, ledpin = 1, 1, "PF_0"
|
|
elseif pd.board() == "SAM7-EX256" then
|
|
pwmid, tmrid, ledpin = 0, 1, "PB_20"
|
|
tmr.setclock( 1, 100000 )
|
|
else
|
|
print( pd.board() .. " not supported with this example" )
|
|
return
|
|
end
|
|
|
|
------------ User Adjusted Variables ------------
|
|
|
|
local dotDelay, playFreq, playFreqSave = 90000, 880, 880
|
|
local freqStep, dotDelayStep = 220, 10000
|
|
|
|
-- Morse Alphabet
|
|
local Morse = {
|
|
A='.-',
|
|
B='-...',
|
|
C='-.-.',
|
|
D='-..',
|
|
E='.',
|
|
F='..-.',
|
|
G='--.',
|
|
H='....',
|
|
I='..',
|
|
J='.---',
|
|
K='-.-',
|
|
L='.-..',
|
|
M='--',
|
|
N='-.',
|
|
O='---',
|
|
P='.--.',
|
|
Q='--.-',
|
|
R='.-.',
|
|
S='...',
|
|
T='-',
|
|
U='..-',
|
|
V='...-',
|
|
W='.--',
|
|
X='-..-',
|
|
Y='-.--',
|
|
Z='--..'
|
|
}
|
|
|
|
------------ Auxiliar Functions ------------
|
|
|
|
local function play(m)
|
|
term.putstr(m)
|
|
if m == ' ' then
|
|
tmr.delay(tmrid, 2 * dotDelay)
|
|
else
|
|
gpio[ledpin] = 1
|
|
pwm.start(pwmid)
|
|
tmr.delay(tmrid, m == '.' and dotDelay or 3 * dotDelay)
|
|
pwm.stop(pwmid)
|
|
gpio[ledpin] = 0
|
|
tmr.delay(tmrid, dotDelay)
|
|
end
|
|
end
|
|
|
|
local function HandleKbd(k)
|
|
if k == term.KC_ESC then
|
|
return true
|
|
elseif k == term.KC_UP then -- Speed up
|
|
dotDelay = dotDelay + dotDelayStep
|
|
elseif k == term.KC_DOWN then -- Speed down
|
|
dotDelay = dotDelay - dotDelayStep
|
|
elseif k > 0 and k < 256 then
|
|
if string.char(k) == '+' then -- Frequency up
|
|
playFreq = playFreq + freqStep
|
|
elseif string.char(k) == '-' then -- Frequency down
|
|
playFreq = playFreq - freqStep
|
|
elseif string.char(k) == 's' then -- Sound on/off
|
|
if playFreq == 0 then
|
|
playFreq = playFreqSave
|
|
else
|
|
playFreqSave = playFreq
|
|
playFreq = 0
|
|
end
|
|
end
|
|
end
|
|
pwm.setup(pwmid, playFreq, 50)
|
|
end
|
|
|
|
------------ Main Program ------------
|
|
gpio.dir[ledpin] = gpio.OUTPUT
|
|
pwm.setup( pwmid, playFreq, 50 )
|
|
|
|
while true do
|
|
term.clrscr()
|
|
term.gotoxy(0, 0)
|
|
print("Welcome to eLua Morse Playing on " .. pd.cpu())
|
|
io.write("Enter phrase (empty phrase to exit): ")
|
|
local msg, enabled = io.read(), true
|
|
if #msg == 0 then break end
|
|
|
|
term.putstr(' ')
|
|
while term.getch(term.NOWAIT) ~= -1 do end -- flush
|
|
|
|
while enabled do -- Main Loop
|
|
for i = 1, #msg do -- msg loop
|
|
local ch = msg:sub(i, i):upper()
|
|
term.putstr(ch) -- show what will be played
|
|
if ch ~= ' ' and Morse[ch] then
|
|
for j = 1, #Morse[ch] do -- Morse symbol loop
|
|
play(Morse[ch]:sub(j,j)) -- play each morse symbol
|
|
end
|
|
else
|
|
play(' ') play(' ') -- Between words
|
|
end
|
|
play(' ') -- Extra between words & lett
|
|
key = term.getch(term.NOWAIT) -- Handle UI actions
|
|
if key ~= -1 then
|
|
if HandleKbd(key) then
|
|
enabled = false
|
|
break
|
|
end
|
|
end
|
|
end
|
|
if not enabled then break end
|
|
print()
|
|
play(' ') play(' ') play(' ') -- Between sentences
|
|
end
|
|
end
|