small basic turtle program

Bingöl Science and Art Center

Other

binbilsem@gmail.com

Türkiye

Students will be able to draw flower by using small basic turtle program. The Code of Activity GraphicsWindow.Height= 1000 GraphicsWindow.Width=1000 Turtle.Show() Turtle.Speed=50 Turtle.X=400 Turtle.Y=300 Turtle.Turn(30) GraphicsWindow.PenWidth=4 For a=0 To 6 For i=0 To 60 Turtle.PenDown() GraphicsWindow.PenColor=GraphicsWindow.GetRandomColor() Turtle.Move(2) Turtle.Turn(1) Turtle.Move(3) EndFor Turtle.Turn(118) For i=0 To 60 Turtle.PenDown() GraphicsWindow.PenColor=GraphicsWindow.GetRandomColor() Turtle.Move(2) Turtle.Turn(1) Turtle.Move(3) EndFor Turtle.Turn(17) Turtle.PenUp() Turtle.Move(40) EndFor Turtle.X=380 Turtle.Y=310 For i=0 To 360 Turtle.PenDown() GraphicsWindow.PenColor="yellow" Turtle.Move(15) GraphicsWindow.PenColor= GraphicsWindow.GetRandomColor() Turtle.Move(10) GraphicsWindow.PenColor="yellow" Turtle.Move(2) Turtle.PenUp() Turtle.MoveTo(380,310) Turtle.Turn(180) Turtle.Turn(1) EndFor GraphicsWindow.PenWidth=7 Turtle.Turn(170) For i=0 To 3 Turtle.PenDown() GraphicsWindow.PenColor="yellow" Turtle.Move(4) Turtle.Turn(-0.7) Turtle.Move(2) EndFor For i=0 To 70 Turtle.PenDown() GraphicsWindow.PenColor="brown" Turtle.Move(4) Turtle.Turn(-0.7) Turtle.Move(2) EndFor Turtle.X=380 Turtle.Y=310 Turtle.Turn(16) GraphicsWindow.PenWidth=2 For i=0 To 6 Turtle.PenUp() Turtle.Move(70) Turtle.PenDown() For a=0 To 90 GraphicsWindow.PenColor=GraphicsWindow.GetRandomColor() Turtle.Move(1) EndFor Turtle.PenUp() Turtle.MoveTo(380,310) Turtle.Turn(180) Turtle.Turn(51.4) EndFor

http://bingolbilsem.meb.k12.tr/