Microsoft Small Basic

Program Listing: MDP504-1

List Program

' TextBox Sample
' Version 0.3 - using Timer.Tick event
' Copyright © 2016 Nonki Takahashi. The MIT License.
' Program ID MDP504-1

GraphicsWindow.Title = "TB 0.3"
Init()

Sub Init
GraphicsWindow.Width = 220
GraphicsWindow.Height = 100
GraphicsWindow.BrushColor = "Black"
tbox = Controls.AddTextBox(10, 10)
shp = Shapes.AddText("")
Shapes.Move(shp, 10, 40)
curTxt = ""
tempTxt = ""
lastTxt = ""
Timer.Interval = 400
Timer.Tick = OnTick
EndSub

Sub OnTick
curTxt = Controls.GetTextBoxText(tbox)
If curTxt <> lastTxt Then
If curTxt <> tempTxt Then
tempTxt = curTxt
Else
Shapes.SetText(shp, "Hello, " + curTxt + "!")
lastTxt = curTxt
EndIf
EndIf
EndSub