Turtle Kodu ile Şekil Çizme

* Şimdi ki Kod ile İl Satırdaki ""kenar = 5" Kodunda "5" Yerine Ne Yazarsanız O Kadar Kenarlı Bir Şekil Çizer :) Hadi Kolay Gelsin...

KOD:
kenar = 100
uzunluk = 400 / kenar
açı = 360 / kenar
For i = 1 To kenar
  GraphicsWindow.PenColor = GraphicsWindow.GetRandomColor()
  Turtle.Move(uzunluk)
  Turtle.Turn(açı)
  EndFor

"Turtle" Komutunun Kullanımı ;)

* Şimdi Sizler ile Yeni Bir Konuya Giriş Yapacağız. Aslında Bu Konu GraphicsWindow'a Bağlı Ama Yine de Yeni Bir Komut :)

* Öncelikle Bu Sefer Fotoğraf Kullanamayacağımı Söyleyeyim...

* İlk Olarak Bir Pencere Açmayı Öğreneceksiniz.

KOD:

Turtle.Show()

* Bu Kod ile Sadece Bir Pencere Açılır.

* Şimdi Alttaki Kod ile de Düz Bir Çizgi Çizebileceksiniz.

KOD:

Turtle.Move(100)

* Bu Kod ile Düz Bir Çizgi Çizen Bir Kaplumbağa ile Karşılaşıyoruz.

* Şimdi Vereceğim Kod ile Bir Kare Çizebileceksiniz.

KOD:

Turtle.Move(100)
Turtle.TurnRight()
Turtle.Move(100)
Turtle.TurnRight()
Turtle.Move(100)
Turtle.TurnRight()
Turtle.Move(100)
Turtle.TurnRight()

* Bu Kod ile Kare Çizebilirsiniz.

* Şimdi Vereceğim Kod Kare Çizmenin 4 Satıra Dönüştürülmüş Hali Bunu "For" Döngüsünü Kullanarak Yapabilirsiniz.

KOD:

For a = 1 to 4
  Turtle.Move(100)
  Turtle.TurnRight()
EndFor

* Bu Kodla Kısaca Kare Çizdiniz...

* Şimdi ise Bu Çizgilere Rastgele Renk Vermeyi Göstereceğim...

KOD:

For a = 1 To 4
  GraphicsWindow.PenColor= GraphicsWindow.GetRandomColor()
  Turtle.Move(200)
  Turtle.TurnRight()
  EndFor