Microsoft Small Basic

Sample: Turtle plus Flickr

Modified: 2011/08/26 09:14 by 27.126.152.82 - Categorized as: Samples
Edit

Code

GraphicsWindow.Show()   
  
pic = Flickr.GetRandomPicture("lightning")   
gw = GraphicsWindow.Width   
gh = GraphicsWindow.Height   
GraphicsWindow.DrawResizedImage(pic, 0, 0, gw, gh)   
  
distance = 50   
Turtle.Speed = 9   
  
For sides = 3 To 20   
  DrawPolygon()   
EndFor   
  
Sub DrawPolygon   
  angle = 360 / sides   
  For i = 1 To sides   
    GraphicsWindow.PenColor = GraphicsWindow.GetRandomColor()   
    Turtle.Move(distance)   
    Turtle.Turn(angle)   
  EndFor   
EndSub  

Edit

Screenshot

Image

=

=======

Il est exceptionnellement important de confirmer la sécurité et la protection du club basé sur le Web. Pour déterminer la manière dont la destination est sécurisé, vérifiez soigneusement pour lu les Termes et Conditions de la page d'accueil. casino en ligne

ScrewTurn Wiki version 2.0.35. Some of the icons created by FamFamFam.