Genel İşlemler - Arayüz Geçiş Sorunu

var

GirisForm: TclForm;

LogoImg : TclImage;

BaslaBtn: TClProButton;

HeaderPanel: TClProPanel;

HeaderLogo: TclImage;

// konu butonları

Buton1, Buton2, Buton3, Buton4, Buton5 : TClProButton;

// soru nesneleri

SoruLabel, SoruNoLabel: TclLabel;

BtnA, BtnB, BtnC, BtnD: TClProButton;

SoruPanel: TClProPanel;

Seckonu: String;

Sorusira: Integer;

Dcevap: String;

BasariYuzdesi: Float;

DogruSayisi: Integer;

void SoruGetir;

{

if (Seckonu == 'ÇARPANLAR VE KATLAR')

{

SoruNoLabel.Text = 'Soru: ' + IntToStr(Sorusira);

if (Sorusira == 1)

{

SoruLabel.Text = '24 sayısının kaç tane pozitif tam sayı çarpanı vardır?';

BtnA.Text = '4';

BtnB.Text = '6';

BtnC.Text = '8';

BtnD.Text = '10';

Dcevap = '8';

}

else if (Sorusira == 2)

{

SoruLabel.Text = 'Aşağıdakilerden hangisi 60 sayısının asal çarpanlarından biri değildir?';

BtnA.Text = '5';

BtnB.Text = '4';

BtnC.Text = '2';

BtnD.Text = '3';

Dcevap = '4';

}

else if (Sorusira == 3)

{

SoruLabel.Text = 'Aralarında asal olan iki sayının EBOBu her zaman kaçtır?';

BtnA.Text = 'Sayıların toplamı';

BtnB.Text = 'Sayıların çarpımı';

BtnC.Text = '1';

BtnD.Text = '0';

Dcevap = '1';

}

else if (Sorusira == 4)

{

SoruLabel.Text = '9 ve 15 sayılarının EKOKu kaçtır?';

BtnA.Text = '3';

BtnB.Text = '30';

BtnC.Text = '45';

BtnD.Text = '90';

Dcevap = '45';

}

else if (Sorusira == 5)

{

SoruLabel.Text = 'Aşağıdaki sayı çiftlerinden hangisi aralarında asaldır?';

BtnA.Text = '8 ve 25';

BtnB.Text = '14 ve 21';

BtnC.Text = '10 ve 20';

BtnD.Text = '6 ve 51';

Dcevap = '8 ve 25';

}

else if (Seckonu == 'ÜSLÜ İFADELER')

{

SoruNoLabel.Text = 'Soru: ' + IntToStr(Sorusira);

if (Sorusira == 1)

{

SoruLabel.Text = '(-2)⁴ ifadesinin eşiti nedir?';

BtnA.Text = '-8';

BtnB.Text = '16';

BtnC.Text = '-8';

BtnD.Text = '-16';

Dcevap = '16';

}

else if (Sorusira == 2)

{

SoruLabel.Text = '10⁰ + 1¹⁰⁰ + 0⁵ işleminin sonucu nedir?';

BtnA.Text = '0';

BtnB.Text = '1';

BtnC.Text = '2';

BtnD.Text = '11';

Dcevap = '2';

}

else if (Sorusira == 3)

{

SoruLabel.Text = '(2³)² ifadesi aşağıdakilerden hangisine eşittir?';

BtnA.Text = '8²';

BtnB.Text = '4²';

BtnC.Text = '64²';

BtnD.Text = '2⁵';

Dcevap = '8²';

}

else if (Sorusira == 4)

{

SoruLabel.Text = '3⁵.3³ işleminin sonucu nedir?';

BtnA.Text = '9⁸';

BtnB.Text = '3⁸';

BtnC.Text = '3¹⁵';

BtnD.Text = '6⁸';

Dcevap = '3⁸';

}

else if (Sorusira == 5)

{

SoruLabel.Text = 'Aşağıdaki üslü ifadelerden hangisinin değeri sayı doğrusunda 0 ile 1 arasında değildir?';

BtnA.Text = '(-3)⁻²';

BtnB.Text = '3⁻²';

BtnC.Text = '(-2)⁻³';

BtnD.Text = '2⁻³';

Dcevap = '(-2)⁻³';

}

else if (Seckonu == 'KAREKÖKLÜ İFADELER')

{

SoruNoLabel.Text = 'Soru: ' + IntToStr(Sorusira);

if (Sorusira == 1)

{

SoruLabel.Text = '√28 sayısı a√b şeklinde nasıl ifade edilir?';

BtnA.Text = '2√7';

BtnB.Text = '4√7';

BtnC.Text = '7√2';

BtnD.Text = '2√14';

Dcevap = '2√7';

}

else if (Sorusira == 2)

{

SoruLabel.Text = '2√5 sayısı √a şeklinde nasıl ifade edilir?';

BtnA.Text = '√10';

BtnB.Text = '√20';

BtnC.Text = '√7';

BtnD.Text = '√50';

Dcevap = '√20';

}

else if (Sorusira == 3)

{

SoruLabel.Text = '√80 - √20 işleminin sonucu kaçtır?';

BtnA.Text = '√60';

BtnB.Text = '2√5';

BtnC.Text = '2√15';

BtnD.Text = '√40';

Dcevap = '2√5';

}

else if (Sorusira == 4)

{

SoruLabel.Text = '√1,21 ifadesinin değeri aşağıdakilerden hangisidir?';

BtnA.Text = '11';

BtnB.Text = '121';

BtnC.Text = '0,11';

BtnD.Text = '1,1';

Dcevap = '1,1';

}

else if (Sorusira == 5)

{

SoruLabel.Text = 'Aşağıdaki sayılardan hangisi bir tam kare sayı değildir?';

BtnA.Text = '289';

BtnB.Text = '256';

BtnC.Text = '150';

BtnD.Text = '144';

Dcevap = '150';

}

else if (Seckonu == 'OLASILIK')

{

SoruNoLabel.Text = 'Soru: ' + IntToStr(Sorusira);

if (Sorusira == 1)

{

SoruLabel.Text = 'Bir torbada 4 kırmızı, 5 mavi ve 3 sarı bilye vardır. Torbadan rastgele çekilen bir bilyenin sarı olmama olasılığı kaçtır?';

BtnA.Text = '1/2';

BtnB.Text = '1/4';

BtnC.Text = '3/4';

BtnD.Text = '5/12';

Dcevap = '3/4';

}

else if (Sorusira == 2)

{

SoruLabel.Text = 'Bir olayın olma olasılığı x ise, olmama olasılığı aşağıdakilerden hangisidir?';

BtnA.Text = '1-x';

BtnB.Text = 'x';

BtnC.Text = '0';

BtnD.Text = '1/x';

Dcevap = '1-x';

}

else if (Sorusira == 3)

{

SoruLabel.Text = '20 kişilik bir sınıfta rastgele seçilen bir öğrencinin erkek olma olasılığı 2/5 tir. Bu sınıfta kaç kız öğrenci vardır?';

BtnA.Text = '8';

BtnB.Text = '10';

BtnC.Text = '12';

BtnD.Text = '15';

Dcevap = '12';

}

else if (Sorusira == 4)

{

SoruLabel.Text = 'MATEMATİK kelimesinin harfleri kartlara yazılıp bir kutuya atılıyor. Çekilen bir kartın üzerinde M harfi yazma olasılığı kaçtır?';

BtnA.Text = '1/3';

BtnB.Text = '2/9';

BtnC.Text = '2/8';

BtnD.Text = '1';

Dcevap = '2/9';

}

else if (Sorusira == 5)

{

SoruLabel.Text = 'Aşağıdaki değerlerden hangisi bir olayın gerçekleşme olasılığı olamaz?';

BtnA.Text = '3/4';

BtnB.Text = '0';

BtnC.Text = '%49,5';

BtnD.Text = '1,2';

Dcevap = '1,2';

}

else if (Seckonu == 'CEBİRSEL İFADELER VE ÖZDEŞLİKLER')

{

SoruNoLabel.Text = 'Soru: ' + IntToStr(Sorusira);

if (Sorusira == 1)

{

SoruLabel.Text = '3x²−5x+7 cebirsel ifadesinin katsayılar toplamı kaçtır?';

BtnA.Text = '15';

BtnB.Text = '-2';

BtnC.Text = '10';

BtnD.Text = '5';

Dcevap = '5';

}

else if (Sorusira == 2)

{

SoruLabel.Text = '(x + 4)² ifadesinin özdeşliği aşağıdakilerden hangisidir?';

BtnA.Text = 'x²+4x+8';

BtnB.Text = 'x²+8x+16';

BtnC.Text = 'x²+8x+8';

BtnD.Text = 'x²+16';

Dcevap = 'x²+8x+16';

}

else if (Sorusira == 3)

{

SoruLabel.Text = 'a² - 49 cebirsel ifadesinin çarpanlarına ayrılmış hali hangisidir?';

BtnA.Text = '(a−7)⋅(a−7)';

BtnB.Text = '(a+7)⋅(a+7)';

BtnC.Text = '(a−7)⋅(a−7)';

BtnD.Text = 'a(a-49)';

Dcevap = '(a+7)⋅(a−7)';

}

else if (Sorusira == 4)

{

SoruLabel.Text = '12x²y - 18xy² ifadesinin çarpanlarından biri aşağıdakilerden hangisidir?';

BtnA.Text = '4x';

BtnB.Text = '3y²';

BtnC.Text = '2x-3y';

BtnD.Text = '6x²';

Dcevap = '2x-3y';

}

else if (Sorusira == 5)

{

SoruLabel.Text = 'a = 105 ve b = 100 için a² - 2ab + b² ifadesinin değeri kaçtır?';

BtnA.Text = '5';

BtnB.Text = '100';

BtnC.Text = '42025';

BtnD.Text = '25';

Dcevap = '25';

}

//renk sıfırla

BtnA.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#5c679c');

BtnA.SetclProSettings(BtnA.clProSettings);

BtnB.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#5c679c');

BtnB.SetclProSettings(BtnB.clProSettings);

BtnC.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#5c679c');

BtnC.SetclProSettings(BtnC.clProSettings);

BtnD.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#5c679c');

BtnD.SetclProSettings(BtnD.clProSettings);

}

void Cevap;

{

if (TClProButton(GirisForm.ClSender).Text == Dcevap)

{

DogruSayisi = DogruSayisi + 1;

ShowMessage('Tebrikler! Doğru Cevap.');

}

else

{

ShowMessage('Hatalı Cevap! Doğru cevap: ' + Dcevap);

}

{

if (Sorusira < 5)

{

Sorusira = Sorusira + 1;

SoruGetir;

}

else { ShowMessage('Sorular Bitti! Harikaydın.');

SoruPanel.Visible = False;

LogoImg.Visible = True;

BaslaBtn.Visible = True; }

}

else

{

ShowMessage('Hatalı Cevap, tekrar dene!');

}

if (Sorusira < 5)

{

Sorusira = Sorusira + 1;

SoruGetir;

}

else

{

BasariYuzdesi = (DogruSayisi / 5.0) * 100;

ShowMessage('Sınav Bitti! Doğru Sayısı: '+IntToStr(DogruSayisi)+'Başarı Yüzdesi: %'+ FloatToStr(BasariYuzdesi));

SoruPanel.Visible = False;

LogoImg.Visible = True;

BaslaBtn.Visible = True;

HeaderPanel.Visible = False;

}

//baslama

void OnBaslaClick;

{

// İlk sayfadaki nesneleri gizle

LogoImg.Visible = False;

BaslaBtn.Visible = False;

// 2. Sayfa nesneleri görünür yap

HeaderPanel.Visible = True;

Buton1.Visible = True;

Buton2.Visible = True;

Buton3.Visible = True;

Buton4.Visible = True;

Buton5.Visible = True;

GirisForm.SetFormColor('#FFFFFF', '#E2E8F0', clGVertical);

}

// Konu butonuna tıklandığında çalışacak bölüm

void OnKonuClick;

{

ShowMessage(TClProButton(GirisForm.ClSender).Text + ' konusuna ait alıştırma soruları hazırlanıyor...');

Seckonu = TClProButton(GirisForm.ClSender).Text;

Buton1.Visible = False;

Buton2.Visible = False;

Buton3.Visible = False;

Buton4.Visible = False;

Buton5.Visible = False;

SoruPanel.Visible = True;

Sorusira = 1;

SoruGetir;

}

{

GirisForm = TclForm.Create(Self);

GirisForm.LytTopBar.Visible = False;

GirisForm.SetFormColor('#F8FAFC', '#F8FAFC', clGVertical);

HeaderPanel = GirisForm.AddNewProPanel(GirisForm, 'HeaderPanel');

HeaderPanel.Align = alTop;

HeaderPanel.Height = 95;

HeaderPanel.Margins.Top = 1;

HeaderPanel.Margins.Left = 1;

HeaderPanel.Margins.Right = 1;

HeaderPanel.Visible = False;

clComponent.SetupComponent(HeaderPanel, '{"BorderColor":"#0CB492", "BorderWidth":2, "BackgroundColor":"#F8FAFC"}');

HeaderLogo = GirisForm.AddNewImage(HeaderPanel, 'HeaderLogo');

HeaderLogo.Align = alCenter;

HeaderLogo.Width = 300;

HeaderLogo.Height = 90;

GirisForm.setImage(HeaderLogo, ' https://i.ibb.co/b5GkB1yn/logo.png" rel="nofollow - https://i.ibb.co/b5GkB1yn/logo.png ');

// Sayfa 1

LogoImg = GirisForm.AddNewImage(GirisForm,'LogoImg');

LogoImg.Width = 500;

LogoImg.Height = 500;

GirisForm.setImage(LogoImg,' https://i.ibb.co/b5GkB1yn/logo.png" rel="nofollow - https://i.ibb.co/b5GkB1yn/logo.png ');

BaslaBtn = GirisForm.AddNewProButton(GirisForm, 'BaslaBtn', 'Hadi Başlayalım!');

BaslaBtn.Align = alBottom;

BaslaBtn.Margins.Bottom = 100;

BaslaBtn.Margins.Left = 200;

BaslaBtn.Margins.Right = 200;

BaslaBtn.Height = 50;

BaslaBtn.clProSettings.FontSize = 16;

BaslaBtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#0CB492');

BaslaBtn.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff');

BaslaBtn.clProSettings.IsRound = True;

BaslaBtn.clProSettings.RoundHeight = 10;

BaslaBtn.clProSettings.RoundWidth = 10;

BaslaBtn.SetclProSettings(BaslaBtn.clProSettings);

// Sayfa 2

// 1. çarpanlar ve katlar butonu

Buton5 = GirisForm.AddNewProButton(GirisForm, 'Buton5', 'ÇARPANLAR VE KATLAR');

Buton5.Align = alTop;

Buton5.Margins.Top = 15;

Buton5.Margins.Left = 1;

Buton5.Margins.Right = 1;

Buton5.Height = 60;

Buton5.Visible = False;

Buton5.clProSettings.FontSize = 18;

Buton5.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#5c679c');

Buton5.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff');

Buton5.clProSettings.IsRound = True;

Buton5.clProSettings.RoundHeight = 10;

Buton5.clProSettings.RoundWidth = 10;

Buton5.SetclProSettings(Buton5.clProSettings);

// 2. üslü ifadeler butonu

Buton4 = GirisForm.AddNewProButton(GirisForm, 'Buton4', 'ÜSLÜ İFADELER');

Buton4.Align = alTop;

Buton4.Margins.Top = 15;

Buton4.Margins.Left = 1;

Buton4.Margins.Right = 1;

Buton4.Height = 60;

Buton4.Visible = False;

Buton4.clProSettings.FontSize = 18;

Buton4.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#6d597a');

Buton4.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff');

Buton4.clProSettings.IsRound = True;

Buton4.clProSettings.RoundHeight = 10;

Buton4.clProSettings.RoundWidth = 10;

Buton4.SetclProSettings(Buton4.clProSettings);

// 3. kareköklü ifadeler butonu

Buton3 = GirisForm.AddNewProButton(GirisForm, 'Buton3', 'KAREKÖKLÜ İFADELER');

Buton3.Align = alTop;

Buton3.Margins.Top = 15;

Buton3.Margins.Left = 1;

Buton3.Margins.Right = 1;

Buton3.Height = 60;

Buton3.Visible = False;

Buton3.clProSettings.FontSize = 18;

Buton3.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#b56576');

Buton3.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff');

Buton3.clProSettings.IsRound = True;

Buton3.clProSettings.RoundHeight = 10;

Buton3.clProSettings.RoundWidth = 10;

Buton3.SetclProSettings(Buton3.clProSettings);

// 4. olasılık butonu

Buton2 = GirisForm.AddNewProButton(GirisForm, 'Buton2', 'OLASILIK');

Buton2.Align = alTop;

Buton2.Margins.Top = 15;

Buton2.Margins.Left = 1;

Buton2.Margins.Right = 1;

Buton2.Height = 60;

Buton2.Visible = False;

Buton2.clProSettings.FontSize = 18;

Buton2.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#c27a69');

Buton2.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff');

Buton2.clProSettings.IsRound = True;

Buton2.clProSettings.RoundHeight = 10;

Buton2.clProSettings.RoundWidth = 10;

Buton2.SetclProSettings(Buton2.clProSettings);

// 5. cebirsel ifadeler butonu

Buton1 = GirisForm.AddNewProButton(GirisForm, 'Buton1', 'CEBİRSEL İFADELER VE ÖZDEŞLİKLER');

Buton1.Align = alTop;

Buton1.Margins.Top = 15;

Buton1.Margins.Left = 1;

Buton1.Margins.Right = 1;

Buton1.Height = 60;

Buton1.Visible = False;

Buton1.clProSettings.FontSize = 18;

Buton1.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#eaac8b');

Buton1.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff');

Buton1.clProSettings.IsRound = True;

Buton1.clProSettings.RoundHeight = 10;

Buton1.clProSettings.RoundWidth = 10;

Buton1.SetclProSettings(Buton1.clProSettings);

// Sayfa 3

SoruPanel = GirisForm.AddNewProPanel(GirisForm, 'SoruPanel');

SoruPanel.Align = alClient;

SoruPanel.Visible = False;

SoruNoLabel = GirisForm.AddNewLabel(SoruPanel, 'SoruNoLabel', 'Soru: 1');

SoruNoLabel.Align = alTop; SoruNoLabel.Height = 30;

SoruLabel = GirisForm.AddNewLabel(SoruPanel, 'SoruLabel', '-');

SoruLabel.Align = alTop;

SoruLabel.Height = 80;

SoruLabel.TextSettings.WordWrap = True;

//Seçenek butonları

BtnA = GirisForm.AddNewProButton(SoruPanel, 'BtnA', 'A');

BtnA.Align = alTop;

BtnA.Height = 50;

BtnA.Margins.Top = 10;

BtnA.clProSettings.FontSize = 18;

BtnA.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#c1c4d6');

BtnA.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff');

BtnA.clProSettings.IsRound = True;

BtnA.clProSettings.RoundHeight = 5;

BtnA.clProSettings.RoundWidth = 5;

BtnA.SetclProSettings(BtnA.clProSettings);

BtnB = GirisForm.AddNewProButton(SoruPanel, 'BtnB', 'B');

BtnB.Align = alTop;

BtnB.Height = 50;

BtnB.Margins.Top = 10;

BtnB.clProSettings.FontSize = 18;

BtnB.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#c1c4d6');

BtnB.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff');

BtnB.clProSettings.IsRound = True;

BtnB.clProSettings.RoundHeight = 5;

BtnB.clProSettings.RoundWidth = 5;

BtnB.SetclProSettings(BtnB.clProSettings);

BtnC = GirisForm.AddNewProButton(SoruPanel, 'BtnC', 'C');

BtnC.Align = alTop;

BtnC.Height = 50;

BtnC.Margins.Top = 10;

BtnC.clProSettings.FontSize = 18;

BtnC.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#c1c4d6');

BtnC.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff');

BtnC.clProSettings.IsRound = True;

BtnC.clProSettings.RoundHeight = 5;

BtnC.clProSettings.RoundWidth = 5;

BtnC.SetclProSettings(BtnC.clProSettings);

BtnD = GirisForm.AddNewProButton(SoruPanel, 'BtnD', 'D');

BtnD.Align = alTop;

BtnD.Height = 50;

BtnD.Margins.Top = 10;

BtnD.clProSettings.FontSize = 18;

BtnD.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#c1c4d6');

BtnD.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff');

BtnD.clProSettings.IsRound = True;

BtnD.clProSettings.RoundHeight = 5;

BtnD.clProSettings.RoundWidth = 5;

BtnD.SetclProSettings(BtnD.clProSettings);

// Butonlar

GirisForm.AddNewEvent(BaslaBtn, tbeOnClick, 'OnBaslaClick');

GirisForm.AddNewEvent(Buton1, tbeOnClick, 'OnKonuClick');

GirisForm.AddNewEvent(Buton2, tbeOnClick, 'OnKonuClick');

GirisForm.AddNewEvent(Buton3, tbeOnClick, 'OnKonuClick');

GirisForm.AddNewEvent(Buton4, tbeOnClick, 'OnKonuClick');

GirisForm.AddNewEvent(Buton5, tbeOnClick, 'OnKonuClick');

GirisForm.AddNewEvent(BtnA, tbeOnClick, 'OnKonuClick');

GirisForm.AddNewEvent(BtnB, tbeOnClick, 'OnKonuClick');

GirisForm.AddNewEvent(BtnC, tbeOnClick, 'OnKonuClick');

GirisForm.AddNewEvent(BtnD, tbeOnClick, 'OnKonuClick');

GirisForm.Run;

}