Small Basic - İki Sayıdan Büyük Olanı Bulan Program

Tek tek satırları açıklayalım:

1: Pencerenin  başlığını değiştiriyoruz.

2: Birinci sayıyı girmesi için kullanıcıya uyarıda bulunuyoruz.

3: Birinci sayıyı kullanıcıdan alıp sayi1 değişkenine atıyoruz.

4: İkinci sayıyı girmesi için kullanıcıya uyarıda bulunuyoruz.

5: İkinci sayıyı kullanıcıdan alıp sayi2 değişkenine atıyoruz.

6: Boş :)

7: sayi1, sayi2 den büyük mü diye kontrol ediyoruz. 

8: sayi1, sayi2 den büyükse arka plan rengini mavi yapıyoruz.

9: sayi1, sayi2 den büyükse yazı rengini beyaz yapıyoruz.

10: Ekrana Büyük Sayı: sayi1 yazdırıyoruz.

11: Pencere başlığını Büyük Sayı: sayi1 olarak değiştiriyoruz.

12: sayi2, sayi1 den büyük mü kontrol ediyoruz.

13: Büyükse arka plan rengini kırmızı yapıyoruz.

14: Yazı rengini beyaz yapıyoruz.

15-16: Ekrana ve pencere başlığına Büyük Sayı: sayi2 yazdırıyoruz.

17: sayi1 sayi2 den sayi2 de sayi1 den büyük değilse, yani girdiğimiz hiçbir koşul yoksa (Else)

18: Arka plan rengini yeşil yapıyoruz.

19: Yazı rengini siyah yapıyoruz.

20: Ekrana Sayılar eşit yazdırıyoruz.

21: Pencere başlığını Sayılar eşit... olarak değiştiriyoruz.

22: If artık kapanmak zorunda ve EndIf komutunu giriyoruz.

Programda Kullanılan Kodlar:

TextWindow.Title = "Büyük Sayıyı Bulan Program"

TextWindow.Write("Birinci Sayıyı Girin: ")

sayi1 = TextWindow.ReadNumber()

TextWindow.Write("İkinci Sayıyı Girin: ")

sayi2 = TextWindow.ReadNumber()

If sayi1 > sayi2 Then

  TextWindow.BackgroundColor = "Blue"

  TextWindow.ForegroundColor = "White"

  TextWindow.WriteLine("Büyük sayı: " + sayi1)

  TextWindow.Title = "Büyük Sayı: " + sayi1

ElseIf sayi2 > sayi1 Then

  TextWindow.BackgroundColor = "Red"

  TextWindow.ForegroundColor = "White"

  TextWindow.WriteLine("Büyük sayı: " + sayi2)

  TextWindow.Title = "Büyük Sayı: " + sayi2

Else

  TextWindow.BackgroundColor = "Green"

  TextWindow.ForegroundColor = "Black"

  TextWindow.WriteLine("Sayılar eşit")

  TextWindow.Title = "Sayılar eşit..."

EndIf