Öğrenci Kayıt Girişi

TextWindow.Show()

TextWindow.Title = "Öğrenci Kayıt Ekranı"

TextWindow.BackgroundColor = "yellow"

TextWindow.ForegroundColor ="black"

isim = ""

soyisim = ""

numara = ""

sinif = ""

TextWindow.Write("İsminiz : ")

isim=TextWindow.Read()

TextWindow.Write("Soyisminiz : ")

soyisim=TextWindow.Read()

TextWindow.Write("Numaranız : ")

numara=TextWindow.Read()

TextWindow.Write("Sınıfınız : ")

sinif=TextWindow.Read()

TextWindow.WriteLine("")

TextWindow.WriteLine("... Kayıt Alındı ...")

TextWindow.WriteLine("")

TextWindow.WriteLine(isim +" / "+soyisim+" / "+numara+" / "+sinif)

TextWindow.WriteLine("")

If (Eğer Yapısı) ve Start Döngüsü

Yapısı

If .................. Then

..................................................

Else

..................................................

EndIf

saat= Clock.Hour Sistem saatini okur.

If saat < 12 Then Eğer saat 12’den az ise

TextWindow.WriteLine("Sabah") Ekrana “Sabah” yaz

Else Değilse

TextWindow.WriteLine("Akşam") Akşam Yaz

EndIf




Timer (Zamanlama) ve Turtle (Kaplumbağa) :o)

Timer Nesnesi: Belirli zaman aralıkları ile bir işlemi sürekli yapmak istiyorsak kullanabileceğimiz bir nesnedir. Kullanımı aşağıdaki gibidir.
İlk önce zaman aralığınızı mili saniye cinsinden belirtirsiniz. (1sn = 1000 ms) Daha sonra her zaman aralığında çalışacak fonksiyon adını belirlersiniz.


Timer.Interval = 1000            Zaman aralığı : 1 sn

Timer.Tick = 1sn_sonra_tekrar              Zaman geçince ne olacak.

Sub 1sn_sonra_tekrar                       Zaman geçince gerçekleşecek fonksiyon()

  Timer.Pause()                  Zamanı durdur.

  kurbaga_ilerle()

  Timer.Resume()                 Zamanı devam ettir.

EndSub

Sub kurbaga_ilerle               Fonksiyon içinden çağrılan fonksiyon()

  Turtle.Move(10)

EndSub

Fonksiyon Kullanımı Sub-EndSub

Sub Fonksiyon adı

  Yapılacak işlem                       Kullanımı

EndSub

TextWindow.WriteLine("Puanınızı Giriniz ? ")

cevap = TextWindow.ReadNumber()                  Klavyeden Puan Girişi

If cevap > 50 Then

  Kazandın()

Else                                        Girilen Değer Kontrol Ediliyor

  Kaybettin()

EndIf

Sub Kazandın

  Sound.PlayBellRing()

  TextWindow.WriteLine("KAZANDIN")                Kazandın Fonksiyonu

EndSub

Sub Kaybettin

  TextWindow.WriteLine("KAYBETTİN")               Kaybettin Fonksiyonu

EndSub

Döngüler

//For Döngüsü Kullanımı

For i=0 To 10

  TextWindow.WriteLine(i)                            1

EndFor

//While Döngüsü Kullanımı

i = 0

While i <= 10

  TextWindow.WriteLine(i)                            2

  i = i + 1

EndWhile

Öğrenci Bilgilerini Kaydetme ve Çağırma

TextWindow.WriteLine("Öğrenci Adını Giriniz ?")                                            Adı Sor
ogrenci["ad"] = TextWindow.Read()                                                                   Adı Kaydet
TextWindow.WriteLine("Öğrenci Soyadı Giriniz ?")                                          Soyad Sor
ogrenci["soyad"] = TextWindow.Read()                                                              Soyad Kaydet
TextWindow.WriteLine("Öğrenci Numarasını Giriniz ?")                                  No Sor
ogrenci["no"] = TextWindow.Read()                                                                   No Kaydet
TextWindow.WriteLine("Öğrenci Sınıfını Giriniz ?")                                         Sınıf Sor
ogrenci["sinif"] = TextWindow.Read()                                                                Sınıf Kaydet
TextWindow.WriteLine(" ")             / Ekrana boş satır atar
TextWindow.WriteLine("Hangi Bilgigiyi Görmek İstiyorsunuz ?")                    Sor
TextWindow.WriteLine(" ")             / Ekrana boş satır atar
TextWindow.WriteLine("[ad] - [soyad] - [no] - [sinif]")                                      Seçenekleri Say
bilgi = TextWindow.Read()                                                                                   Seçeneği Kaydet
TextWindow.WriteLine("")              / Ekrana boş satır atar
TextWindow.WriteLine(bilgi +" = "+ ogrenci[bilgi])                                           Cevabı Ekrana Yazdır

Bilgisayara Öğrenci İsimleerini Kaydetme - Array, For Döngüsü

For i=0 To 2
   .........3 defa tekrarlar.........               FOR DÖNGÜ KULLANIMI
EndFor

--------------------------------------------------------------------------------------------------------------------------

ogrenciler[a]  , ogrenciler[0], ogrenciler[1], ogrenciler[2] "1 den fazla değişken tutabilir."                ARRAY KULLANIMI