var

// ==========================

// PROJE : ASİT - BAZ AYRAÇ UYGULAMASI

// 3 AŞAMALI BUTONLU SİSTEM

// ==========================

// --------------------------

// PANELLER

// --------------------------

PnlGiris,

PnlSecim,

PnlSonuc

// --------------------------

// BUTONLAR

// --------------------------

BtnBasla,

BtnLimon,

BtnSirke,

BtnDisMacunu,

BtnKarbonat,

BtnSabunluSu,

BtnKirmiziLahana,

BtnZerdecal,

BtnTurnusol,

BtnGeri

// --------------------------

// YAZILAR

// --------------------------

LblBaslik,

LblAciklama,

LblSonuc

// --------------------------

// DEĞİŞKENLER

// --------------------------

SecilenMadde,

SecilenIndikator,

SonucMetni

// ==================================================

// 1. AŞAMA : GİRİŞ EKRANI

// ==================================================

when application started

{

    

    PnlGiris.visible = true

    PnlSecim.visible = false

    PnlSonuc.visible = false

    

    LblBaslik.text = "ASİT - BAZ AYRAÇ UYGULAMASI"

    

    LblAciklama.text =

    "Bu uygulamada gündelik hayattaki asit ve baz maddeleri seçip doğal ayraçlarla hangi renkleri verdiğini öğrenebilirsiniz."

    

}

// ==================================================

// BAŞLA BUTONU

// ==================================================

when BtnBasla clicked

{

    

    PnlGiris.visible = false

    PnlSecim.visible = true

    PnlSonuc.visible = false

    

}

// ==================================================

// 2. AŞAMA : MADDE SEÇİMİ

// ==================================================

// --------------------------

// ASİTLER

// --------------------------

when BtnLimon clicked

{

    SecilenMadde = "limon suyu"

}

when BtnSirke clicked

{

    SecilenMadde = "sirke"

}

// --------------------------

// BAZLAR

// --------------------------

when BtnDisMacunu clicked

{

    SecilenMadde = "dis macunu"

}

when BtnKarbonat clicked

{

    SecilenMadde = "karbonatli su"

}

when BtnSabunluSu clicked

{

    SecilenMadde = "sabunlu su"

}

// ==================================================

// 3. AŞAMA : İNDİKATÖR SEÇİMİ

// ==================================================

// --------------------------

// KIRMIZI LAHANA AYRACI

// --------------------------

when BtnKirmiziLahana clicked

{

    

    SecilenIndikator = "kirmizi lahana"

    

    if ( SecilenMadde == "limon suyu" or

         SecilenMadde == "sirke")

    {

        

        SonucMetni =

        "SONUÇ : " + SecilenMadde +

        "\n\nKırmızı lahana ayracı ASİT maddelerde PEMBE / KIRMIZI renk verir." +

        "\n\nBu nedenle seçilen madde ASİTTİR."

        

    }

    

    

    if ( SecilenMadde == "dis macunu" or

         SecilenMadde == "karbonatli su" or

         SecilenMadde == "sabunlu su")

    {

        

        SonucMetni =

        "SONUÇ : " + SecilenMadde +

        "\n\nKırmızı lahana ayracı BAZ maddelerde MAVİ / YEŞİL renk verir." +

        "\n\nBu nedenle seçilen madde BAZDIR."

        

    }

    

    PnlSecim.visible = false

    PnlSonuc.visible = true

    

    LblSonuc.text = SonucMetni

    

}

// --------------------------

// ZERDEÇAL AYRACI

// --------------------------

when BtnZerdecal clicked

{

    

    SecilenIndikator = "zerdecal"

    

    if ( SecilenMadde == "limon suyu" or

         SecilenMadde == "sirke")

    {

        

        SonucMetni =

        "SONUÇ : " + SecilenMadde +

        "\n\nZerdeçal ayıracı ASİTLERDE sarı rengini korur." +

        "\n\nBu nedenle seçilen madde ASİTTİR."

        

    }

    

    

    if ( SecilenMadde == "dis macunu" or

         SecilenMadde == "karbonatli su" or

         SecilenMadde == "sabunlu su")

    {

        

        SonucMetni =

        "SONUÇ : " + SecilenMadde +

        "\n\nZerdeçal ayıracı BAZLARDA kırmızımsı kahverengi olur." +

        "\n\nBu nedenle seçilen madde BAZDIR."

        

    }

    

    PnlSecim.visible = false

    PnlSonuc.visible = true

    

    LblSonuc.text = SonucMetni

    

}

// --------------------------

// TURNUSOL KAĞIDI

// --------------------------

when BtnTurnusol clicked

{

    

    SecilenIndikator = "turnusol"

    

    if ( SecilenMadde == "limon suyu" or

         SecilenMadde == "sirke")

    {

        

        SonucMetni =

        "SONUÇ : " + SecilenMadde +

        "\n\nMavi turnusol kağıdı ASİTLERDE kırmızıya dönüşür." +

        "\n\nBu nedenle seçilen madde ASİTTİR."

        

    }

    

    

    if ( SecilenMadde == "dis macunu" or

         SecilenMadde == "karbonatli su" or

         SecilenMadde == "sabunlu su")

    {

        

        SonucMetni =

        "SONUÇ : " + SecilenMadde +

        "\n\nKırmızı turnusol kağıdı BAZLARDA maviye dönüşür." +

        "\n\nBu nedenle seçilen madde BAZDIR."

        

    }

    

    PnlSecim.visible = false

    PnlSonuc.visible = true

    

    LblSonuc.text = SonucMetni

    

}

// ==================================================

// GERİ BUTONU

// ==================================================

when BtnGeri clicked

{

    

    PnlGiris.visible = false

    PnlSecim.visible = true

    PnlSonuc.visible = false

    

} hatayı bulamıyorum.