Microsoft Small Basic

Program Listing: KGP231
GraphicsWindow.Title="ピクチャーの表示2 2011.12.11"
tag="animal"
GraphicsWindow.DrawText(100,100,"ピクチャーをランダムに表示します。タグは「"+tag+"」です")
Program.Delay(500)
'
Loop:
url=Flickr.GetRandomPicture(tag)
image=ImageList.LoadImage(url)
GraphicsWindow.Clear()
GraphicsWindow.DrawImage(image,0,0)
Program.Delay(2000)
'
Goto Loop