Ask Learn
Preview
Please sign in to use this experience.
Sign inThis browser is no longer supported.
Upgrade to Microsoft Edge to take advantage of the latest features, security updates, and technical support.
Note
Access to this page requires authorization. You can try signing in or changing directories.
Access to this page requires authorization. You can try changing directories.
Arduino is a cheap and popular way to build your own electronics, typically with small sensors and motors, and learn a bit of programming to control it.
Controlling it with Small Basic enables you to display data it generates or change settings interactively from your PC.
This blog is not about Arduino features, but how to communicate with it with Small Basic using a serial port extension, in this case LDCommPort
in the LitDev extension (see LDCommPort API). Basically, we can send and receive data as bytes or strings to the Arduino via its USB connection. I used strings since we can always cast these to anything else like numbers in Arduino and Small Basic.
You could use any convention for your data, but you will need an event (LDCommPort.DataReceived
) in Small Basic to detect that data has been received. No event is required in the Arduino program, since it operates in a continual loop, you just check for new data each time the loop runs.
When sending data to the Arduino, I used the first character to define the data type:
When sending data from the Arduino to Small Basic, I just sent whatever data I wanted as an ascii string, testing integers, floats, strings and characters. I used a line-feed character '\n' (ascii code 10) to terminate all data for transfer. This is automatically added by the Arduino command Serial.println
, but not by Serial.print
.
The following are the Arduino settings I used for an Arduino UNO, note it uses COM3 (yours may be different) port and ArduinoISP programmer.
This is the Small Basic interface, import VBZ059.
The Small Basic code for this interface is a bit longer than it could be, most of it is just creating the interface and button events.
Initialise()
'
'==================================================
'MAIN LOOP
'==================================================
'
While ("True")
If (newData <> "") Then
tbData = Text.Append("Data received : "+newData+nl,Controls.GetTextBoxText(tb))
Controls.SetTextBoxText(tb,tbData)
newData = ""
EndIf
Program.Delay(10)
EndWhile
'
'==================================================
'SUBROUTINES
'==================================================
'
Sub Initialise
gw = 600
gh = 215
GraphicsWindow.Width = gw
GraphicsWindow.Height = gh
GraphicsWindow.Title = "Small Basic Arduino Interface"
GraphicsWindow.BackgroundColor = "Gray"
GraphicsWindow.BrushColor = "Black"
nl = Text.GetCharacter(10)
'
status = LDCommPort.OpenPort("COM3",9600)
LDCommPort.SetEncoding("Ascii")
LDCommPort.DataReceived = OnDataReceived
'
nButton = 8
spacing = (gw-30)/nButton
width = (gw-40)/nButton-10
For i = 1 To nButton
buttons[i] = Controls.AddButton("Action"+i,20+spacing*(i-1),175)
Controls.SetSize(buttons[i],width,25)
LDShapes.BrushColour(buttons[i],"SteelBlue")
EndFor
Controls.ButtonClicked = OnButtonClicked
'
clear = Controls.AddButton("Clear",20,20)
Controls.SetSize(clear,width,25)
LDShapes.BrushColour(clear,"SteelBlue")
'
send = Controls.AddButton("Send",20+spacing,20)
Controls.SetSize(send,width,25)
LDShapes.BrushColour(send,"SteelBlue")
'
value = Controls.AddTextBox(20+2*spacing,20)
Controls.SetSize(value,gw-2*spacing-40,25)
LDShapes.PenColour(value,"White")
LDShapes.BrushColour(value,"DimGray")
'
tb = Controls.AddMultiLineTextBox(20,60)
Controls.SetTextBoxText(tb,"Connection status : "+status)
Controls.SetSize(tb,gw-40,100)
LDShapes.PenColour(tb,"White")
LDShapes.BrushColour(tb,"DimGray")
EndSub
'
'==================================================
'EVENT SUBROUTINES
'==================================================
'
Sub OnDataReceived
dataIn = Text.Append(dataIn,LDCommPort.RXAll())
If (Text.IsSubText(dataIn,nl)) Then
newData = LDText.Trim(dataIn)
dataIn = ""
EndIf
EndSub
'
Sub OnButtonClicked
button = Controls.LastClickedButton
If (button = clear) Then
tbData = ""
ElseIf (button = send) Then
val = Controls.GetTextBoxText(value)
If (val = Math.Round(val)) Then
tbData = Text.Append("*** "+val+" sent as integer ***"+nl,Controls.GetTextBoxText(tb))
val = "i"+val
ElseIf (val+0 = val) Then
tbData = Text.Append("*** "+val+" sent as float ***"+nl,Controls.GetTextBoxText(tb))
val = "f"+val
ElseIf (val <> "") Then
tbData = Text.Append("*** "+val+" sent as string ***"+nl,Controls.GetTextBoxText(tb))
val = "s"+val
Else
tbData = Text.Append("*** Nothing sent ***"+nl,Controls.GetTextBoxText(tb))
EndIf
If (val <> "") Then
LDCommPort.TXString(val)
EndIf
Else
For i = 1 To nButton
If (button = buttons[i]) Then
tbData = Text.Append("*** Action "+i+" instruction sent ***"+nl,Controls.GetTextBoxText(tb))
LDCommPort.TXString(i)
EndIf
EndFor
EndIf
Controls.SetTextBoxText(tb,tbData)
EndSub
The Arduino code is similar to C++, and there are lots of samples for all sorts of electronic projects out there. It is compiled and sent to the Arduino using a special Arduino IDE. My sample below is just testing the serial communication, with no electronics at all. It could be shorter if you just wanted to send data to Small Basic or only have a couple buttons (code size is quite limited on Arduino), but I wanted to test various data types in the communication.
The Serial.begin(9600)
sets the serial communication speed, also set in Small Basic, LDCommPort.OpenPort("COM3",9600)
.
The Serial.setTimeout(10)
prevents partial data from being used, you may need to change this. If you are reading bytes consider using Serial.available()
in a while
loop to read all available bytes.
char cInput;int iInput;float fInput;String sInput;void setup(){ Serial.begin(9600); Serial.setTimeout(10);}void loop(){ Input(); delay(10);}void Input(){ sInput = Serial.readString(); cInput = '0'; if (sInput.length() > 0) { cInput = sInput.charAt(0); switch (cInput) { case 'i': iInput = sInput.substring(1).toInt(); Serial.println(iInput); break; case 'f': fInput = sInput.substring(1).toFloat(); Serial.println(fInput); break; case 's': sInput = sInput.substring(1); Serial.println(sInput); break; case '1': fInput = 3.14; Serial.println(fInput); break; case '2': iInput = random(256); Serial.println(iInput); break; case '3': Serial.println("A text result"); break; case '4': Serial.print('A'); Serial.print('B'); Serial.println('C'); break; default: Serial.println("Error"); break; } }}
Enjoy playing with Small Basic and Arduino.
Please sign in to use this experience.
Sign in