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

Okursanız Sevinirim...

Arkadaşım Mert de Benim Gibi Bir Site Açmış... Onun da Sitesine Girmeyi Unutmayınız...

https://mertbasic.blogspot.com.tr

GraphicsWindow'a Giriş

* Tıpkı TextWindow Gibi Sayılarla ve Metinlerle Çalışmamızı Sağlayan Bir Kod GraphicsWindow. Ayrıca Bize Resimlerle Çalışmamızı Da Sağlıyor.

* GraphicsWindow'da Öncelikle Bir Grafik Penceresi Açmayı Öğreneceksiniz.




* Bu Kod ile Bir Grafik Penceresi Açmış Olursunuz.

* İşte Bu da "GraphicsWindow.Show()" Kodunun Sonucunda Açılan Pencere :) Bu Daha Başlangıç Bundan Sonra da Grafiğin Rengini, Başlığını,Boyutunu Değiştirmeyi Öğreneceksiniz.

* Şimdi Grafiğin Rengini,Boyutunu,Başlığını Değiştireceğimiz Kod :

* Şimdi de Bu Kodun Bizim Ekranımızda Açtığı Pencereye Bir Bakalım

* KOLAY GELSİN :)

AŞAĞIYI OKU BAKALIM ;)

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

XD

YAPACAĞINIZ İLK OYUN ! BİLGİSAYARIN TUTTUĞU SAYIYI BULMA

rastgele = Math.GetRandomNumber(25)
basla:
TextWindow.Write("Bir Sayı Gir ! Bakalım Bilgisayarın Tuttuğu Sayıyı Bulabilecek Misin ? ")
girilensayı= TextWindow.ReadNumber()
If(girilensayı = rastgele)Then
  TextWindow.WriteLine("Tebrikler Kazandın! Şansını Birdaha Denemeye Ne Dersin ? ")
  Program.Delay(2500)
Program.End()
EndIf
If(girilensayı < rastgele)Then
  TextWindow.WriteLine("Girdiğin Sayı Bilgisayarın Tuttuğu Sayıdan Küçük :/ Tekrar Dene ")
EndIf
If(girilensayı > rastgele)Then
  TextWindow.WriteLine("Girdiğin Sayı Bilgisayarın Tuttuğu Sayıdan Büyük :/ Tekrar Dene ")
EndIf
Goto basla

♠Program.Delay(2500) ve Program.End() Kodu Program Zaten Türkçesi ile Aynı Delay Süreyi Belirler. End ise Sonlandırır :)

♠ Bir De ;

♠ Bu Programımızda Bilmediğiniz Sadece Math.GetRandomNumber() Var.

♣ "Math.GetRandomNumber()" Kodunda Parantez"()" İçinde 25 Var. Yani 0-25 Arası Bir Sayı Tutar.

♣ Math Kodu Small Basic Programında Matematik İşlemlerini Yapmaya Yarar. Türkçesi de Matematik Demektir.


♣ GetRandomNumber() Kodu Da Türkçesi Rastgele Sayı Ver Demektir.


♣ If Kodunu Anlatmamışsam da If Eğer Demektir.


♣ If Kullandığım Satırın Türkçe'sini Veriyorum Öbürlerini Siz Zaten Çevirebilirsiniz :)


♣ If(girilensayı < rastgele)Then = Eğer(girilensayı rastgele'den küçükse)


♣ EndIf de If Yani Eğer Kodunu Sonlandırıyor.

Sonsuza Kadar 2'şer 2'şer Sayan Program

selam = 2
başla:
TextWindow.WriteLine(selam)
selam = selam + 2
  Goto başla