Bu dersimizde de koşullu bir ifade olan if koşulunu işliyoruz.
Bu komut, programda belirteceğimiz koşulların doğru olup
olmadığını belirliyor ve bunun sonucuna göre işlem yapıyor. Örnekle
inceleyelim:
TextWindow.Write("Bir
sayı girin: ")
sayi1 = TextWindow.ReadNumber()
TextWindow.Write("Bir
sayı daha girin: ")
sayi2 = TextWindow.ReadNumber()
toplam = sayi1 + sayi2
1: If toplam < 10 Then
2: TextWindow.WriteLine("Sayı 10'dan
küçük: " + toplam)
3: Else
4: TextWindow.WriteLine("Sayı 10'dan
büyük ya da 10: " + toplam)
5: EndIf
Burada diğer derslerden öğrendiklerimizi harmanlayarak bir
program yaptık. Program girilen iki sayıyı topluyor ve çıkan sonuca göre işlem
yapıyor. Satır satır açıklayalım:
1: toplam
değişkeni girilen iki sayının (sayi1 ve sayi2) toplamının atandığı
değişkenimiz. if bloğu bu değişkeni
kontrol ediyor. Eğer(if) toplam değişkeni 10’dan küçük ise(Then) ekrana:
2: Sayı 10’dan
küçük: toplam(10’dan küçük olan toplam) yazıyor.
3: Değilse(Else)
ekrana:
4: Sayı 10’dan
büyük ya da 10: toplam(10’dan büyük ya da 10 olan toplam) yazıyor.
5: Eğer(if) bloğu
bitiriliyor. Bundan sonra yazılanlar if tarafından kontrol edilmeyecek.
Karşılaştırma
operatörleri:
< 'küçük ise
<= 'küçük ya da eşit ise
> 'büyük ise
>= 'büyük ya da eşit ise
= 'eşit ise
<> 'eşit değil ise
if ve daha sonra
kullanacağımız bazı komutlarda bu karşılaştırma operatörlerini kullanacağız.
Yukraıdaki programımızda (< küçük ise) operatörünü kullandık. Bu şekilde
diğerlerini de kullanabiliriz.
ElseIf
if koşuluna birden fazla koşul kontrol ettireceksek
kullanırız. Örnek kullanım:
If toplam < 10 Then
TextWindow.WriteLine("Sayı 10'dan küçük: " + toplam)
ElseIf toplam = 10 Then
TextWindow.WriteLine("Sayı 10: " +
toplam)
Else
TextWindow.WriteLine("Sayı 10'dan büyük ya da 10: " + toplam)
EndIf
Az önceki programın aynısı, ancak arada ElseIf komutu var bu
kez. Burada da aynı karşılaştırmaları yapacak ve bu kez sayı 10 a eşit ise sayı 10 yazacak.
GraphicsWindow.Show()
YanıtlaSilGraphicsWindow.Title="mesut"
GraphicsWindow.BackgroundColor="pink"
yaz=Controls.AddTextBox(45,45)
bak= Controls.AddTextBox(100,150)
Controls.SetSize(yaz,80,50)
bas =Controls.AddButton("bas",50,105)
Controls.ButtonClicked= mesut
Controls.TextTyped=ela
mes= Controls.GetTextBoxText(bak)
ana:
Sub mesut
Controls.SetTextBoxText(yaz,"1")
EndSub
Sub ela
If mes = 1 Then
Sound.PlayBellRing()
Else
Sound.PlayChime()
EndIf
EndSub
neden benim if else çalışmadıgını çözemedim . yazyılarınızı okuyorum başarılar
Çıkan hatayı yazarsanız yardımcı olmaya çalışayım.
Sil