Sending Multiple Characters to the Board - and Making Music!
The nature of serial communication is essentially to send one character at a time. This works well for very simple situations, as we have just seen, but very soon we will need a better system. For example, suppose we wanted to send numbers like 220, and 440 (the frequencies for A3 and A4 on the musical scale)?
What we need to do is to catch each character as it is read, convert to a string, concatenate (glue) these together, until an end of string signal (like, say, a carriage return or enter key) is received. This way, instead of reading "2", then "2" then "0", we read "220".
Study the LaunchPad sketch below and see how this is accomplished.
Note some useful commands - like isDigit, string.toInt() and useful terms like \n (carriage return/new line). Note, too, the syntax for concatenating: inString += (char)recvChar;.
The Lua script is essentially the same script as that used for the last lesson - it searches for the enterKey() equivalent (string.char(10)) and uses this to recognise the BLE input.
Note, in the sketch below the sound pin used is pin 34 - which is the pin allocated to the Innovator Hub speaker!
Remember: You can always reflash your Innovator Hub to return it to its original state, using the tools that TI has made available (just follow the Resources tab, and then "Keep your Innovator up to date").
So it is possible to explore coding the Hub in new ways!
String inString = "";
int pin = 34;
int duration = 2000;
void setup()
{
Serial1.begin(9600);
}
void loop()
{
while(Serial1.available()){
char recvChar = Serial1.read();
if (isDigit(recvChar)) { // check if the input is a digit
inString += (char)recvChar; // add that character to a string
}
if (recvChar == '\n') { // if you get a newline, play the string
int input = inString.toInt(); // convert the string to an integer
if (input == 0 ) {
noTone(pin); // stop playing the tone:
} else {
tone(pin, input, duration); // play that frequency eg 440
}
inString = ""; // clear the string for new input:
}
}
}
Lua Script(copy and paste full script into TI-Nspire Script Editor)
platform.apilevel = '2.5'
screen = platform.window
w = screen:width()
h = screen:height()
local date = "110216"
pcall(function () require 'bleCentral' end)
require "color"
local nameList = {'HMSoft'}
local bleState = ''
local bleStatus = 'Stand by'
local peripheralName = ''
local myPeripheral = nil
local groveBLE = 'FFE1'
local keyPress = 0
local alert = nil
local myChar = nil
local textBox = D2Editor.newRichText()
local boxX, boxY, boxWidth, boxHeight
local fontSize = 12
local button1 = "Scan for BLE"
local button2 = "Reset"
-- Layout Functions (resize and paint)
function on.resize()
w = screen:width() or 841
h = screen:height() or 567
local tmp = textBox:getText()
if tmp and tmp:find(string.char(10)) then
alert = tmp
local alert1 = tmp:gsub(string.char(10), '') or ''
textBox:setText(alert1)
else
alert = nil
end
end
if myChar and alert then myChar:write(alert) end
end)
screen:invalidate()
end
function on.paint(gc)
w = screen:width() or 841
h = screen:height() or 567
if bleState:find("ON") then gc:setColorRGB(color.blue) else gc:setColorRGB(color.red) end
gc:setFont("sansserif", "b", fontSize-5)
local sw = gc:getStringWidth(bleState)
gc:drawString(bleState, 0.05*w, 0.925*h)
if bleStatus == 'Connected' then
gc:setColorRGB(color.blue)
else
gc:setColorRGB(color.gray)
end
for n = 1, #nameList do
local sw = gc:getStringWidth(nameList[n])
if peripheralName:find(nameList[n]) then gc:setColorRGB(color.green) end
gc:drawString(nameList[n], 0.95*w - sw, 0.95*h - (n-1)*0.1*h, 'middle')
end
if keyPress ~= 0 and tonumber(alert) and tonumber(alert) ~= 0 then
local str = "PUSH Button: "..keyPress
local sw = gc:getStringWidth(str)
gc:drawString(str, 0.5*w - sw/2, 0.25*h, 'middle')
{"C4", function() alert = 262 if myChar then myChar:write(alert) end end},
{"A4", function() alert = 440 if myChar then myChar:write(alert) end end},
{"C5", function() alert = 523 if myChar then myChar:write(alert) end end},
{"No Tone", function() alert = 0 if myChar then myChar:write(alert) end end},
},
}
toolpalette.register(Menu)
end
function on.enterKey()
if not bleStatus:find("Connect") then
peripheralOn()
else
peripheralOff()
end
end
function on.escapeKey()
reset()
end
function reset()
on.resize()
if myChar then myChar:write(0) end
screen:invalidate()
screen = platform.window
w = screen:width()
h = screen:height()
local date = "110216"
pcall(function () require 'bleCentral' end)
require "color"
local nameList = {'HMSoft'}
local bleState = ''
local bleStatus = 'Stand by'
local peripheralName = ''
local myPeripheral = nil
local groveBLE = 'FFE1'
local keyPress = 0
local alert = nil
local myChar = nil
local textBox = D2Editor.newRichText()
local boxX, boxY, boxWidth, boxHeight
local fontSize = 12
local button1 = "Scan for BLE"
local button2 = "Reset"
-- Layout Functions (resize and paint)
function on.resize()
w = screen:width() or 841
h = screen:height() or 567
local tmp = textBox:getText()
if tmp and tmp:find(string.char(10)) then
alert = tmp
local alert1 = tmp:gsub(string.char(10), '') or ''
textBox:setText(alert1)
else
alert = nil
end
end
if myChar and alert then myChar:write(alert) end
end)
screen:invalidate()
end
function on.paint(gc)
w = screen:width() or 841
h = screen:height() or 567
if bleState:find("ON") then gc:setColorRGB(color.blue) else gc:setColorRGB(color.red) end
gc:setFont("sansserif", "b", fontSize-5)
local sw = gc:getStringWidth(bleState)
gc:drawString(bleState, 0.05*w, 0.925*h)
if bleStatus == 'Connected' then
gc:setColorRGB(color.blue)
else
gc:setColorRGB(color.gray)
end
for n = 1, #nameList do
local sw = gc:getStringWidth(nameList[n])
if peripheralName:find(nameList[n]) then gc:setColorRGB(color.green) end
gc:drawString(nameList[n], 0.95*w - sw, 0.95*h - (n-1)*0.1*h, 'middle')
end
if keyPress ~= 0 and tonumber(alert) and tonumber(alert) ~= 0 then
local str = "PUSH Button: "..keyPress
local sw = gc:getStringWidth(str)
gc:drawString(str, 0.5*w - sw/2, 0.25*h, 'middle')
{"C4", function() alert = 262 if myChar then myChar:write(alert) end end},
{"A4", function() alert = 440 if myChar then myChar:write(alert) end end},
{"C5", function() alert = 523 if myChar then myChar:write(alert) end end},
{"No Tone", function() alert = 0 if myChar then myChar:write(alert) end end},
},
}
toolpalette.register(Menu)
end
function on.enterKey()
if not bleStatus:find("Connect") then
peripheralOn()
else
peripheralOff()
end
end
function on.escapeKey()
reset()
end
function reset()
on.resize()
if myChar then myChar:write(0) end
screen:invalidate()
By adding a Lua-based keyboard, these scripts become the basis for an interesting and extendable document. Using variables to transfer information across the windows means that the keyboard can send tones to the speaker, and can even be used to drive a graphical interpretation of the different notes.
All based upon a small and inexpensive LaunchPad board and BLE module!
We can add a whole extra dimension to our sound exploration by including a keyboard. Check out problem 2 of the attached document and you will find a Lua keyboard that lets you create your own Innovator OR BLE music!
This same document will work with both the TI Innovator Hub and with the TI-Nspire iPad Apps using BLE (BlueTooth Low Energy) and the TI MSP432 LaunchPad. Use the free Energia software to flash the attached sketch to the LaunchPad via USB, then follow the guides outlined in this and the previous LaunchPad lesson.
There are also options to explore some of the interesting applications of the harmonic mean to creating alternative tunings, as developed in Mathematics: A Search for Harmony.
Or (if you are using Chrome browser on Mac, Android or Chromebook, or the WebBLE app on iPad) you might just try this for yourself!
