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)

Ekrana Merhaba Dünya Yazdırmak

Şimdi İlk Kodumuz Olan Ekrana CMD İle Merhaba Dünya Yazdırmayı Öğreneceksiniz.

* Öncelikle Sağ Üst Köşeden Yeni Bir Kod Düzenleyici Açıyoruz.

* Sonra Ekrana Yazı Yazdırma Kodu Yani TextWindow Kodunu Yazıyoruz.

* TextWindow Yazdıktan Sonra Nokta Koyup Yanına Yazdırma Yani WriteLine Yazıyoruz.

* Şuan Yazdığımız Kod TextWindow.WriteLine Şimdi Parantez Açıp Tırnak Koyuyoruz.

* Tırnaktan Sonra Merhaba Dünya Yazıyoruz ve Tekrar Tırnak Koyup Parantezi Kapatıyoruz.

 * En Son F5 veya Araç Çubuğundaki Çalıştır'a Basıyoruz.

* Ekranımızda Merhaba Dünya Yazdırmış Oluyoruz...

Programın Bölümleri

Program 3 Bölümden Oluşuyor.

İlk Bölümde Görev Çubuğu Var. (Yeni, Çalıştır, Geri-İleri Al v.b)

 İkinci Bölümde İse Kod Düzenleyici Var. ( Kod Yazacağımız Not Defterine Benzeyen Yer)

Üçüncü Bölümde İse Sol Altta Yer Alan Programın Sürümünün Eski Mi Güncel Mi Olduğunu Öğrenebildiğimiz Bir Bölüm Var.

Program Açıklaması

Microsoft Small Basic

Microsoft Small Basic Adlı Program Basit ve Öğretici Programlar Yazmayı Sağlayan Programdır. 2016 - 2017 Eğitim Öğretim Yılları İçerisinde Benim de Bilişim Teknolojileri Dersinde Gördüğüm Bir Program. Ben Bu Blogda Sizlere Programı Kullanmayı ve Bazı Kodları Vereceğim. İnternette de Bunun Bir Çok Videosu Bulunmakta.