Microsoft Small Basic

Program Listing: GDN847
GraphicsWindow.Title="ピクチャー表示3 2011.12.15"
tag="mountain"

'
For i=1 To 10
Kaunto()
url=Flickr.GetRandomPicture(tag)
picture[i]=ImageList.LoadImage(url)
EndFor
'
For i=1 To 10
GraphicsWindow.clear()
GraphicsWindow.DrawImage(picture[i],0,0)
Program.Delay(3000)
EndFor
Program.End()
'
Sub Kaunto
GraphicsWindow.Clear()
GraphicsWindow.DrawText(100,100,"Flickerからピクチャーをロードしていますので、少しお待ちください")
GraphicsWindow.DrawText(140,140,11-i+" ...")
EndSub