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=FVV083' /> </object>
GraphicsWindow
.
BackgroundColor
=
"black"
gw
=
GraphicsWindow
.
Width
gh
=
GraphicsWindow
.
Height
LDSpeech
.
Speed
=
-
5
LDSpeech
.
Speak
(
"made by ailie"
)
For
i
=
1
To
10
x
=
Math
.
GetRandomNumber
(
gw
)
y
=
Math
.
GetRandomNumber
(
gh
)
GraphicsWindow
.
BrushColor
=
"lightblue"
GraphicsWindow
.
FillEllipse
(
x
,
y
,
100
,
100
)
Turtle
.
Show
(
)
Turtle
.
Speed
=
10
Turtle
.
TurnLeft
(
)
GraphicsWindow
.
PenColor
=
"DeepPink"
GraphicsWindow
.
PenWidth
=
5
Turtle
.
Move
(
70
)
Turtle
.
TurnRight
(
)
'GraphicsWindow.PenColor=GraphicsWindow.GetRandomColor()
Turtle
.
Move
(
150
)
Turtle
.
Angle
=
90
'GraphicsWindow.PenColor=GraphicsWindow.GetRandomColor()
Turtle
.
Move
(
55
)
Turtle
.
Angle
=
180
'GraphicsWindow.PenColor=GraphicsWindow.GetRandomColor()
Turtle
.
Move
(
130
)
Turtle
.
Angle
=
140
'GraphicsWindow.PenColor=GraphicsWindow.GetRandomColor()
Turtle
.
Move
(
100
)
Turtle
.
MoveTo
(
300
,
300
)
GraphicsWindow
.
BrushColor
=
"darkblue"
GraphicsWindow
.
FillEllipse
(
x
-
50
,
y
-
50
,
100
,
100
)
GraphicsWindow
.
BrushColor
=
"lightblue"
GraphicsWindow
.
FillEllipse
(
x
-
30
,
y
-
15
,
60
,
30
)
GraphicsWindow
.
BrushColor
=
"deeppink"
GraphicsWindow
.
FillEllipse
(
x
-
10
,
y
-
10
,
20
,
20
)
GraphicsWindow
.
BrushColor
=
"pink"
GraphicsWindow
.
FillEllipse
(
x
-
3
,
y
-
3
,
6
,
6
)
EndFor
Copyright (c) Microsoft Corporation. All rights reserved.