Microsoft Small Basic
Program Listing:
Embed this in your website
<object id='sbapp' data='data:application/x-silverlight-2,' type='application/x-silverlight-2' width='640' height='480'> <param name='source' value='http://smallbasic.com/program/ClientBin/SBWeb.xap'/> <param name='onError' value='onSilverlightError' /> <param name='background' value='white' /> <param name='minRuntimeVersion' value='3.0.40624.0' /> <param name='autoUpgrade' value='true' /> <param name='initParams' value='programId=GQL381' /> </object>
GraphicsWindow
.
MouseDown
=
OnMouseDown
gw
=
GraphicsWindow
.
Width
gh
=
GraphicsWindow
.
Height
size
=
100
OnMouseDown
(
)
While
(
"true"
)
gw
=
GraphicsWindow
.
Width
gh
=
GraphicsWindow
.
Height
GraphicsWindow
.
BrushColor
=
GraphicsWindow
.
GetRandomColor
(
)
'GraphicsWindow.BrushColor = GraphicsWindow.GetColorFromRGB(124,39,201)
'R = 100+Math.GetRandomNumber(156)
'G = 100+Math.GetRandomNumber(156)
'B = 100+Math.GetRandomNumber(156)
'GraphicsWindow.BrushColor = GraphicsWindow.GetColorFromRGB(R,G,B)
x
=
Math
.
GetRandomNumber
(
gw
)
y
=
Math
.
GetRandomNumber
(
gh
)
size
=
Math
.
GetRandomNumber
(
5
)
'size=5
GraphicsWindow
.
FillEllipse
(
x
-
size
/
2
,
y
-
size
/
2
,
size
,
size
)
GraphicsWindow
.
BrushColor
=
"black"
'GraphicsWindow.FontName = "Freestyle Script"
GraphicsWindow
.
FontSize
=
90
GraphicsWindow
.
DrawBoundText
(
50
,
50
,
gw
-
100
,
"Fiona is brilliantly brilliant"
)
'Sound.PlayClickAndWait()
Program
.
Delay
(
1
)
EndWhile
Sub
OnMouseDown
GraphicsWindow
.
Clear
(
)
GraphicsWindow
.
BackgroundColor
=
"black"
EndSub
Copyright (c) Microsoft Corporation. All rights reserved.