Canias ERP Troia 13 If Else Yapısı

Merhaba, bu yazımda karar verme süreçlerinde kullandığımız If Else kavramlarını ele alacağız.

Bir önceki dersimizde bir hesap makinesi yapmıştık. aşağıdan göz atabilirsiniz. Şimdi biraz daha sistemi ileri taşıyıp bir IF ELSE Blogu ile daha düzenli hale getireceğiz.

Bir önceki yazıya aşağıdan erişebilirsiniz.

IF Sorgulama İfadesi THEN

     KODLAR 

ELSE

     KODLAR

ENDIF;

Transaction İsmi : EDUTEST

Başlangıç Diyalogu : EDUD01D000

Oluşturacağımız Diyalog :  EDUD01D002

Proje Tasarımı

Case: Sayı1 ve Sayı2 değerleri alınıp ISLEM kısmında girilen (+ – * /) değerlerine göre işleme tabi tutulacak. Doğru işlem girilmişse sonuç sonuc EditBox’ına yazdırılacak. Eğer işlem kısmına doğru işlem girilmediyse geçersiz işlem uyarısı verilecek.

Daha önceden bahsettiğim gibi Troia da özelleşmiş butonlarımız vardı. Butonumuzun boyutunu 28*28 durumuna getirip OK yazarsak aşağıdaki özelleşmiş buton kendisi oluşacaktır.

OBJECT:
INTEGER S1,
INTEGER S2,
STRING ISLEM1,
STRING MSSG,
INTEGER S3;

S1=SAYI1;
S2=SAYI2;
ISLEM1=ISLEM;

IF ISLEM1 == '+' THEN
 S3=S1+S2;
 SONUC=S3;
ELSE

 IF ISLEM1 == '-' THEN
  S3=S1-S2;
  SONUC=S3;
 ELSE

  IF ISLEM1 == '*' THEN
   S3=S1*S2;
   SONUC=S3;
  ELSE

   IF ISLEM1 == '/' THEN
    S3=S1/S2;
    SONUC=S3;
   ELSE
    MSSG='Geçersiz İşlem';
    SONUC=MSSG;
   ENDIF;

  ENDIF;

 ENDIF;

ENDIF;

SHUTDOWN;

OK Click üzerinde durmamız gerekiyor.

Bir olayın 2’den fazla oluşabilecek durumu varsa İç içe if kullanmak gerekir. Çünkü farklı dillerde gördüğümüz elseif, ifelse gibi 2’den fazla durumu karşılaştırabilecek bir yapı Troia’da yoktur.

İç içe if kullanmanın yöntemi şudur.

IF DEĞER THEN

   KODLAR

Else

    IF DEĞER THEN

       KODLAR

    ELSE

      IF DEĞER THEN

        KODLAR

      ELSE

        KODLAR;

      ENDIF;

   ENDIF;

ENDIF;

Her IF bir ENDIF  komutuyla bitmek zorundadır.

Kısaca birde kodları açıklayalım.

ISLEM2 den değer + gelirse yapacağı işlem belli. Eğer farklı gelirse bunu ELSE komutuyla yakalıyoruz o ELSE içinde yeni bir IF komutu ile gelen değer – mi sorusunu soruyoruz eğer böyle ise kendi ENDIF komutunu bulup çalışmayı durduracaktır. Bu şekilde değilse Çarpma, o da değilse Bölme işlemi yapılacaktır. Eğer tüm aramalar sonucunda istediğimiz değeri bulamadıysak en sondaki ELSE komutu gerçekleşecektir.

Bu kodlamamızda yoktu ama değinmemiz gereken bir kaç durum daha var bu yapıyla alakalı.

Eğer bir IF yapısı içinde birden fazla durumun kontrolü sağlanıp bunun sonucuna göre işlem yapılması gerekiyorsa şu şekilde yapılabilir.,

1. Eğer şartlar VE bağlacı ile bağlanmışsa

IF SORGU IFADESİ1 && SORGU İFADESİ2 && SORGU İFADESİ3 THEN

    KODLAR;

ENDIF;

2. Eğer şartlar VEYA bağlacı ile bağlanması gerekiyorsa

IF SORGU IFADESİ1 || SORGU İFADESİ2 || SORGU İFADESİ3 THEN

    KODLAR;

ENDIF;

3. Değerlerin eşit olmaması gibi bir durum aranıyorsa

IF Değer1 != Değer2 THEN

    KODLAR;

ENDIF;

!= ifadesi eşit değil anlamını taşır.

4. İki değerin bir birinden büyüklüğü ya da eşitliği kontrol ediliyorsa

IF Değer1 >= Değer2 THEN

    KODLAR;

ENDIF;

5. Küçüklüğü yada eşitliği kontrol ediliyorsa

IF Değer1 <= Değer2 THEN

    KODLAR;

ENDIF;

Proje Ekranları

IF ELSE karar yapısı Troia’da bu şekildeydi.

Bir sonraki yazımda görüşmek üzere.