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

Sonsuza Kadar Sayabilen Program

sayı = 1
devam:
sayı = sayı + 1
TextWindow.WriteLine(sayı)
Goto devam


* Bu Programımızda "Goto" Denilen Bir Kod Kullandık.

* Şimdi Bu "Goto" Kodu Nedir Diye Aklınızda Soru İşaretleri Çıkmıştır Bile :)

* Öncelikle Bu "Goto" Nedir ?

* "Goto" İngilizce Bir Kelimedir ve Türkçe'ye Çevrilmiş Hali Git/Oraya Git Demektir.

* Biz En Başta "devam:" Dediğimiz 2. Satır Bir Başlangıç Yeri Oluyor.

* Biz "Goto" Yani "Oraya Git" Kelimesinden Sonra "devam" Kullandık. O Da "devam" Yerine Gitmesini Söyledik.

4 İşlem Yapabilen Hesap Makinesi

başlangıç:
TextWindow.Title = "Dört İşlem"
TextWindow.Write("Hangi İşlemi Yapmak İstiyorsun ? +,-,/,x ")
işaret = TextWindow.Read()
If işaret = "+" Then
TextWindow.Title = "Toplama Makinesi"
TextWindow.Write("1.Sayıyı Giriniz = ")
sayı1 = TextWindow.ReadNumber()
TextWindow.Write("2.Sayıyı Giriniz = ")
sayı2 = TextWindow.ReadNumber()
toplama = sayı1 + sayı2
TextWindow.WriteLine("İşlem Sonucunuz = " + toplama )
ElseIf işaret = "-" Then
TextWindow.Title = "Çıkarma Makinesi"
TextWindow.Write("1.Sayıyı Giriniz = ")
sayı1 = TextWindow.ReadNumber()
TextWindow.Write("2.Sayıyı Giriniz = ")
sayı2 = TextWindow.ReadNumber()
çıkarma = sayı1 - sayı2
TextWindow.WriteLine("İşlem Sonucunuz = " + çıkarma )
ElseIf işaret = "*" Then
TextWindow.Title = "Çarpma Makinesi"
TextWindow.Write("1.Sayıyı Giriniz = ")
sayı1 = TextWindow.ReadNumber()
TextWindow.Write("2.Sayıyı Giriniz = ")
sayı2 = TextWindow.ReadNumber()
çarpma = sayı1 * sayı2
TextWindow.WriteLine("İşlem Sonucunuz = " + çarpma )
ElseIf işaret = "/" Then
TextWindow.Title = "Bölme Makinesi"
TextWindow.Write("1.Sayıyı Giriniz = ")
sayı1 = TextWindow.ReadNumber()
TextWindow.Write("2.Sayıyı Giriniz = ")
sayı2 = TextWindow.ReadNumber()
bölme = sayı1 / sayı2
TextWindow.WriteLine("İşlem Sonucunuz = " + bölme )
EndIf
Goto başlangıç

Toplama ve Çıkarma Yapabilen Hesap Makinesi

TextWindow.WriteLine("İstediğiniz İşlemi Yazınız.")
TextWindow.WriteLine("Toplama İse toplama Yazınız.")
TextWindow.WriteLine("Çıkarma ise cikarma Yazınız.")
Islem= TextWindow.Read()
If Islem="toplama" Then
  TextWindow.WriteLine("İlk Rakamı Yazınız")
  ilktoplamarakami = TextWindow.Read()
  TextWindow.WriteLine("İkinci Rakamı Yazınız")
  ikincitoplamarakami = TextWindow.Read()
cevap = ilktoplamarakami + ikincitoplamarakami
Else
  If Islem="cikarma" Then
    TextWindow.WriteLine("İlk Rakamı Yazınız")
    ilcikarmarakami = TextWindow.Read()
    TextWindow.WriteLine("İkinci Rakamı Yazınız")
    ikincicikarmarakami = TextWindow.Read()
    cevap = ilcikarmarakami - ikincicikarmarakami
  EndIf
EndIf
TextWindow.WriteLine("Cevap : "+ cevap)
   

Saate Göre Bilgisayarın Bize Verdiği Mesaj

If(Clock.Hour < 12)Then
  TextWindow.WriteLine("Daha Öğle Olmasına Var...")
Else
  TextWindow.WriteLine("Saat Öğleyi Geçti...")
EndIf
If(Clock.Hour = 12)Then
  TextWindow.WriteLine("Şuan Tam Öğledesin :)")
EndIf
 

Sıcaklığın Fahrenayt Cinsini Santigrat Cinsine Dönüştüren Program

TextWindow.Write("Sıcaklığı °F Cinsinden Giriniz: ")
fcinsi = TextWindow.ReadNumber()
ccinsi = 5*(fcinsi - 32) / 9
TextWindow.WriteLine("Sıcaklığın °C Cinsinden Değeri: "+ ccinsi)

Alan Bulma Programı

TextWindow.WriteLine("Alan Bulma Programı ")
TextWindow.Write("Kısa Kenar Uzunluğunu Giriniz: ")
kisakenar= TextWindow.ReadNumber()
TextWindow.Write("Uzun Kenar Uzunluğunu Giriniz: ")
uzunkenar = TextWindow.ReadNumber()
alan = kisakenar * uzunkenar
TextWindow.WriteLine("Alan: "+ alan)

Bölme Yapabilen Hesap Makinesi

TextWindow.Write("İlk Sayıyı Giriniz: ")
ilksayi = TextWindow.ReadNumber()
TextWindow.Write("İkinci Sayıyı Giriniz: ")
ikincisayi = TextWindow.ReadNumber()
toplam = ilksayi / ikincisayi
TextWindow.WriteLine("Sonuç "+ toplam)

Çarpma Yapabilen Hesap Makinesi

TextWindow.Write("İlk Sayıyı Giriniz: ")
ilksayi = TextWindow.ReadNumber()
TextWindow.Write("İkinci Sayıyı Giriniz: ")
ikincisayi = TextWindow.ReadNumber()
toplam = ilksayi * ikincisayi
TextWindow.WriteLine("Sonuç "+ toplam)

Çıkarma Yapabilen Hesap Makinesi

TextWindow.Write("İlk Sayıyı Giriniz: ")
ilksayi = TextWindow.ReadNumber()
TextWindow.Write("İkinci Sayıyı Giriniz: ")
ikincisayi = TextWindow.ReadNumber()
toplam = ilksayi - ikincisayi
TextWindow.WriteLine("Sonuç "+ toplam)

Toplama Yapabilen Program Kodu

TextWindow.WriteLine("İlk Sayıyı Giriniz: ")
ilksayi = TextWindow.ReadNumber()
TextWindow.WriteLine("İkinci Sayıyı Giriniz :")
ikincisayi = TextWindow.ReadNumber()
toplam= ilksayi + ikincisayi
TextWindow.WriteLine("Sonuç "+ toplam)