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=cdj701' /> </object>
url
=
"http://image.weather.com/web/radar/us_radar_plus_usen.jpg"
' every 10min
' "http://image.weather.com/images/maps/current/cur_ne_720x486.jpg"
' "http://image.weather.com/images/maps/current/curwx_600x405.jpg"
' "http://image.weather.com/images/sat/canadasat_720x486.jpg"
GraphicsWindow
.
Title
=
url
+
" : "
+
Clock
.
Time
GraphicsWindow
.
DrawResizedImage
(
url
,
0
,
0
,
640
,
450
)
While
"true"
Program
.
Delay
(
60000
)
' wait 1 minute
GraphicsWindow
.
Title
=
url
+
" : "
+
Clock
.
Time
GraphicsWindow
.
DrawResizedImage
(
url
,
0
,
0
,
640
,
450
)
endwhile
Copyright (c) Microsoft Corporation. All rights reserved.