Today is a look back at a guest blog post from a teacher, Jez Dean...
Originally written on 09/13/2017.
In this blog post: Build a computer-to-micro:bit connection with Small Basic.
You can write a simple GUI to send commands to a micro:bit running Python:
The program sends Python commands over a serial connection to the micro:bit. I've kept it as simple as possible so you can customize it further.
Clicking PIN0 High sends the command pin0.write_digital(1)
to the micro:bit. You could type display.show(Image.HAPPY)
and click Send Command would show a smiley on the micro:bit.
comPort = "COM4"
Initialise()
While ("True")
Program.Delay(10)
EndWhile
Sub Initialise
'draw window'
GraphicsWindow.Width = 500
GraphicsWindow.Height = 100
GraphicsWindow.Title = "Small Basic Microbit Controller"
'draw pin control buttons'
pin0high = Controls.AddButton("PIN0 High", 20, 10)
pin0low = Controls.AddButton("PIN0 Low", 100, 10)
'draw status and command buttons & boxes'
statusbox = Controls.AddTextBox(20,50)
value = Controls.AddTextBox(210,13)
send = Controls.AddButton("Send Command", 380, 10)
'Open connection to microbit'
Controls.SetTextBoxText(statusbox,"Status : "+ LDCommPort.OpenPort(comPort, 9600))
'Assign variables'
Controls.ButtonClicked = OnButtonClicked
nl = Text.GetCharacter(10) 'new line character'
EndSub
Sub OnButtonClicked
button = Controls.LastClickedButton
val = Controls.GetTextBoxText(value)
'if button pressed, send command and new line character'
If (button = pin0high) Then
LDCommPort.TXString("pin0.write_digital(1)+nl")
ElseIf (button = pin0low) Then
LDCommPort.TXString("pin0.write_digital(0)+n1")
EndIf
If (button = send) And (val <> "") Then
LDCommPort.TXString(val+nl)
EndIf
EndSub
Adapted from litdev on the Small Basic blog.
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.