|
Hadi bir örnek üzerinde
kendi projemizi oluşturmaya çalışalım.
Control Center -> File -> New.
Observer Command Center sekmesi üzerinde:
crt 280
StarLogo 280 turtle oluşturur. (crt
create-turtles code base). Default olarak turtlelar (0, 0) konumunda,
ekranın orta kısmında başlatılırlar.
Sonra, aşağıdaki komutu çalıştıralım:
fd
15
Her turtle 15 adım ötelenmektedir.
Oluşturulan her turtle nin heading kısmı diğerleri ile arasında aralık barındırdığından,
ötelenme yönleri farklı olmaktadır.
Bu durumda (0, 0) noktası etrafınfa yarıçapı 15 olan bir çember oluştururlar.
seth 0 fd 30
Bu komut ile her turtle'ın heading kısmı 0 olarak set edilir.
Daha sonra 30 birim ötelenir
pd fd 50
Her turtle ın geçtiği yer üzeinden
"pen down" (pd),
komutu çalıştırılır ve her turtle kendi rengini çizer.
repeat 36 [fd
2 rt 10]
Bu komut ile her turtle bir çember çizer,
tekrarlı bir şekilde iki birim ötelenir ve sağa doğru 10 derecelik bir dönüş gerçekleştirir.
Şimdi de Observer command center üzerinde aşağıdaki komutu çalıştıralım:
cg
Bu komut, ekrandaki
çizimi temizler ve bütün patch' leri siyaha çevirir. (Bu durum turtle'ları etkilemez).
StarLogo buton oluşturucu ile bize daha fazla kolaylıklar sağlamaktadır.
fd 1
:komutunu buton oluşturucu ile çok daha efektif bir şekilde kullanbiliriz.
Şimdi de
rt 5
komutu için bir tane forever-button oluşturarak fd
1 butonu ile beraber kullanalım.
cg
komutunu ekranı temizlemek için kullandığımızdan sık kullanacağımız bir komut olur ve
"Observer" seçeneğini seçerek forever-button olmayan bir buton oluşturalım.
StarLogo'da sık kullandığımız komutları bir prosedüre çevirerek sürekli
aynı komutu bir daha yazmaktan kurtulmuş oluruz.
'Observer Procedures window' üzerinde aşağıdaki komutu yazarak bir 'setup' procedürü
oluşturalım:
to setup
ca crt 280
ask-turtles [fd 15 seth 0 pd]
end
Şimdi de bu yazdığımız prosedüre göre bir buton oluşturup işimizi daha da kolaylaştıralım.
Bir turtle
forever-button oluşturarak turtle'ların rengini oluşturabiliriz.
setc
color + 1
|
