Microsoft Small Basic

Program Listing: FCG624-0
' Chronometer of Seconds (v1.0)
' by GoToLoop (2013/Dec)
'
' FCG624-0
'
'http://social.msdn.microsoft.com/Forums/en-US
'/abc1f30d-b7f0-4347-a2f0-67575327ac54
'/how-to-count-time-1-by-1-in-small-basic

GW = 600
GH = 400

GraphicsWindow.CanResize = "False"
GraphicsWindow.Width = GW
GraphicsWindow.Height = GH

CreateTimer()
Timer.Interval = 1000 ' 1000ms = 1s
Timer.Tick = Chronometer

Sub CreateTimer
GraphicsWindow.BrushColor= "Red"
time= Shapes.AddText("0s")
Shapes.Move(time GW - 40, 10)
seconds = 0
EndSub


Sub Chronometer
seconds = seconds + 1
Shapes.SetText(time, seconds+"s")
EndSub