TURTLE KODU İLE ŞEKİL ÇİZME

* Ş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 KULLANIMI

* Ş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()
  EndForT

BİLİŞİM TEKNOLOJİLERİ DERSİNDE BU SİTEDEN KOPYA ÇEKEN BÜTÜN TED ÖĞRENCİLERİNE SELAM :D 

Bu makalemizde dizileri anlatacağım.

Dizilerin ne olduğunu anlatmak için basit bir program yazarak anlatmaya başlayalım.

TextWindow.Write("İsminizi Girin: ") adı = TextWindow.Read() TextWindow.WriteLine("Merhaba " + adı)

Selam Arkadaşlar Bu Gün Size GraphicsWindow İle Nasıl Pencere Açacağımızı Göstereceğim

GraphicsWindow.BackgroundColor="renk"
GraphicsWindow.Title="isim"

Bu şekilde pencere açıp çeşitli komutlar ile şekil çizebiliriz

Kurbağa İle Kare Çizelim

Kurbağa ile kare çizelim

Bir kare çizmek için, Kurbağanın bir çizgi çizmesini, sağa dönmesini ve bir başka çizgi çizmesini ve dört kenar da tamamlanıncaya kadar bu işleme devam etmesini sağlamamız gerekir.

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

Kurbağa ile Çokgen Çizelim

Kurbağa ile çokgen çizelim

Kenar Sayisi = 12
uzunluk = 400 / KenarSayisi
acı = 360 / KenarSayisi
For i = 1 To KenarSayisi
Turtle.Move(uzunluk)
Turtle.Turn(acı)
EndFor