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

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ıç